<%
'
' Note paths through site
'
strRemoteAdd = Request.ServerVariables("REMOTE_HOST")
RefURL = Request.ServerVariables("HTTP_REFERER")
'
' **Session Tracker goes here**
'
' Courtesy - haneng.com
'
' Only track if the visitor is not inside Laurell, the reference is not internal,
' and the page is not redirected from chemres.asp
'
strRemoteAdd = Request.ServerVariables("REMOTE_HOST")
if left(strRemoteAdd,3) <> "10." and inStr(RefURL,"www.laurell.com/") = 0 and inStr(RefURL,"chemres") = 0 then
'
' We connect to the database
'
set oDBConn = Server.CreateObject("ADODB.Connection")
oDBConn.Open strDBString
'
' Check if the person was referred by a page or not (e.g. bookmark)
'
IF Len(RefURL) = 0 THEN
'
' The person was not referred by a page
'
InsertIntoID = 1
ELSE
'
' The person was referred by a page
' Check if the URL already is in the database
' if it is get the URL's Ref_ID value
' if not set InsertIntoID = 0
'
SQL_query = "SELECT Ref_ID FROM RefTable WHERE URL = '" & RefURL & "'"
Set RS = oDBConn.Execute(SQL_query)
IF NOT RS.EOF THEN
InsertIntoID = TRIM(RS("Ref_ID"))
ELSE
InsertIntoID = 0
END IF
RS.Close
Set RS = nothing
END IF
strDate = FormatDateTime(Date)
strDateString = cStr(strDate)
'
' If InsertIntoID = 0 then the URL is a new URL
'
IF InsertIntoID = 0 THEN
'
' New Referral! Insert new url with count = 1
'
' SQL_query = "INSERT INTO RefTable (URL, Counter) VALUES ('" & RefURL & "',1)"
SQL_query = "INSERT INTO RefTable (LastDate, Counter, URL) VALUES ('" & strDateString & "',1,'" & RefURL & "')"
oDBConn.Execute(SQL_query)
ELSE
'
' Existing URL. Add 1 to the count
'
' SQL_query = "UPDATE RefTable SET Counter = Counter + 1 WHERE Ref_ID =" & InsertIntoID
SQL_query = "UPDATE RefTable SET Counter = Counter + 1, LastDate = '" & strDateString & "' WHERE Ref_ID =" & InsertIntoID
oDBConn.Execute(SQL_query)
END IF
oDBConn.Close
Set oDBConn = nothing
'
' END Laurell visitor check
'
end if
%>
spin coating, spin coater, spin processor, spin dryer, spin etcher, wafer spinner, wafer bonder, wafer bonding, wet etch station, and more - Laurell Technologies Corporation
link="#ff0099" vlink="#ff0099" text="#ffffff" topmargin="0" bottommargin="0" leftmargin="0" rightmargin="0" marginheight="0" marginwidth="0" background="images/scanline_back_2.gif">
<%=FormatDateTime(Date,1)%>
Laurell Technologies Corporation - Manufacturers of fine spin coaters, spin processors,
spin etchers, spin dryers, wet etch stations, and much more.
