Blok ip / send til anden side

<%

strIP = Request("REMOTE_ADDR")

    strConn = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("xxxx.mdb")
    Set adoCn = Server.CreateObject("ADODB.Connection")
    adoCn.Open strConn

    set adoRs = Server.CreateObject("ADODB.Recordset")
    strSQL = "SELECT kolonne From tabel WHERE ip='"& strIP &"'"
    set adoRs = adoCn.Execute(strSQL)
   

    If not adoRs.eof Then
              response.clear
              response.redirect "http://www.yahoo.dk"
            response.end
    Else
      response.redirect "http://www.eksperten.dk"
    End if

%>

Tak, kan man så bare include den på de sider man vil ha beskydtet?

Det tager 2 sekunder at prøve.. det burde du kunne

hmm den står nærmest bare og loader siden i en uendelighed syntes jeg

delte bare koden op og smed ind manuelt..s å nu virker det fint! tak for hjælpen!