Mata in IP-nummer

För att det heter HTTP_REMOTE_ADDR.

Det fungerade dock ändå inte.

Koden:

Connect.Execute "UPDATE members SET datum = now(), ip = '"& Request.ServerVariables("HTTP_REMOTE_ADDR") & "', login = now (), status = 'Online' WHERE id = " & RecSet("ID")

Hur ser den färdiga SQL-frågan ut då?

<%
Set Connect = Server.CreateObject("ADODB.Connection") 
Connect.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" & Server.MapPath("db/fanclub.mdb")&";pwd=losen"
strUpdateSQL = "UPDATE members SET status = 'Offline' WHERE datediff('n', datum, now()) > 20"
Connect.Execute strUpdateSQL,,128

strSQL = "SELECT * FROM members WHERE lcase(username) = '" & replace(request.form("username"), "'", "''") & "' AND losen = '" & replace(request.form("losen"), "'", "''") & "'"
Set RecSet = Connect.Execute (strSQL)
If not RecSet.EOF Then
	' Inloggningen lyckades!
	Connect.Execute "UPDATE members SET datum = now(), ip = '"& Request.ServerVariables("HTTP_REMOTE_ADDR") & "', login = now (), status = 'Online' WHERE id = " & RecSet("ID")
	Session("namn") = RecSet("fnamn") & " " & RecSet("enamn")
	Session("fnamn") = RecSet("fnamn")
	Session("enamn") = RecSet("enamn")
	Session("username") = RecSet("username")
	Session("login") = "ok"
	Session("id") = RecSet("id")
	Session("status") = "Online"
	Session("epost") = RecSet("epost")
	strURL = "default.asp?visaSida=fanclub"
Else
	Session("meddelande") = "Fel användarnamn och/eller lösenord!"
	strURL = "default.asp?visaSida=start"
End if

RecSet.Close
Connect.Close
Set RecSet = nothing
Set Connect = nothing
Response.Redirect strURL
%>

När jag tänker efter heter det faktiskt bara REMOTE_ADDR, inte HTTP_REMOTE_ADDR. My bad.

Du svarade visserligen inte heller på min fråga, men det spelar ingen roll denna gång.

Nu funkar det, tack.