Ændring af script

<%
SET objConn = Server.CreateObject("ADODB.Connection")
Set objRs = Server.CreateObject("ADODB.Recordset")
objConn.Open "Driver={Microsoft Access Database (*.mdb)};
strSQL = "SELECT * FROM iptabel"
While Not objRs.EOF
If
Request.Servervariables("REMOTE_ADDR") = rs("IPFELT")
Then
Response.Redirect ja.htm"
Else
Response.Redirect nej.htm"
End If
Wend
%>

//>Rune

Har prøvet med følgende men det virker ikke... Hvad er der galt??

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/Blokeret.mdb")
Conn.Open DSN
strSQL = "Select * From Blokeret"
Set rs = Conn.Execute(strSQL)

do while not rs.EOF

If
Request.Servervariables("REMOTE_ADDR") = rs("IP")
Then
Response.Redirect ../ADMIN/MEDDELLELSER/ip.htm"
Else
Response.Redirect default.asp"
End If
%>

Prøv med det her - og hvis det ikke virker, så post lige fejlen så er det lidt nemmere :-)

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/Blokeret.mdb")
Conn.Open DSN
strSQL = "Select * From Blokeret"
Set rs = Conn.Execute(strSQL)

do while not rs.EOF

If Request.Servervariables("REMOTE_ADDR") = rs("IP") Then
Response.Redirect "/ADMIN/MEDDELLELSER/ip.htm"
Else
Response.Redirect "default.asp"
End If
%>

Får bare en "Siden kan ikke vises" fejl... "HTTP 500 - Intern serverfejl
Internet Explorer "

Ok - så gør lige følgende i din IE - så vil den vise fejlen: Funktioner -> Internetindstillinger -> Avanceret -> Fjern kryds i "Vis meddelelse om uskadelige http-fejl"

Så bliver det til denne fejl:
Microsoft VBScript compilation error '800a03fb'

Expected 'Loop'

check_ip.asp, line 15

Har prøvet at fjerne "do while not rs.EOF" Det hjalp på fejlen...
Men nu kommer jeg til "default.asp" selvom min IP står i databasen...

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/Blokeret.mdb")
Conn.Open DSN
strSQL = "Select * From Blokeret"
Set rs = Conn.Execute(strSQL)

If not rs.eof then
Do Until rs.eof

If cstr(Request.Servervariables("REMOTE_ADDR")) = cstr(rs("IP")) Then
  Response.Redirect "/ADMIN/MEDDELLELSER/ip.htm"
Else
  Response.Redirect "default.asp"
End If

Loop
End if
%>

Det giver det samme resultat som før. Uanset hvad så kommer jeg videre til "default.asp"...

Så lad os fjerne cstr :-)

<%
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("../DATABASER/Blokeret.mdb")
Conn.Open DSN
strSQL = "Select * From Blokeret"
Set rs = Conn.Execute(strSQL)

If not rs.eof then
Do Until rs.eof

If Request.Servervariables("REMOTE_ADDR") = rs("IP") Then
  Response.Redirect "/ADMIN/MEDDELLELSER/ip.htm"
Else
  Response.Redirect "default.asp"
End If

Loop
End if
%>

Igen -> Det giver det samme resultat som før. Uanset hvad så kommer jeg videre til "default.asp"...

<%
' Databaseforbindelse - husk at angive sti til din database
Set Conn = Server.CreateObject("ADODB.Connection")
DSN = "DRIVER={Microsoft Access Driver (*.mdb)}; "
DSN = DSN & "DBQ=" & Server.MapPath("/data/blokeret.mdb")
Conn.Open DSN

seekip = request.ServerVariables("REMOTE_ADDR")

strSQL = "Select * From blokeret Where ip='" & seekip & "';"
Set rs = Conn.Execute(strSQL)
if (rs.BOF AND rs.EOF) then
response.Redirect ("default.asp")
else
response.Redirect ("admin/meddeleser/ip.asp")
'response.Write(rs("ip") & " Nægtet adgang - ip er blokeret")
end if
%>