ip scrip FORM

Man kan vel kalde hva man har lyst til

:-P

Øhh et logscript?!

du gør bare sådan her:

<%
  Response.Write(Request.ServerVariables("REMOTE_HOST"))
%>

//>Rune

medions....
har du et færdig script
ligender  eller link

bent@bent-petersen.dk

Skal brugeren kunne se det, eller skal det skrives i en tekstfil (til eget brug - som en logfil)?

Den her skriver ipen i en tekstfil der hedder :counter.html (tror nok du selv skal oprette den - det gad jeg vist ikke lave i sin tid)
<%
Sub ShowCounter(bType)
        dim objFS
        dim strdir
        dim strcountfile
    dim str
        dim tmphits
        str =                 "<br>"+Cstr(now)+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+request.ServerVariables("REMOTE_ADDR")+"&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;"+request.ServerVariables("REMOTE_HOST")
        'response.write str
        Set objFS = Server.CreateObject("Scripting.FileSystemObject")
    strDir = Request.ServerVariables("SCRIPT_NAME")
    strCountFile = Server.MapPath(Left(strDir, InStrRev(strDir,"/"))) & "\counter.html"

    ' On Error Resume Next
    Set objFile = objFS.OpenTextFile(strCountFile, 1, False)
    tmpHits = Trim(objFile.ReadLine)
    tmpHits = tmpHits + str
    objFile.Close
    Set objFile = objFS.CreateTextFile(strCountFile, True)
    objFile.WriteLine(tmpHits)
    Set objFS = Nothing   
End Sub
%>