ASP & Javascript

R

Rui Mingas

Hi Guyz

I'm new in ASP and I'm working for this financing company wich has a
website with a currency script on it. It happens that I'm supposed to
give this site a new look and the way the previous webdesigner made this
currency to be displayed makes all values be showed up at the same time.
Now I want it to be displayed each one at a time on a javascript text
scrooler.

Below is current code which I'm currently having problems with (forvive
me for the size of the code):
<TABLE borderColor=#a5cbf7 height=25 cellSpacing=0 cellPadding=0
width=246
border=1>

<TR>
<TD width=122 bgColor=#a5cbf7 colSpan=2>
<P align=center><B><FONT face=Tahoma color=#ffffff
size=1>Direcção
de Gestão de Reservas</FONT></B></P></TD>
<TD width=54 bgColor=#a5cbf7>&nbsp;</TD><%
Data = Date()
Data= Format(Data, "dd/mm/yyyy")
%>
<td width="62" bgcolor="#a5cbf7"><font color="#ffffff"
face="Tahoma" size="1"><b><%=Data%></b></font>&nbsp;</td></TR>
<tr>
<td width="85" align="middle">
<p align="center"><font color="#000000" size="2"
face="Tahoma"><b>Moeda</b></font></p></td>
<td width="35" align="middle">
<font size="2" face="Tahoma"><b>Cod.</b></font></td>
<td width="54" align="middle">
<p align="center"><font size="2"
face="Tahoma"><b>Compra</b></font></p></td>
<td width="62" align="middle">
<p align="center"><font size="2"
face="Tahoma"><b>Venda</b></font></p></td>
</tr>
<%
dim x
dim Moeda
dim Abreviatura
dim Compra
dim Venda
Dim Hoje

for x = 5 to 19
if (x<> 7) and (x<> 9)and (x<> 11) and (x<> 12)and (x<> 13)and (x<>
15)then
%>
<tr>
<%
Select Case x
Case 3
Moeda = "Xelim Austriáco"
Abreviatura = "ATS"
Case 4
Moeda = "Franco Belga"
Abreviatura = "BEF"
Case 5
Moeda = "Dólar Canadiano"
Abreviatura = "CAD"
Case 6
Moeda = "Franco Suiço"
Abreviatura = "CHF"
Case 7
Moeda = "Marco Alemão"
Abreviatura = "DEM"
Case 8
Moeda = "Coroa Dinamarca"
Abreviatura = "DKK"
Case 9
Moeda = "Peseta Espanhola"
Abreviatura = "ESP"
Case 10
Moeda = "Euro"
Abreviatura = "EUR"
Case 11
Moeda = "Marco Finlandês"
Abreviatura = "FIM"
Case 12
Moeda = "Esc Cabo-Verde"
Abreviatura = "CVE"
Case 13
Moeda = "Florim Holandês"
Abreviatura = "NLG"
Case 14
Moeda = "Coroa Norueguesa"
Abreviatura = "NOK"
Case 15
Moeda = "Escudo Portugal"
Abreviatura = "PTE"
Case 16
Moeda = "Rand África do Sul"
Abreviatura = "ZAR"
Case 17
Moeda = "Coroa Sueca"
Abreviatura = "SEK"
Case 18
Moeda = "Dólar Americano"
Abreviatura = "USD"
Case 19
Moeda = "Libra"
Abreviatura = "GBP"
Case 20
Moeda = "Dólar Australiano"
Abreviatura = "AUD"
Case 21
Moeda = "Peseta Andorra"
Abreviatura = "ADP"

Case Else
Moeda = " "
End Select
%>
<td height="8" align="middle" width="85"><font size="1"
face="Tahoma"><%=Moeda%></font></td>
<%
encontrou = 0
Hoje = Date()
Do While Not (encontrou = 1)

sql = "SELECT * FROM Cambio where MOEID =" & cint(x) & " and TIOID=" &
cint(31)
'sql = "SELECT * FROM Cambio ORDER BY CAMDATA DESC;"
Set rs = conn.execute(sql)
'response.write "valor de x=" & cint(x)
Dim encontrou
encontrou = 0
%> <%
if not (rs.eof) then %> <%
encontrou = 0
do while ( not(rs.eof) and encontrou=0 )
Data = rs("CAMDATA")
'response.write "valor de Data=" & Data
'response.write "valor de Hoje=" & Hoje
if cDate(Data) = cDate(Hoje) then
Compra = rs("CAMTAXA")
encontrou = 1
else
rs.MoveNext()
End if
loop

