Logge og gemme IP adresse på besøgende.

Noget i stil med dette:

userIP = Request.ServerVariables("REMOTE_ADDR")

set fso = server.createobject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(server.mappath("ip.log"))
f.WriteLine "[" & now & "] - " & userIP
f.close
set f = nothing
set fso = nothing

muligvis med denne modifikation:


set f = fso.OpenTextFile(server.mappath("ip.log"),true,8)

for at oprette i tilfælde af at filen ikke findes og 8 for at tilføje i slutningen af filen...

Tak for det.
Det prøver jeg lige af i løbet af dagen.
Og vender tilbage igen i aften.

Hejsa!

Så har jeg prøvet med:
<%
userIP = Request.ServerVariables("REMOTE_ADDR")

set fso = server.createobject("Scripting.FileSystemObject")
set f = fso.OpenTextFile(server.mappath("iplog.txt"))
f.WriteLine "[" & now & "] - " & userIP
f.close
set f = nothing
set fso = nothing
%>

Det virker ikke, har lavet skriverettighed til iplog.txt

Får følgende fejl.

Microsoft VBScript runtime error '800a0036'

Bad file mode

/company/index.asp, line 6


Mvh
JMS

Prøv lige den modifikation jeg foreslog i det efterfølgende post...

så får jeg:

Microsoft VBScript runtime error '800a0005'

Invalid procedure call or argument

/company/index.asp, line 5

HASTER. Har brug for noget der virker.
SMider nu 300P til den der kan hjælpe med en kode der virker.

Kunne desværre ikke give mere end 200p.

<%
Har selv løst det med:

filename = "logfile.txt\"
Set fs = CreateObject("Scripting.FileSystemObject\")
Set file = fs.OpenTextFile(server.mappath(filename), 8, True, False)
file.writeline(request.servervariables("REMOTE_ADDR"))
file.close
%>