IP Address into MS Access database

SteveHigh · Jan 17, 2007

Hello

I have an MS Access database with two fields: VisitorID and IPAddress (this latter is a text data field and accepts zero-length strings).

I have the following code in my <head></head> tags and do not get an error message.

The database table (called sIPAddresses) does increment by one in the VisitorID field each time a visitor clicks on the site, but it does NOT insert the IPAddress in the adjacent column.

Any ideas, please?

Many thanks.

Steve

<%
' Declare variablesDim sIPAddresssIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

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

'Open MS Access database, store form field valuesset

conn=Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=D:\business\nameofform.mdb;"

set rs = Server.CreateObject("ADODB.recordset")

SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & _IPaddress & "')"

rs.Open SQL,
connSet rs=Nothing

' Close the connection

conn.CloseSet conn=Nothing
%>

Tarwn · Jan 18, 2007

I don't see anything wrong with your code. Are you sure your collecting valid IP Addresses? Try Response.Write'ing your SQL string so you can see what it is actually writing.

SteveHigh · Jan 18, 2007

Hello Tarwn

Thank you for your message.

I am not sure how to do that, sorry. Do you mean use Response.Write in the actual asp file? And where would I insert Response.Write?

I have searched on the Web, but the explanations are not too clear.

Many thanks again, Tarwn.

Steve

mbiro · Jan 18, 2007

Shouldn't this:

SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & _IPaddress & "')"

be this:

SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & sIPaddress & "')"

because

sIPAddress = Request.ServerVariables("REMOTE_ADDR")

I do not see a variable set for _IPaddress

Tarwn · Jan 18, 2007

Good catch, I completely overlooked that.

bslintx · Jan 18, 2007

i see the probable fix action...to anser the other question...

Code:

<%
' Declare variablesDim sIPAddresssIPAddress = Request.ServerVariables("HTTP_X_FORWARDED_FOR")

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

'Open MS Access database, store form field valuesset

conn=Server.CreateObject("ADODB.Connection")conn.Open "driver={Microsoft Access Driver (*.mdb)};DBQ=D:\business\nameofform.mdb;"

set rs = Server.CreateObject("ADODB.recordset")

' sql debug...remove comments to test
' Response.Write "INSERT INTO sIPAddresses (IPaddress) VALUES ('" & IPaddress & "')"
' Response.End



SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & _IPaddress & "')"

rs.Open SQL, 
connSet rs=Nothing

' Close the connection

conn.CloseSet conn=Nothing
%>

SteveHigh · Jan 19, 2007

You have all been most helpful - thank you.

bslintx, thanks for letting me know how best to script the Response.Write statements. I have saved your post and will use it for future reference.

Mbiro's SQL="INSERT INTO sIPAddresses (IPaddress) VALUES ('" & sIPaddress & "')"

worked! The IP address is now stored in the database. Many thanks.

Just for your own information, I was informed elsewhere that I could not use rs in this type of INSERT and that I needed to use: conn.Execute(SQL). This worked, too.

Cheers

Steve

Tek-Tips is the largest IT community on the Internet today!

Members share and learn making Tek-Tips Forums the best source of peer-reviewed technical information on the Internet!

IP Address into MS Access database

SteveHigh

Technical User

Tarwn

Programmer

SteveHigh

Technical User

mbiro

Programmer

Tarwn

Programmer

bslintx

Technical User

SteveHigh

Technical User

Similar threads

Part and Inventory Search

Sponsor