Newbie - IP

<%
    If Request.Cookies(\"visited\")(\"state\") = \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Conn.Execute \"INSERT INTO ip(ip) VALUES (\'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\');\"
        Response.Cookies(\"visited\")(\"state\") = \"yes\"
        Response.Cookies(\"visited\").Expires = DateAdd(\"d\", 1, Now)
    End If
%>

<%
    If Request.Cookies(\"visited\")(\"state\") = \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Conn.Execute \"INSERT INTO db1(ip) VALUES (\'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\');\"
        Response.Cookies(\"visited\")(\"state\") = \"yes\"
        Response.Cookies(\"visited\").Expires = DateAdd(\"d\", 1, Now)
    End If
%>

<%
    If Request.Cookies(\"visited\")(\"state\") = \"\" Then
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Conn.Execute \"INSERT INTO ip(ip) VALUES (\'\" & Request.ServerVariables(\"REMOTE_ADDR\") & \"\');\"
        Response.Cookies(\"visited\")(\"state\") = \"yes\"
        Response.Cookies(\"visited\").Expires = DateAdd(\"d\", 1, Now)
    End If
%>

<%
        Set Conn = Server.CreateObject(\"ADODB.Connection\")
        Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

        Set Rs = Conn.Execute(\"SELECT COUNT(*) FROM ip;\")
       
%>
<%=Rs(0)%>
<p>
<%
Set Conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"Driver={Microsoft Access Driver (*.mdb)};DBQ=\" & Server.MapPath(\"db.mdb\")

set RS = conn.execute(\"SELECT TOP 5 * FROM ip ORDER BY id DESC;\")
Do Until rs.EOF
Response.Write rs(\"ip\")&\"<br>\"
rs.MoveNext
Loop
%>

Lav en database der hedder db og en tabel der hedder ip

Og to kolonner en der hedder id og en der hedder ip

Jeg er ked af det jeg glemte noget... kommer om lidt

Den skal sniffe ip\'en når brugeren trykker på en knap og poster noget andet i databasen. Tabel hedder db1!! og kolonen hedder ip

<html>
<head>
</head>
<body>

<form method=get action=\"default.asp?mode=AddNew\" id=form name=form>
&nbsp;&nbsp;<font><STRONG><font face=arial size=3>Nyt Brugernavn</font></STRONG></font>
<br>
&nbsp;    <INPUT id=brugernavn name=brugernavn size=\"25\" maxlength=\"40\">
<br>
   

    <P>&nbsp;&nbsp;<INPUT type=\"submit\" value=\"Submit\" id=submit1 name=submit1></P>
    <input type=\"hidden\" value=AddNew name=mode id=mode></form>


<%
if request(\"mode\") = \"AddNew\" then
%>

    <%
    Set DataConn = Server.CreateObject(\"ADODB.Connection\")
    DSN = \"DRIVER={Microsoft Access Driver (*.mdb)};uid=admin; \"
    DSN = dsn & \"DBQ=\" & server.mappath(\"../../mdb/db.mdb\")

    DataConn.Open DSN

    Set Record = Server.CreateObject(\"ADODB.RecordSet\")
    Record.open \"Select * From [db1] Order by id\", DataConn, 1, 3


    Record.AddNew
        Record.Fields(\"brugernavn\") = Request(\"brugernavn\")

    Record.Update

    Record.Close
    set Record = nothing
    Dataconn.Close

    Response.Redirect(\"default.asp\")
    %>

<%
end if
%>

</body>
</html>

Record.AddNew
Record.Fields(\"brugernavn\") = Request(\"brugernavn\")

skifter du til

Record.AddNew
Record.Fields(\"brugernavn\") = Request(\"REMOTE_ADDR\")

mener du skifter den til

Record.AddNew
Record.Fields(\"brugernavn\") = Request(\"brugernavn\")
Record.Fields(\"brugernavn\") = Request(\"REMOTE_ADDR\")

Skriver den så ikke ip\'en i kolonen brugernavn i databasen... den skal skrive den til kolonen ip i databasen

FUCK mener du skal skifte den til:

Record.AddNew
Record.Fields(\"brugernavn\") = Request(\"brugernavn\")
Record.Fields(\"ip\") = Request(\"REMOTE_ADDR\")

jeg prøver

selvom jeg ved at det er den korrekte :o)

hehe det var det også

fint