---

Er der nogen her der kan se hvad der kunne være galt med følgende fil,
da den får serveren til at gå fuldstændig kold over den:

(filen logger ganske enkelt nogle variabler ned i en fil og redirecter
til en anden side)

<%
If Request.ServerVariables("SERVER_NAME") = "localhost" OR
Request.ServerVariables("SERVER_NAME") = "10.10.20.25" Then
file = "d:\inetpub\wwwroot\elevarkiv\dbfiles\visits.txt"
Else
file =
"c:\inetpub\wwwroot\vejlefjordskolen.dk\elevarkiv\dbfiles\visits.txt"
End if
datostempel = FormatDateTime(Now,2)
tidsstempel = FormatDateTime(Now,4)
referer = Request.ServerVariables("HTTP_REFERER")
ipaddr = Request.ServerVariables("REMOTE_ADDR")
CookieName = request.cookies("System")("Username")

tekst = datostempel & " " & tidsstempel & vbTab
tekst = tekst & referer & vbTab
tekst = tekst & CookieName & vbTab
tekst = tekst & ipaddr & vbCrLf
set fsObj = CreateObject("Scripting.FileSystemObject")
set f = fsObj.OpenTextFile(file,8,True)
f.Write(tekst)
f.Close
set f = nothing
set fsObj = nothing

response.redirect("listyears.asp")
%>

---

"Allan Jensen" <public@hverdag.dk> skrev i en meddelelse
news:g0k8cu83hn7mopu08o6b6dlntp9oa9837f@4ax.com...
> Er der nogen her der kan se hvad der kunne være galt med følgende fil,
> da den får serveren til at gå fuldstændig kold over den:
>
> (filen logger ganske enkelt nogle variabler ned i en fil og redirecter
> til en anden side)
>
> <%
> If Request.ServerVariables("SERVER_NAME") = "localhost" OR
> Request.ServerVariables("SERVER_NAME") = "10.10.20.25" Then
> file = "d:\inetpub\wwwroot\elevarkiv\dbfiles\visits.txt"
> Else
> file =
> "c:\inetpub\wwwroot\vejlefjordskolen.dk\elevarkiv\dbfiles\visits.txt"
> End if
> datostempel = FormatDateTime(Now,2)
> tidsstempel = FormatDateTime(Now,4)
> referer = Request.ServerVariables("HTTP_REFERER")
> ipaddr = Request.ServerVariables("REMOTE_ADDR")
> CookieName = request.cookies("System")("Username")
>
> tekst = datostempel & " " & tidsstempel & vbTab
> tekst = tekst & referer & vbTab
> tekst = tekst & CookieName & vbTab
> tekst = tekst & ipaddr & vbCrLf
> set fsObj = CreateObject("Scripting.FileSystemObject")
> set f = fsObj.OpenTextFile(file,8,True)
> f.Write(tekst)
> f.Close
> set f = nothing
> set fsObj = nothing
>
> response.redirect("listyears.asp")
> %>
>

Hej Allan
Først ville jeg lige omdøbe:
c:\inetpub\wwwroot\vejlefjordskolen.dk\elevarkiv\dbfiles\visits.txt
til:
c:\inetpub\wwwroot\vejlefjordskolen\elevarkiv\dbfiles\visits.txt
de der "." i stier kan ikke altid overleve - så tror du ikke directoryet kan
omdøbes?

Derefter ville jeg kalde variablen "file" noget andet f.eks. "TekstFile"
og linien:
set f = fsObj.OpenTextFile(file,8,True)
til:
set f = fsObj.OpenTextFile(TekstFile,8,0)

Får du nogle fejlmeldinger?
Eller fryser maskinen bare?

Mvh Steen

---

>Først ville jeg lige omdøbe:
>c:\inetpub\wwwroot\vejlefjordskolen.dk\elevarkiv\dbfiles\visits.txt
>til:
>c:\inetpub\wwwroot\vejlefjordskolen\elevarkiv\dbfiles\visits.txt
>de der "." i stier kan ikke altid overleve - så tror du ikke directoryet kan
>omdøbes?

Hmm, det tror jeg ikke serveren ejer er særlig meget for. Nu har jeg
prøvet at bruge mappath så der kun står
server.mappath("dbfiles\visits.txt") - men det ser ikke ud til at gøre
nogen forskel. Det virker i hvert fald stadig ikke.