if encontrou = 0 then
Compra = "-"
Hoje = DateAdd("d", -1, Hoje)
End if

%> <%
else
Compra = "-"
end if %> <%
rs.close
Set rs = nothing
loop
%>
<td height="8" align="middle" width="35"><font size="1"
face="Tahoma"><%=Abreviatura%></font></td>
<td height="8" align="middle" width="54"><font size="1"
face="Tahoma"><%=Compra%></font></td>
<%
sql = "SELECT * FROM Cambio where MOEID =" & cint(x) & " and TIOID=" &
cint(28)
Set rs = conn.execute(sql)
'response.write "valor de x=" & cint(x)
%>
<% if not (rs.eof) then %>
<%
encontrou = 0
do while ( not(rs.eof) and encontrou=0 )
Data = rs("CAMDATA")
if cDate(Data) = cDate(Hoje) then
Venda = rs("CAMTAXA")
encontrou = 1
else
rs.MoveNext()
End if
loop

if encontrou = 0 then
Venda = "-"
End if
%>
<%else
Venda = "-"
end if %>
<%
rs.close
Set rs = nothing
%>
<td height="8" align="middle" width="62"><font size="1"
face="Tahoma"><%=Venda%></font></td>
</tr>
<tr>
<%

end if
Next
%></tr></TABLE>



and I want it to be displayed on this:

<script type="text/javascript">

//configure the below five variables to change the style of the scroller
var scrollerdelay='3000' //delay between msg scrolls. 3000=3 seconds.
var scrollerwidth='150px'
var scrollerheight='105px'
var scrollerbgcolor='#EAEAEA'
//set below to '' if you don't wish to use a background image
var scrollerbackground=''

//configure the below variable to change the contents of the scroller
var messages=new Array()
messages[0]="<font face='Arial'>Moeda: <%=Moeda%><br />Abrev:
<%=Abreviatura = "Case 5"%><br />Compra: <%=Compra = "Case 5"%><br
/>Venda: <%=Venda = "Case 5"%></font>"
messages[1]="<font face='Arial'><a href='#'>Visit JavaScriptKit for
award winning JavaScript tutorials</a></font>"
messages[2]="<font face='Arial'><a href='#'>Get help on scripting and
web development. Visit CodingForums.com!</a></font>"
messages[3]="<font face='Arial'><a href='#'>Looking for Free Java
applets? Visit Freewarejava.com!</a></font>"
messages[4]="<font face='Arial'><a href='#'>If you find this script
useful, please click here to link back to Dynamic Drive!</a></font>"

///////Do not edit pass this line///////////////////////

var ie=document.all
var dom=document.getElementById

if (messages.length>2)
i=2
else
i=0

function move1(whichlayer){
tlayer=eval(whichlayer)
if (tlayer.top>0&&tlayer.top<=5){
tlayer.top=0
setTimeout("move1(tlayer)",scrollerdelay)
setTimeout("move2(document.main.document.second)",scrollerdelay)
return
}
if (tlayer.top>=tlayer.document.height*-1){
tlayer.top-=5
setTimeout("move1(tlayer)",50)
}
else{
tlayer.top=parseInt(scrollerheight)
tlayer.document.write(messages)
tlayer.document.close()
if (i==messages.length-1)
i=0
else
i++
}
}

function move2(whichlayer){
tlayer2=eval(whichlayer)
if (tlayer2.top>0&&tlayer2.top<=5){
tlayer2.top=0
setTimeout("move2(tlayer2)",scrollerdelay)
setTimeout("move1(document.main.document.first)",scrollerdelay)
return
}
if (tlayer2.top>=tlayer2.document.height*-1){
tlayer2.top-=5
setTimeout("move2(tlayer2)",50)
}
else{
tlayer2.top=parseInt(scrollerheight)
tlayer2.document.write(messages)
tlayer2.document.close()
if (i==messages.length-1)
i=0
else
i++
}
}

function move3(whichdiv){
tdiv=eval(whichdiv)
if (parseInt(tdiv.style.top)>0&&parseInt(tdiv.style.top)<=5){
tdiv.style.top=0+"px"
setTimeout("move3(tdiv)",scrollerdelay)
setTimeout("move4(second2_obj)",scrollerdelay)
return
}
if (parseInt(tdiv.style.top)>=tdiv.offsetHeight*-1){
tdiv.style.top=parseInt(tdiv.style.top)-5+"px"
setTimeout("move3(tdiv)",50)
}
else{
tdiv.style.top=parseInt(scrollerheight)
tdiv.innerHTML=messages
if (i==messages.length-1)
i=0
else
i++
}
}

