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),"'","'")
strNummer = Replace(strNummer,"<","<")
strNummer = Replace(strNummer,">",">")
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øjet..</FONT></center>
<p align="center"><font face="Arial" size="+2">!!</font></p>
<p align="center"> </p>
</body>
</html>
Nogen der hjælpe mig?
