Skaf IP

Jeg søger en "Skaf IP Funktion", til en tagwall.
Jeg har funktionen til at banne IP, men kan ikke få "logget" ip´en til min admin, så jeg kan banne ham.
Mener dog det er noget at gøre inde i filen hvor den opretter besked..
Som ser sådan ud:

<%

Const adOpenKeyset = 1
Const adLockOptimistic = 3

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("tagwall.mdb")

    Set rs = Server.CreateObject("ADODB.RecordSet")
    strSQL = "Select * From tagwall"
    rs.Open strSQL, Conn, adOpenKeyset, adLockOptimistic

      rs.AddNew
      For each par in Request.Form
        strNummer = Replace(Request.form(par),"'","&#39;")
        strNummer = Replace(strNummer,"<","&lt;")
        strNummer = Replace(strNummer,">","&gt;")
        rs(par) = strNummer
      Next
      rs("Dato") = Now
      rs.Update

    rs.Close
    Set rs = Nothing

Conn.Close
set Conn = Nothing
response.redirect ("default.asp")
%>

<html>

<head>
<META HTTP-EQUIV="Refresh" CONTENT="5;URL=tagwall.asp">

<title>Din besked er indskrevet i gæstebogen.... :)</title>

</head>

<body topmargin="10" leftmargin="0"
rightmargin="0">
<center><FONT FACE="Arial" SIZE="+2">Beskeden er tilf&oslash;jet..</FONT></center>
<p align="center"><font face="Arial" size="+2">!!</font></p>
<p align="center">&nbsp;</p>
</body>
</html>

Nogen der hjælpe mig?