Besøgstæller/registrering i asp

det er meget nemt at lave.. kan du kode noget ASP oberhovedet eller er det det færdige script du gerne vil have?

<%

   
    ' skal tomme referrers også gemmes i logfil ?
    logTomme = true

    ' find logfilens navn ud fra dags dato
    'filename = right("0" & year(now), 2) & right("0" & month(now), 2) & right("0" & day(now), 2) & ".log"
   
    'En samlet logfil istedet for en pr dag
    filename = "tracker.log"
       
    ' opret system objektet til filhåndtering
    Set fs = CreateObject("Scripting.FileSystemObject")

    ' opret en reference til vores logfil - enten eksisterende ellers oprettes en ny
    Set a = fs.OpenTextFile(server.mappath(filename), 8, True, False)

    ' hvis der er nogen referrer, så gemmes denne
    if request.servervariables("HTTP_REFERER") <> "" then
        a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
    else
        if logTomme then
            a.writeline(time & " : [" & request.servervariables("REMOTE_ADDR") & "] - " & request.servervariables("HTTP_REFERER") & " - " & request.servervariables("HTTP_USER_AGENT"))
        end if
    end if

    a.close

%>

her vil den oprette en fil på serveren, hvor den vil logge alle de iper der har besøgt din side..!

//>Rune

conn = "DRIVER={Microsoft Access Driver (*.mdb)}; "
conn = conn & "DBQ=" & server.mappath("noter.mdb")
'Diff af login...
        set rsLog = Server.CreateObject("ADODB.Connection")
        rsLog.Open conn   
      Tid = now()
        IP = Request.ServerVariables("REMOTE_ADDR")
        Browser = Request.ServerVariables("HTTP_USER_AGENT")
                from = Request.ServerVariables("HTTP_REFERER")
        SQLLog = "INSERT INTO TLog(Bruger, Pass, Tid, IP, Browser, from) VALUES ('"&Bruger&"','"&Pass&"','"&Tid&"','"&IP&"','"&Browser&"','"&from&"')"
        rsLog.Execute(SQLLog)

Thx 4 Poinz

//>Rune