Tracking visitors to pages

Emmett Power · Apr 29, 2004

Hi,

I am inviting customers to view a page on my website. The invitation
email includes the url and sufficient variables to identify them
(email, name, company)

I want to track who actually views the page and capture the data in a
database. Obviously I could ask them to submit a form but I'd rather
not do that.

How can I do this? Should I, for example, have a hidden form which
automatically submits through JavaScript or is there some other, more
elegant, solution?

Any suggestions would be appreciated.

Regards

Emmett Power

Gary Jones · Apr 30, 2004

Emmett Power eh ? I've not heard that name for a while...

What the previous respondant said is quite correct, plus you can also
capture stuff such as their IP address and Browser type from the
Request.Servervariables collection

e.g. (making certain assumptions about database type, structure & location)

<%
Option Explicit
On Error Resume Next
Dim strName, strCompany, strEmail, strBrowserDetails, strIPAddress
Dim objdbConnection, objdbRecordset
Dim strConnectionString, strSQL
Dim strDateTime, strMessage, intDebug
intDebug = 0 'Change to 1 if you want to see any trace messages

With Request
strName = .QueryString("Name")
strCompany = .QueryString("Company")
strEmail = .QueryString("Email")
strBrowserDetails=.ServerVariables("HTTP_USER_AGENT")
strIPAddress = .ServerVariables("REMOTE_ADDR")
strDatetime = Now()
End With

strConnectionString = "driver={Microsoft Access Driver (*.mdb)};" _
& "Driverid=25, FIL=MS Access;" _
& "ImplicitCommitSync=Yes;MaxBufferSize=512;MaxScanRows=8;" _
& "PageTimeout=5;SafeTransactions=0;Threads=3;UserCommitSync=Yes;" _
& "dbq=" & Server.MapPath("./UserData.mdb") & ";"

strSQL = "INSERT INTO UserVisits(VisitDate, Name, Company,Email,
BrowserDetails, IPAddress)" _
& " VALUES ('#" & Left(strDatetime,10) & "#','" _
& strName & "','" _
& strCompany & "','" _
& strEmail & "','" _
& strBrowserDetails & "','" _
& strIPAddress & "')"

If intDebug = 1 Then Response.write(" strSQL=" & strSQL)

Set objdbConnection = Server.CreateObject("ADODB.Connection")
objdbConnection.Open strConnectionString

Set objdbRecordSet = objdbCOnnection.Execute(strSQL)
If Err Then
strMessage = " An error occurred. Details are as follows " &
Err.Description
Else
strMessage = " Your details have been logged to assist us in
providing you with blah blah blah..."
End If

objdbRecordSet.Close
Set objdbRecordSet = Nothing
Set objdbConnection = Nothing
%>
<HTML><BODY>
Normal Page Content<%=strMessage%>
</BODY></HTML>

Emmett Power · Apr 30, 2004

Gary,

Thanks for the code. Is that 'the' Gary Jones?

If so drop me a line at Silico Research and let me know what you're up
to.

Regards

Emmett

Clear Pixel Tracking	3	Nov 17, 2005
I want visitors to be able to leave comments...	6	Mar 26, 2006
Need help with code on website (noob)	2	Jul 18, 2022
Viral Marketing -- How to get visitors to your site	9	Oct 8, 2003
Border attribute not working	1	Sep 3, 2018
passing form variables between pages - not another searchstring question :)	1	Nov 16, 2005
Pay a wazzup gives life you just have to read everything I told you	0	Mar 3, 2012
Unfancify a White Pages search.	4	Jan 10, 2007

Tracking visitors to pages

Emmett Power

Gary Jones

Emmett Power

Ask a Question

Similar Threads

Members online

Forum statistics

Latest Threads