Too few parameters. Expected 1.

Hvis ip er en tekst kolonne skal der ' omkring teksten i SQL sætningen sådan her:



strSQL= "SELECT * FROM banning WHERE ip= '" & Request.ServerVariables("REMOTE_HOST") & "'"

Prøv med flg.:

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip='" & Request.ServerVariables("REMOTE_HOST") & "'"
Set rs = Conn.Execute(strSQL)

if rs("ip") =  Request.ServerVariables("REMOTE_HOST")  Then
Response.Write "Du er Bannet !"
End If
%>

Er ikke sikker på det virker da jeg ikke kender din database :-)

nu kom den her fejl, hvis jeg satte ' ' rundt om:

error '80020009'

Prøver lige ..

Nope samme fejl med begge koder .. :S Har endda prøvet at tilføje min IP til databasen, men det ændret ikk noget ..

Kan ikk huske om jeg har sat den til MEMO eller Text .. :S

Hmm - det lyder meget mærkeligt.

Prøv med flg. - er slet ikke sikker - det er lidt et skud i luften.

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip= & Request.ServerVariables("REMOTE_HOST") & "
Set rs = Conn.Execute(strSQL)

if rs("ip") =  Request.ServerVariables("REMOTE_HOST")  Then
Response.Write "Du er Bannet !"
End If
%>

Men det kan du vel undersøge ved at åbne din db :-)

Expected end of statement

på strSQL linien ..

Prøv at paste hele fejl koden ind og ikke kun:  error '80020009'

Hvis der er Text eller Memo skal der ' omkring i begge tilfælde.

Er næsten helt sikker på denne vil virke:
strSQL= "SELECT * FROM banning WHERE ip='" & Request.ServerVariables("REMOTE_HOST") & "'"

Den er skrevet før - men expected 1 kan også betyde at den ikke kan finde feltet 'ip' - tjek lige efter at du har skrevet det helt korrekt

error '80020009'
/highrisetimenews/whobanned2.asp, line 8
Linie 8 er if sætningen ..

Ok - så prøv med denne kode:

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip='" & Request.ServerVariables("REMOTE_HOST") & "'"
Set rs = Conn.Execute(strSQL)

if rs.eof then
else
do until rs.eof

if rs("ip") =  Request.ServerVariables("REMOTE_HOST")  Then
Response.Write "Du er Bannet !"
End If

rs.movenext
loop
end if
%>

Hmm nu er der ikk nogen fejl .. Men min IP er i Databasen, og den siger ikk at jeg er bannet ?

Prøv  sådan her:


<%
DataPath = Server.MapPath("../database/ban.mdb")

  Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip='" & Request.ServerVariables("REMOTE_HOST") & "'"
Set rs = Conn.Execute(strSQL)
if  not rs.EOF Then
Response.Write "Du er Bannet !"
End If
%>

Argh - selvfølgelig eagleeye, min kode var da helt i tågen. Tænkte ikke på man kunne gøre det på den måde... Så kan jeg vidst se langt efter de point :-)

Nope , den skriver det stadig ikk .. min ip er 212.10.3.110 , og den er i DB'en, har lige tjekket .. Men den skriver ikk jeg er Bannet ..

Jeg prøver igen - dog med lidt fra eagleeye's kode :-)

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip='" & Cstr(Request.ServerVariables("REMOTE_HOST")) & "'"
Set rs = Conn.Execute(strSQL)

if  not rs.eof Then
Response.Write "Du er Bannet !"
End If
%>

Cstr(Request.ServerVariables("REMOTE_HOST"))

Nope , stadig ingen ting .. :S Siden er blank .. Hvad kan fejlen være ? fatter det ikke :S

hvor køre du koden, hvis det er et web-hotel er du sikker på du har uploadet filen?

Det er fra Web10.dk .. Jaa alt er uploadet .. Har tjekket efter .. Alt er der ..

Hvad sker der hvis du udskriver IP adressen:


response.Write "IP="&Request.ServerVariables("REMOTE_HOST")

Så kommer IP=d40a036e.rev.stofanet.dk frem , det jo ikk min IP adresse , men min HOST adresse .. Derfor den ik siger jeg er bannet :S

Ok - så prøv med

<%
DataPath = Server.MapPath("../database/ban.mdb")

Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & DataPath & ""
strSQL= "SELECT * FROM banning WHERE ip='" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set rs = Conn.Execute(strSQL)

if  not rs.EOF Then
Response.Write "Du er Bannet !"
End If
%>

Der var den  ! :) heeh .. Troede ikk der var forskel .. :) heeh .. Dumt jeg havde overset den fejl . . :) Smid svar madeInDK .. :)

Svar.

Jeg vil gerne dele med eagleeye - han gjorde også en stor del af arbejdet :-)

NU skal jeg bare ha lavet et system hvor jeg kan se alle dem som er bannet, tilføje nye IP'er, slette IP'er, og sætte en Expire på .. heeh .. Gosh et projekt jeg har sat mig for .. ;)

Skal det være 50/50 eller 60/40 eller 70/30 eller 80/20 ? altså du får flest da du kom med løsningen .. ;D

Så vidt jeg kan se så løste vi lige mange fejl..

Så det blir 50/50 ? eller ?

Ja - det lyder meget fornuftigt :-)

Det er rigtigt det eagleeye siger

Er i friske på at hjælpe mig med at lave et system hvor jeg kan se alle dem som er bannet, tilføje nye IP'er, slette IP'er, og sætte en Expire på  ? heeh .. :P I får selvf flere point i nyt spm .. heeh ..

Ja - forsøg selv - så skal jeg nok holde øje med dine spørgsmål, hvis der er noget du ikke kan løse ;)

Har et nu, jeg skal have vist dem som er i DB'en. har ikk lært at lave de der tables rigtigt, men her er HTML råkoden:

<div align="left">
  <table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="448" height="1" id="AutoNumber1">
    <tr>
      <td width="111" height="1">IP</td>
      <td width="111" height="1">Bannet</td>
      <td width="112" height="1">Udløber</td>
      <td width="112" height="1">Fordi</td>
    </tr>
    <tr>
      <td width="111" height="1">212.10.3.210</td>
      <td width="111" height="1">21:10 14/6-2006</td>
      <td width="112" height="1">23:10 14/6-2006</td>
      <td width="112" height="1">Test Banning...</td>
    </tr>
        </table>
</div>
Som i kan se øverst er den øverste bjælke den øverste af dem, den skal være øverst, bagefter skal den nederste Loop'es det antal gange som der er Records hvor felterne blir udfyldt ligesom jeg har gjort ..

Opret et nyt spørgsmål - så kigger vi på det :-)

Smid linket til det nye spørgsmål her...

http://www.eksperten.dk/spm/715482