>Derefter ville jeg kalde variablen "file" noget andet f.eks. "TekstFile"
>og linien:
>set f = fsObj.OpenTextFile(file,8,True)
>til:
>set f = fsObj.OpenTextFile(TekstFile,8,0)

Ja, den var jeg også selv kommet i tanke om...

>Får du nogle fejlmeldinger?
>Eller fryser maskinen bare?

Først fik jeg Internal Server Error så snart jeg loadede siden, men
efter genstart af server står den bare og loader og loader og der sker
ingenting.

Det kan være at jeg simpelthen bliver nødt til at pille filen fra
hinanden og afprøve hver enkelt lille kodedel.....!

Mvh.
Allan

>> ------------------------------------------------------------------------
>> Er der nogen her der kan se hvad der kunne være galt med følgende fil,
>> da den får serveren til at gå fuldstændig kold over den:
>>
>> (filen logger ganske enkelt nogle variabler ned i en fil og redirecter
>> til en anden side)
>>
>> <%
>> If Request.ServerVariables("SERVER_NAME") = "localhost" OR
>> Request.ServerVariables("SERVER_NAME") = "10.10.20.25" Then
>> file = "d:\inetpub\wwwroot\elevarkiv\dbfiles\visits.txt"
>> Else
>> file =
>> "c:\inetpub\wwwroot\vejlefjordskolen.dk\elevarkiv\dbfiles\visits.txt"
>> End if
>> datostempel = FormatDateTime(Now,2)
>> tidsstempel = FormatDateTime(Now,4)
>> referer = Request.ServerVariables("HTTP_REFERER")
>> ipaddr = Request.ServerVariables("REMOTE_ADDR")
>> CookieName = request.cookies("System")("Username")
>>
>> tekst = datostempel & " " & tidsstempel & vbTab
>> tekst = tekst & referer & vbTab
>> tekst = tekst & CookieName & vbTab
>> tekst = tekst & ipaddr & vbCrLf
>> set fsObj = CreateObject("Scripting.FileSystemObject")
>> set f = fsObj.OpenTextFile(file,8,True)
>> f.Write(tekst)
>> f.Close
>> set f = nothing
>> set fsObj = nothing
>>
>> response.redirect("listyears.asp")
>> %>

---

On Thu, 25 Apr 2002 11:00:51 +0200, Allan Jensen <public@hverdag.dk>
wrote:

>>Får du nogle fejlmeldinger?
>>Eller fryser maskinen bare?
>
>Først fik jeg Internal Server Error så snart jeg loadede siden,

Slå 'Friendly HTTP Errors' FRA i din (MSIE) browser, så får du nogle
mere sigende fejlmeddelelser.

>efter genstart af server står den bare og loader og loader og der sker
>ingenting.

Efter et stykke tid får du sikkert en timeout.

>Det kan være at jeg simpelthen bliver nødt til at pille filen fra
>hinanden og afprøve hver enkelt lille kodedel.....!

Tjah, det er den måde man som regel kommer videre på :)

Tag evt. disse to linier og flyt ned gennem koden, så fanger du ret
hurtigt, hvor fejlen opstår:

Response.Write "Test"
Response.End


Good luck,
Jørn


--
Jørn Andersen,
Brønshøj

---

Hvor fanger du de fejl der evt. opstår hvis
1) ukendte fejl
2) Filen er låst af en anden .asp fil der tilgår den
3) Filen ikke eksisterer jvf. måske forkert path...

Prøv lige at fange dem først. Generelt når der er problemer som dette er det
en godt ide (bare ind til problemet er løst..) at lave en on error r3esume
next, og så skrive fejlkoden ud til sidst... på den måde kan man få en ide
om hvad der sker.

Forsøg på Pseudokode:

__on error resume next
> set fsObj = CreateObject("Scripting.FileSystemObject")
__if file ikke eksisterer, så gøre et eller andet
> set f = fsObj.OpenTextFile(file,8,True)
__if file ikke er skrivbar, så gøre et eller andet
> f.Write(tekst)
> f.Close
> set f = nothing
> set fsObj = nothing
>
__'* Skriv evt. fejl ud
__ if err.Nr <> 0 then response.write(err.description)

/Jesper