Skriv IP til Database

Du skal sige hvilken række den skal gøre det på... og så skal du gøre det via. en update sql sætning. Sådan ville jeg gøre det ud fra hvordan jeg har forstået spørgsmålet.. er dog på vej ud af døren desværre men der kommer vel en anden forbi om lidt.

hvordan tilføjer du ip'en til databasen...er der andre ting der allerede skrives til databasen?

<%
If Request.QueryString("admin") = "tjek" then
navn = trim(replace(Request.Form("brugernavn"), "'", ""))
kode = trim(replace(Request.Form("kode"), "'", ""))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/System.mdb")
sql = "SELECT * from admin WHERE brugernavn = '" & navn & "' AND kode = '" & kode & "'"
Set rs = Conn.Execute(sql)
if not rs.eof then
Session("brugeradgang") = "1"
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Session("status") = rs("status")
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Response.Redirect "../Plus/Menu.asp"
else
response.redirect "../Plus/Fejl.asp"
end if
end if
Set conn = Nothing
Set rs = Nothing
%>



Sådan ser det andet ud?

Der henter den noget info fra databasen. Når du skal skrive noget går det jo den anden vej.
se om dette virker:
rs("ip") = Request.ServerVariables("REMOTE_ADDR")
istedet for:
Session("IP") = Request.ServerVariables("REMOTE_ADDR")

og så en rs.update nedenunder

rs("ip") = Request.ServerVariables("REMOTE_ADDR")
rs.Update

tak :>

ADODB.Recordset error '800a0cb3'

Current Recordset does not support updating. This may be a limitation of the provider, or of the selected locktype.

/Plus/login.asp, line 46


Så får jeg denne fejl.

Du kan eventuelt gøre sådan:
-------------------------------
<%
If Request.QueryString("admin") = "tjek" then
navn = trim(replace(Request.Form("brugernavn"), "'", ""))
kode = trim(replace(Request.Form("kode"), "'", ""))
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath ("../db/System.mdb")
sql = "SELECT * from admin WHERE brugernavn = '" & navn & "' AND kode = '" & kode & "'"
Set rs = Conn.Execute(sql)
if not rs.eof then

Set gw = Server.CreateObject("ADODB.RecordSet")
MySQL = "Select * From admin WHERE ID = " & rs("ID")
gw.Open MySQL, Conn, 1, 3           
gw.Update
gw("ip") = Request.ServerVariables("REMOTE_ADDR")
gw.Update

Session("brugeradgang") = "1"
Session("brugernavn") = rs("brugernavn")
Session("id") = rs("id")
Session("status") = rs("status")
Session("IP") = Request.ServerVariables("REMOTE_ADDR")
Response.Redirect "../Plus/Menu.asp"
else
response.redirect "../Plus/Fejl.asp"
end if
end if
Set conn = Nothing
Set rs = Nothing
%>

/Hans

If Request.QueryString("admin") = "tjek" then
    navn = trim(replace(Request.Form("brugernavn"), "'", ""))
    kode = trim(replace(Request.Form("kode"), "'", ""))
    tempConn = "PROVIDER=MSDASQL;DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("../db/System.mdb") & ";UID=admin;PWD=;"
    Set myConn = Server.CreateObject("ADODB.Connection")
        myConn.Open tempConn
        strSQL = "SELECT * from admin WHERE brugernavn='joker' AND kode='bleah';"
        Set rs = Server.CreateObject("ADODB.RecordSet")
            rs.Open strSQL, myConn, 1, 3
            if not rs.eof then
                Session("brugeradgang") = "1"
                Session("brugernavn") = rs("brugernavn")
                Session("id") = rs("id")
                Session("status") = rs("ip")
                Session("IP") = Request.ServerVariables("REMOTE_ADDR")
                rs("ip") = Request.ServerVariables("REMOTE_ADDR")
                Response.Redirect "../Plus/Menu.asp"
                rs.update
            else
                response.redirect "../Plus/Fejl.asp"
            end if
        Set conn = Nothing
    Set rs = Nothing
end if
prøv at åbne forbindelsen på denne måde..
jeg har lige testet selv så hvis der er fejl i databasenavn/tabeller osv må du lige rette til.

hansdam - Det virkeR :o

Giv mig et svar og du får pointene.

Det er godt det virker :)