I asp VBscript kan man da lave window.setTimeout()

Script.Wait();

sub WaitSeconds(nSeconds)
dim t

        ' Wait the specified number of seconds.  But if the
        ' end-of-wait time is beyond midnight then don't wait.
        t = timer() + nSeconds
        if t < 86399 then      ' 86400 = 24 hrs * 60 minutes * 60 seconds
                while timer() < t
                wend
        end if

end sub
WaitSeconds(10000)

nST=Second(Now)
  nTT=nST+5
  if nTT>=60 then nTT=nTT-60
  do
      nST=Second(Now)
  loop until nST>=nTT

Jeg kan ikke få det til at virke:
jeg har følgende kode som henter en linie af gangen i en txt fil og laver en alert med linien(den skal vises hver 5 sekund)
<%
Set fs=Server.CreateObject("Scripting.FileSystemObject")

Set f=fs.OpenTextFile(Server.MapPath("testread.txt"), 1)
qq=0
do while f.AtEndOfStream = false
    qq=qq+1
%>
                <script type="text/javascript">
                        // <!--
                        alert(<%Response.Write)                                        // -->
                </script>       
    <%
' Response.Write(f.ReadLine)
  nST=Second(Now)
  nTT=nST+5
  if nTT>=60 then nTT=nTT-60
  do
      nST=Second(Now)
  loop until nST>=nTT

loop
f.Close

Set f=Nothing
Set fs=Nothing
%>

Jeg har løst det selv.