Banne ip

Hvad er det galt med dette ?

<%

ipStr = Request.ServerVariables(\"REMOTE_ADDR\")

Set conn = Server.CreateObject(\"ADODB.Connection\")
  DSN = \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=\" & server.mappath(\"bogen.mdb\") & \"; UID=Administrator; PWD=\"
  conn.open DSN

SQL = \"SELECT ip FROM ip WHERE ip = ´\" & ipStr & \"´\"
Set rs = Conn.Execute ( SQL )

if not rs.EOF then
response.write \"Du har ikke adgang til denne side!\"
end if

set rs = nothing
set conn = nothing
%>

/cygnet