check om brugernes ip findes i en række i en db ???

Set rs = Conn.Execute("SELECT ip FROM tabelnavn WHERE ip='" & ip_adresse & "'")

If Not rs.EOF Then
Response.Redirect("error.asp")
End If

<%

Dim sQuery, oRS

sQuery = "SELECT (ipfelt = '"& Request.ServerVariables("remote_addr") &"' AS ipExists FROM dintabel"

Set oRS = DBC.Execute(sQuery)

If(oRS("ipExists")) Then
' bla bla
Else
' Bla bla
End If
Set oRS = Nothing
%>

jeg har sikkert lavet et par skrivefejl, så tag det ikke for højtideligt.

DBC er self. din database connection.

- Rou

hvor står det dBC ?

er dette korrekt ???
<%
Set sQuery = Server.CreateObject("ADODB.Connection")
sQuery.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("Data/DataBank.mdb")
%>

<%

Dim sQuery, oRS

sQuery = "SELECT (ip = '"& Request.ServerVariables("remote_addr") &"' AS ipExists FROM IpBan"

Set oRS = DBC.Execute(sQuery)

If(oRS("ipExists")) Then
Else
Response.Redirect("error.asp")
End If
Set oRS = Nothing
%>

Nope,

<%
Set DBC = Server.Createobject
DBC.Open ...
...
..
.
%>

hmm - det virker overhovedet ikke :-(

hvilke felter skal jeg have i min tabel ???

du skal vel bare have det ip felt, hvad du end kalder det.