 |
Home |  |
Profile | |
Classified | |
Free Listing | |
FeedBack |  |
" sHtml3 = "'>" sHtml4 = "
" sTxt = "" rstCurrent.movefirst do while not rstCurrent.eof 'I used variables here to try and reduce this long assignment sTxt = sTxt & sHtml1 & sHtml2 & _ rstCurrent("Entry_ID") & sHtml3 & rstCurrent("Title") & sHtml4 rstCurrent.movenext loop iSpeed = 1 ' Speed of Marquee (higher = slower) iTop = 0 ' Y Location Within Object iLeft = 0 ' X Location"""" iWidth = 140 ' Width iHeight = 200 ' Height 'Insert marquee into objects innerHtml Property (in this Case a table cell) sMarquee="" conCurrent.close 'Don't forget to clean-up! set conCurrent = Nothing %> |
||||||||||||
|
||||||||||||
|
||||||||||||
|
|
