Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

Register Log in
  • Congratulations wOOdy-Soft on being selected by the Tek-Tips community for having the most helpful posts in the forums last week. Way to Go!

Help please for two scrolls?

Status
Not open for further replies.
Minden32

Minden32

Technical User
Feb 25, 2002
20
GB
Hi; Many thanks in advance to someone who can help me.....
I have two scrolling areas on same page and one java based menu. The ‘init’ (menu) and ‘scroll’ functions are called from the onload command. The menu and one scroll works OK but not the two scrolls together. I'm using a buildpage.asp to call each ASP file with the java in then a further js file (for each scroller) is called when loading the main html template.
The both scrolls stop working with the following error appearing in the status bar 'tdiv11.style.top' is null or not an object when the following code is loaded from the second asp file:

ScrollerHTML2 = ScrollerHTML2 & "function move13(whichdiv){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11=eval(whichdiv)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv3.style.top)>5&&parseInt(tdiv11.style.top)<=10){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=0+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move13(tdiv11)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move14(second2_obj)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "return" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv11.style.top)>=tdiv11.offsetHeight*-1){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=parseInt(tdiv11.style.top)-5+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move13(tdiv11)"",90)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else{" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=parseInt(scrollerheight2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.innerHTML=messages2" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (i==messages2.length-1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i++" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf

Please let me stress that both scrolls work separately in main template page, it is only when I add both js files that both then stops working - therefore I can assume there is nothing wrong with the buildpage file, either asp file or js file. The code below is from all files:

(part of) Buildpage.asp:
<!--#include virtual="/includes/dbconnect.asp"-->
<!--#include virtual="/includes/scroller.asp"-->

<!--#include virtual="/includes/scroller2.asp"-->
<%
'sessions last for ten minutes when no activity
session.Timeout = 10
' Set error status to OK, when used in conjuction with 404 trapping.
'response.status = "220 OK"

Scroll.js

if (ie||dom){
document.writeln('<div id="main" style="position:relative; width:'+scrollerwidth+';height:'+scrollerheight+';background-color:'+scrollerbgcolor+' ;background-image:url('+scrollerbackground+')">')
document.writeln('<div style="position:absolute;width:'+ scrollerwidth+';height:'+scrollerheight+';overflow:hidden;clip:rect(0 '+scrollerwidth+' '+scrollerheight+' 0);left:0px;top:0px">')
document.writeln('<div id="first2" style="font-size:10px; position:absolute;width:'+scrollerwidth+';left:3px;top:6px;">')
document.write(messages[0])
document.writeln('</div>')
document.writeln('<div id="second2" style="font-size:10px; position:absolute;width:'+scrollerwidth+';left:3px;top:5px;visibility:hidden">')
document.write(messages[dyndetermine=(messages.length==1)? 0 : 1])
document.writeln('</div>')
document.writeln('</div>')
document.writeln('</div>')
}

Scroll2.js
if (ie2||dom2){
document.writeln('<div id="main" style="position:relative; width:'+scrollerwidth2+';height:'+scrollerheight2+';background-color:'+scrollerbgcolor2+' ;background-image:url('+scrollerbackground2+')">')
document.writeln('<div style="position:absolute;width:'+ scrollerwidth2+';height:'+scrollerheight2+';overflow:hidden;clip:rect(0 '+scrollerwidth2+' '+scrollerheight2+' 0);left:0px;top:0px">')
document.writeln('<div id="first2" style="font-size:10px; position:absolute;width:'+scrollerwidth2+';left:3px;top:6px;">')
document.write(messages2[0])
document.writeln('</div>')
document.writeln('<div id="second2" style="font-size:10px; position:absolute;width:'+scrollerwidth2+';left:3px;top:5px;visibility:hidden">')
document.write(messages2[dyndetermine=(messages2.length==1)? 0 : 1])
document.writeln('</div>')
document.writeln('</div>')
document.writeln('</div>')
}

Scripts called from Template.html
<td valign="top" width="211">
<p align="center"><font color="#0000FF"><i><b>In The News</b></i></font> xxxSCROLLERHTMLxxx


<script language="JavaScript1.2" src=templateimages/scroll.js></script>

<div align="center">
<tr>
<td height="1" >
<p align="center"><font color="#0000FF"><i><b>In The News</b></i></font> xxxSCROLLERHTML2xxx

<script language="JavaScript1.2" src=templateimages/scroll2.js></script>


</td>
</tr>


Scroller.asp
<%
ScrollerHTML = "<Script>" & vbcrlf
ScrollerHTML = ScrollerHTML & "var scrollerwidth='142px'" & vbcrlf
ScrollerHTML = ScrollerHTML & "var scrollerheight='120px'" & vbcrlf
ScrollerHTML = ScrollerHTML & "var scrollerbgcolor='#FFFFFF'" & vbcrlf
ScrollerHTML = ScrollerHTML & "var scrollerbackground='scrollerback.gif'" & vbcrlf

ScrollerHTML = ScrollerHTML & "var messages=new Array()" & vbcrlf
TheQuery = "Select * From Articles Where PG_Type='NEWS' and PG_Date <= #" & formatdatetime(now,2) & "# Order by PG_date desc"
Executesql(TheQuery)
for count = 1 to rs_main.recordcount
ScrollerHTML = ScrollerHTML & "messages[" & count-1 & "]=""<a class=newsinfo href='shownews.asp?item=" & rs_main("pg_name") & "'>" & replace(replace(rs_main("pg_pagetitle"),"""","\"""),"'","\'") & "</a><BR>" & replace(replace(replace(rs_main("pg_description"),"""","\"""),"'","\'"),vbcrlf,"&nbsp;&nbsp;") & """" & vbcrlf
rs_main.movenext
next
rs_main.close
ScrollerHTML = ScrollerHTML & "var ie=document.all" & vbcrlf
ScrollerHTML = ScrollerHTML & "var dom=document.getElementById" & vbcrlf

ScrollerHTML = ScrollerHTML & "if (messages.length>2)" & vbcrlf
ScrollerHTML = ScrollerHTML & "i=2" & vbcrlf
ScrollerHTML = ScrollerHTML & "else" & vbcrlf
ScrollerHTML = ScrollerHTML & "i=0" & vbcrlf

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

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

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

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


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


ScrollerHTML = ScrollerHTML & "</script>" & vbcrlf

%>

Scroller2.asp
<%
ScrollerHTML2 = "<Script>" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "var scrollerwidth2='142px'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "var scrollerheight2='120px'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "var scrollerbgcolor2='#FFFFFF'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "var scrollerbackground2='scrollerback.gif'" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "var messages2=new Array()" & vbcrlf
TheQuery = "Select * From Articles Where PG_Type='NEWS' and PG_Date <= #" & formatdatetime(now,2) & "# Order by PG_date desc"
Executesql(TheQuery)
for count = 1 to rs_main.recordcount
ScrollerHTML2 = ScrollerHTML2 & "messages2[" & count-1 & "]=""<a class=newsinfo href='shownews.asp?item=" & rs_main("pg_name") & "'>" & replace(replace(rs_main("pg_pagetitle"),"""","\"""),"'","\'") & "</a><BR>" & replace(replace(replace(rs_main("pg_description"),"""","\"""),"'","\'"),vbcrlf,"&nbsp;&nbsp;") & """" & vbcrlf
rs_main.movenext
next
rs_main.close
ScrollerHTML2 = ScrollerHTML2 & "var ie2=document.all" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "var dom2=document.getElementById" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "if (messages2.length>2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=2" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "function move11(whichlayer){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11=eval(whichlayer)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (tlayer11.top>5&&tlayer11.top<=10){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11.top=5" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move11(tlayer11)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move12(document.main.document.second)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "return" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (tlayer11.top>=tlayer11.document.height*-1){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11.top-=5" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move11(tlayer11)"",1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else{" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11.top=parseInt(scrollerheight2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11.document.write(messages2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer11.document.close()" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (i==messages2.length-1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i++" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "function move12(whichlayer){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12=eval(whichlayer)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (tlayer12.top>5&&tlayer12.top<=10){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12.top=5" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move12(tlayer12)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move11(document.main.document.first)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "return" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (tlayer12.top>=tlayer12.document.height*-1){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12.top-=5" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move12(tlayer12)"",90)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else{" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12.top=parseInt(scrollerheight2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12.document.write(messages2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tlayer12.document.close()" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (i==messages2.length-1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i++" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "function move13(whichdiv){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11=eval(whichdiv)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv3.style.top)>5&&parseInt(tdiv11.style.top)<=10){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=0+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move13(tdiv11)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move14(second2_obj)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "return" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv11.style.top)>=tdiv11.offsetHeight*-1){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=parseInt(tdiv11.style.top)-5+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move13(tdiv11)"",90)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else{" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.style.top=parseInt(scrollerheight2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv11.innerHTML=messages2" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (i==messages2.length-1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i++" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf


ScrollerHTML2 = ScrollerHTML2 & "function move14(whichdiv){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv2=eval(whichdiv)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv2.style.top)>5&&parseInt(tdiv2.style.top)<=10){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv2.style.top=0+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move14(tdiv2)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move13(first2_obj)"",5000)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "return" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (parseInt(tdiv2.style.top)>=tdiv2.offsetHeight*-1){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv2.style.top=parseInt(tdiv2.style.top)-5+""px""" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "setTimeout(""move14(second2_obj)"",90)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else{" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv2.style.top=parseInt(scrollerheight2)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "tdiv2.innerHTML=messages2" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (i==messages2.length-1)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i=0" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "i++" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf


ScrollerHTML2 = ScrollerHTML2 & "function StartScroll2(){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "if (ie2||dom2){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "first2_obj=ie2? first2 : document.getElementById(""first2"")" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "second2_obj=ie2? second2 : document.getElementById(""second2"")" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "move13(first2_obj)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "second2_obj.style.top=scrollerheight2" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "second2_obj.style.visibility='visible'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "else if (document.layers){" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "document.main.visibility='show'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "move11(document.main.document.first)" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "document.main.document.second.top=parseInt(scrollerheight2)+5" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "document.main.document.second.visibility='show'" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf
ScrollerHTML2 = ScrollerHTML2 & "}" & vbcrlf

ScrollerHTML2 = ScrollerHTML2 & "</script>" & vbcrlf

%>


 
Sort by date Sort by votes

You need to make sure that all the IDs in your second file are unique - at present, they are not, as they are identical to those in the first file.

Hope this helps,
Dan

 
Upvote 0 Downvote
Fantastic!
Many thanks Dan - bang on the button, both scrolls now working OK.

The only problem I have now is the data query. Each scroll is picking up values from a record set (via Access db and adodb). Each scroll correctly shows different values, but then after three scrolls each scroll then show "undefined" in the window!
Any ideas anyone?
The query from each scroller.asp is below and also in code above. many thanks in advance.

Scroller1
ScrollerHTML = ScrollerHTML & "var messages=new Array()" & vbcrlf
TheQuery = "Select * From Articles Where PG_Type='NEWS' and PG_Date <= #" & formatdatetime(now,2) & "# Order by PG_date desc"
Executesql(TheQuery)
for count = 1 to rs_main.recordcount
ScrollerHTML = ScrollerHTML & "messages[" & count-1 & "]=""<a class=newsinfo href='shownews.asp?item=" & rs_main("pg_name") & "'>" & replace(replace(rs_main("pg_pagetitle"),"""","\"""),"'","\'") & "</a><BR>" & replace(replace(replace(rs_main("pg_description"),"""","\"""),"'","\'"),vbcrlf,"&nbsp;&nbsp;") & """" & vbcrlf
rs_main.movenext
next
rs_main.close

Scroller2
ScrollerHTML2 = ScrollerHTML2 & "var messages2=new Array()" & vbcrlf
TheQuery2 = "Select * From Articles Where PG_Type='NEWS2' and PG_Date <= #" & formatdatetime(now,2) & "# Order by PG_date desc"
Executesql(TheQuery2)
for count = 1 to rs_main.recordcount
ScrollerHTML2 = ScrollerHTML2 & "messages2[" & count-1 & "]=""<a class=newsinfo href='shownews.asp?item=" & rs_main("pg_name") & "'>" & replace(replace(rs_main("pg_pagetitle"),"""","\"""),"'","\'") & "</a><BR>" & replace(replace(replace(rs_main("pg_description"),"""","\"""),"'","\'"),vbcrlf,"&nbsp;&nbsp;") & """" & vbcrlf
rs_main.movenext
next
rs_main.close
 
Upvote 0 Downvote
Status
Not open for further replies.

Similar threads

Rayj0000
  • Locked
  • Question
How to disable an html button for subsequent website visitors?
Replies
0
Views
684
Rayj0000
Rayj0000
michael12061206
  • Locked
  • Question
free javascript library for airliner diagrams
Replies
1
Views
260
xwb
xwb
chikwendu
  • Locked
  • Question
How do I display an extra input box for editing an existing data?
Replies
1
Views
293
chikwendu
chikwendu
obtur
  • Locked
  • Question
function below calculates day of the week for any given date. not returning correctly, plz help
Replies
2
Views
278
obtur
obtur
James Mcgill
  • Locked
  • Question
Schema for a haikus
Replies
0
Views
201
James Mcgill
James Mcgill

Part and Inventory Search

Sponsor

Back
Top