IP address into MS Access database

[Quetzal]

Hello

I am trying to store visitors' IP addresses into an MS Access database.

I have two fields (visitorID, which is my AutoNumber, and IPAddress which has a text data field and allows zero length values) in a table called sIPAddresses.

I am using the following code:

<%

' Declare variables

Dim sIPAddress
sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If sIPAddress="" Then sIPAddress = Request.ServerVariables("REMOTE_ADDR")

'Open MS Access database, store form field values

set conn=Server.CreateObject("ADODB.Connection")

conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=D:\name\form.mdb;"

set rs = Server.CreateObject("ADODB.recordset")
SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & _
IPaddress & "')"

rs.Open SQL, conn
Set rs=Nothing

' Close the connection

conn.Close
Set conn=Nothing
%>

I do not get an qerror message, but I canot see that the databse is storing any IP addresses.

Can anybody assist, please?

Many thanks.

Quetzal

[alexk13]

Try this (untested but is the normal way i do things like this)

Code: Select all

sIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")
If trim(sIPAddress)="" Then 
  sIPAddress = Request.ServerVariables("REMOTE_ADDR")
End If

HTH
Alex

[Quetzal]

Hello Alex

Many thanks for your reply.

Yes, it worked, thanks, and the IP addresses are now stored in the database.

Thanks for your help.

Quetzal