vSeg=Second(Now)
'''''''''''''''''''
Sub v_BegMarquee()
  Document.Write "<p><font face='Verdana' size='2' "
  Document.Write "color=#000000>"
  Document.Write "<marquee align='middle' border='1' "
  Document.Write "scrollamount='5' scrolldelay='100' "
  Document.Write "width='740'>"
End Sub
'
Sub v_EndMarquee()
  Document.Write "</marquee></font></p>"
End Sub
'

v_BegMarquee()
   Document.Write vlinha1 & string(25,".") 
   Document.Write vlinha2 & string(25,".") 
   Document.Write vlinha3 & string(25,".") 
v_EndMarquee()