Find fejlen - 6 linier

Køre du koden lokalt og har du Norton Antivirus installeret?

Det drejer sig om et webhotel på web10 - det har virket fint indtil nu, men så skulle de opdatere deres server eller noget... resten af siden virker fint.

Hvad er fejlen.. Står siden bare at loader og loader?

Hvis den sidste linje er tom vil variablen strHTML være tom som koden er her:
strHTML = bogfil.Readline

Koden er forkortet, her er den fulde:


Set bogfil = filesys.OpenTextFile(fil, 1)
Do while bogfil.AtEndOfStream = False
  strHTML = bogfil.Readline
  If InStr(lcase(strHTML), lcase("<body")) > 0 then Append = 1
  If InStr(lcase(strHTML), lcase("</body")) > 0 then Append = 0
  If Append = 2 then response.write strHTML
  If Append = 1 then Append = 2
loop
bogfil.close
Set bogfil = Nothing

Altså den skriver linier mellem body og \body...

Men den går i stå - serveren,  og svarer ikke før lidt senere

www.mistersifter.com

hmm strange - det virker godt nok lige nu

ok, jeg kun nu heller ikke se der er nogen fejl i koden.

Det er måske serveren så... nå men tak for din tid... læg et svar nu ved jeg da at koden er ok...

Ok :))