function move4(whichdiv){
tdiv2=eval(whichdiv)
if (parseInt(tdiv2.style.top)>0&&parseInt(tdiv2.style.top)<=5){
tdiv2.style.top=0+"px"
setTimeout("move4(tdiv2)",scrollerdelay)
setTimeout("move3(first2_obj)",scrollerdelay)
return
}
if (parseInt(tdiv2.style.top)>=tdiv2.offsetHeight*-1){
tdiv2.style.top=parseInt(tdiv2.style.top)-5+"px"
setTimeout("move4(second2_obj)",50)
}
else{
tdiv2.style.top=parseInt(scrollerheight)
tdiv2.innerHTML=messages
if (i==messages.length-1)
i=0
else
i++
}
}

function startscroll(){
if (ie||dom){
first2_obj=ie? first2 : document.getElementById("first2")
second2_obj=ie? second2 : document.getElementById("second2")
move3(first2_obj)
second2_obj.style.top=scrollerheight
second2_obj.style.visibility='visible'
}
else if (document.layers){
document.main.visibility='show'
move1(document.main.document.first)
document.main.document.second.top=parseInt(scrollerheight)+5
document.main.document.second.visibility='show'
}
}

window.onload=startscroll

</script>


<ilayer id="main" width=&{scrollerwidth}; height=&{scrollerheight};
bgColor=&{scrollerbgcolor}; background=&{scrollerbackground};
visibility=hide>
<layer id="first" left=0 top=1 width=&{scrollerwidth};>
<script language="JavaScript1.2">
if (document.layers)
document.write(messages[0])
</script>
</layer>
<layer id="second" left=0 top=0 width=&{scrollerwidth}; visibility=hide>
<script language="JavaScript1.2">
if (document.layers)
document.write(messages[dyndetermine=(messages.length==1)? 0 : 1])
</script>
</layer>
</ilayer>

<script language="JavaScript1.2">
if (ie||dom){
document.writeln('<div id="main2"
style="position:relative;width:'+scrollerwidth+';height:'+scrollerheight
+';overflow:hidden;background-color:'+scrollerbgcolor+'
;background-image:url('+scrollerbackground+')">')
document.writeln('<div
style="position:absolute;width:'+scrollerwidth+';height:'+scrollerheight
+';clip:rect(0 '+scrollerwidth+' '+scrollerheight+'
0);left:0px;top:0px">')
document.writeln('<div id="first2"
style="position:absolute;width:'+scrollerwidth+';left:0px;top:1px;">')
document.write(messages[0])
document.writeln('</div>')
document.writeln('<div id="second2"
style="position:absolute;width:'+scrollerwidth+';left:0px;top:0px;visibi
lity:hidden">')
document.write(messages[dyndetermine=(messages.length==1)? 0 : 1])
document.writeln('</div>')
document.writeln('</div>')
document.writeln('</div>')
}
</script>



PLEASE HELP!!!
 
R

Ray at

If you're using all client-side javascript, this isn't the right group to
ask. Try a javascript group, but before you do, you should be sure that
you've attempted to do what you're trying to do, only include the relevant
html and scripts, and indicate what you've tried and what's not working.

Ray at work
 
R

Rui Mingas

I believe the problem resides on an ASP issue, you can check the result
I'm havin on the script by clickin here:

http://www.bna.ao/new.asp

All slides show the same value.

What asp string am I supposed to write:

var messages=new Array()
messages[0]="<p align='left'><b>Moeda: <% =Moeda %><br />Abrev: <%
=Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[1]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[2]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[3]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[4]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[5]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[6]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[7]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
messages[8]="<p align='left'><b>Moeda: <% =Moeda (x = 5)%><br />Abrev:
<% =Abreviatura %><br />Compra: <% =Compra %><br />Venda: <% =Venda
%></b></p><p align='right'><font color='#999999'><i>Dir. Gestão de
Reservas<br /><% =Data %></i></font></p>"
 

Ask a Question

Want to reply to this thread or ask your own question?

You'll need to choose a username for the site, which only take a couple of moments. After that, you can post your question and our members will help you out.

Ask a Question

Members online

No members online now.

Forum statistics

Threads
473,744
Messages
2,569,484
Members
44,903
Latest member
orderPeak8CBDGummies

Latest Threads

Top