Tjek om ip findes = fejl

hov, dette er i toppen over det her kode, fik det ikke lige med:



<%
If Request.QueryString("tagwall") = "post" Then
strIP = Request.Servervariables("REMOTE_ADDR")
%>

Prøv at rette:

strSQL = "SELECT TOP 1 * FROM T_TAGWALL"
Set rs = Conn.Execute(strSQL)

strIPTJEK = rs("M_IP")

If strIPTJEK <> strIPTJEK Then


til dette så den tjekke ip adresen:

strSQL = "SELECT * FROM T_TAGWALL where M_IP = '" & Request.ServerVariables("REMOTE_ADDR") & "'"
Set rs = Conn.Execute(strSQL)

If rs.EOF Then

Samme, det giver bare woops du har vist postet :)

Så må IP adressen være i databasen eller ville den ikke skrive det, er du 100% sikker på den ikke er i tabelen?

100% sikker :/

Har endda slettet ip adresserne i databasen for en sikkerheds skyld

Prøv lige at rette:

If rs.EOF Then

Til:

If rs.BOF or rs.EOF Then

Woops, du har vist postet for nylig!

altså jeg forstår det heller ikke selv, for jeg har trukket dataer ud af databasen + remote_addr og skrevet dem ud i browseren, og de var ikke ens! Derfor forstod jeg heller ikke hvorfor min metode ikke virkede, samtidig har jeg prøvet en metode der ligner din lidt...

Fatter ikke en ski...

Så hvis du inde i else delen tilføjer efter den du har:

Response.Write("Woops, du har vist postet for nylig!")
Response.Write rs("M_IP") & " " & Request.ServerVariables("REMOTE_ADDR")

Så vil den skrive to forskellige IP adresser?

Woops, du har vist postet for nylig! error '80020009'
/tagwall.asp, line 48

<%
                If Request.QueryString("tagwall") = "post" Then
                strIP = Request.Servervariables("REMOTE_ADDR")
            %>
            <!--#include file="dbconn.asp"-->
            <%
                strSQL = "SELECT * FROM T_TAGWALL where M_IP = '" & Request.ServerVariables("REMOTE_ADDR") & "'"
                Set rs = Conn.Execute(strSQL)
               
                If rs.BOF or rs.EOF Then

                Response.Write("Woops, du har vist postet for nylig!")
                Response.Write rs("M_IP") & " " & Request.ServerVariables("REMOTE_ADDR")
               
                Else
            %>
            <%
                strSQL = "INSERT INTO T_TAGWALL(M_NAME, M_TAG, M_WWW, M_IP, M_DATE) VALUES('"&Replace(Request.Form("formNICKNAME"),"'","''")&"', '"&Replace(Request.Form("formTAG"),"'","''")&"', '"&Replace(Request.Form("formWWW"),"'","''")&"', '"&strIP&"', Date())"
                Conn.Execute(strSQL)
                Response.Write("<a href=""tagwall.asp?tagwall=show"" class=""maintekst"">Taget er gemt i databasen, tryk her for at komme til tagwallen!</a>")
            %>
            <!--#include file="dbclose.asp"-->
            <%
                End if
            %>
            <%
                End if
            %>

If Request.QueryString("tagwall") = "post" Then er linie 48, hvilket jeg intet fatter af o_O

Når der er også blevet byttet rundt på then og else delen fra spørgsmålet.

Hvis det er lavet på den måde så ret:

              If rs.BOF or rs.EOF Then

Til:
              If Not rs.EOF Then

Virker...

Og nej jeg har ikke byttet om på nogle fra spørgsmålet af, udover det som du har bedt mig om :)

Tak for hjælpen