Bannding System

Prøv med dette:
<%
\'Lav connection objekt
Set objRS = objConn.Execute(SELECT banned_ip FROM banned WHERE banned_ip = \'\" & Request.ServerVariables(\"REMOTE_ADDR\") % \"\'\")
If objRS.EOF Then
page = \"test2.asp\"
Else
page = \"test.asp\"
End if
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.redirect(page)
%>

jeg prøver

Hjælp.... gider du ikke skrive hele koden, lige meget selvfølgelig med alt det indenfor <html></html>!!!

Er det en access database ligger den i samme mappe som scriptet bliver kørt?

Ja MS access.... her er stien: (../../mdb/settings.mdb)

.

hmmm \"okay\"... er du idle?

:o)

Sådan(tilpas lige stien så den passer...det skal være den fulde sti)
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\\www\\sti\\til\\db\\settings.mdb\"
objConn.Open DSN
Ip = Request.ServerVariables(\"REMOTE_ADDR\")
SQL = SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"
Set objRS = objConn.Execute(SQL)
If objRS.EOF Then
page = \"test2.asp\"
Else
page = \"test.asp\"
End if
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.redirect(page)
%>

eromaster > *g* jeg skal bare tilføj denne spg i mine \"Spørgsmål hvor du deltager\"

Error Type:
Microsoft VBScript compilation (0x800A03EA)
Syntax error
/sek/www/sek/test.asp, line 6, column 6
SQL = SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"
-----^

Jeg har prøvet at lægge den i samme rod som test.asp og det virker heller ikke...

LOL...... okay \"okay\".... du har et svært at fører en samtale med!!! :o)

du har et svært navn at fører en samtale med!!! :o)

EVEN

Ret linien
SQL = SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"

til

SQL = \"SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"

min kode ser sådan ud nu i test.asp
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:/settings.mdb\"
objConn.Open DSN
Ip = Request.ServerVariables(\"REMOTE_ADDR\")
SQL = \"SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"
Set objRS = objConn.Execute(SQL)
If objRS.EOF Then
page = \"test2.asp\"
Else
page = \"test.asp\"
End if
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.redirect(page)
%>
<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

Du er ikke banned

</BODY>
</HTML>

databasen ligger i samme rod som test.asp

Fejlbesked:
Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver]General error Unable to open registry key \'Temporary (volatile) Jet DSN for process 0x594 Thread 0x62c DBC 0x28c8f24 Jet\'.
/sek/www/sek/test.asp, line 4

Jeg smutter i seng jeg kigger på det igen i morgen... håber du kan finde fejlen

du kunne jo starte med at lave stien til din db med backslah istedet frontslash, altså
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:\\settings.mdb\"
og ikke
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=c:/settings.mdb\"

har jeg prøvet... virker stadig ikke

Er du sikker på at databasen ligger i c:\\ og at IUSER_webserver har læserettigheder der?

virker det hos dig?

okay så fik jeg det til at virke... men den linke indtil test2.asp uanset om jeg banned eller ej

Hov vent lige på den server hvor den skal uploades til, kan jeg ikke se om det c: eller d: osv roden den ligger i!!!

men sådan er sådan er siden bygget op... hovedroden ligger der 2 mapper. En mdb mappe til database.

Siderne ligger i den anden mappe sådan her:
WWW/sek/

WWW og mdb ligger i samme start rod

Lav en blank ASP side på dit websted mewd dette indhold så kan du få stien:

<%= Server.MapPath(\".\")%>

done den hedder server.asp

det eneste der står i er

<%= Server.MapPath(\"../../mdb/\")%>

er det rigtig?

Det er min første asp sider www.clansek.dk så jeg er OVERHOVEDET ikke god...

doh nu forstår jeg

okay så har jeg den....

D:\\hotel\\nicor.dk\\WWW\\sek

Det virker stadig ikke min kode ser sådan ud:
<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\\hotel\\nicor.dk\\mdb\\settings.mdb\"
objConn.Open DSN
ip = Request.ServerVariables(\"REMOTE_ADDR\")
SQL = \"SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"
Set objRS = objConn.Execute(SQL)
If objRS.EOF Then
page = \"test2.asp\"
Else
page = \"test.asp\"
End if
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.redirect(page)
%>

<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

test.asp - Du er ikke banned

</BODY>
</HTML>

Og du er sikker på at:

1)Prøv at udskriv resultatet istedet for at redirecte:

Altså
Respose.write(page)
istedet for
Response.redirect(page)

Jeg kan simpelthen ikke få det til at virke....

www.clansek.dk/server.asp tjek det for dir.

www.clansek.dk/test.asp
og
www.clansek.dk/test2.asp

prøv det her:

<%
Set objConn = Server.CreateObject(\"ADODB.Connection\")
DSN= \"DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=D:\\hotel\\nicor.dk\\mdb\\settings.mdb\"
objConn.Open DSN
ip = Request.ServerVariables(\"REMOTE_ADDR\")
SQL = \"SELECT banned_ip FROM banned WHERE banned_ip = \'\" & ip & \"\'\"
Set objRS = objConn.Execute(SQL)
If objRS.EOF Then
Response.Redirect \"test2.asp\"
Else
Response.Redirect \"test.asp\"
End if
objRS.close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
%>

<HTML>
<HEAD>
<META NAME=\"GENERATOR\" Content=\"Microsoft Visual Studio 6.0\">
</HEAD>
<BODY>

test.asp - Du er ikke banned

</BODY>
</HTML>

fejl 500

jeg prøver det lige med min server...der kommer den aldrig med fejl 500 men med en specifik fejl :)

men kan du så ik lige sende databasen til sa49@mail1.stofanet.dk ???

så er det sendt

tak for point!!!