<%@LANGUAGE="VBSCRIPT"%>
<%
' Value for the url being requested
url=trim(request.querystring("url"))
' if no url is detected then show then
' show a page with links
if url="" then %>
SailHead.com extreme sailing I Daily Sailing News
TERRAMAR SILK-WEIGHT S/S TEE
100%
Microfiber Polyester Silk-weight
EC2® Qwik-Dri® process for fast drying
Double needle construction around neck, shoulders and
arm hole
Rib Trim colla,r Ultra-lightweight
Luxurious, super soft, Quick Drying
Color
Shown: Dark Sea
Price:
$25.95 USD
Goods
and services provided by Bowmansunion.com (IL, Select).
Sold by 2CheckOut.com Inc. (Ohio, USA).
Sailhead, Bowmansunion,
Sailhead.com,Bowmansunion.com, Extreme Sailing and all logos
are Trademark of Bowmansunion and Milosz Mogilnicki. 2004
Bowmansunion All Rights Reserved Terms
and Privacy
Policy under which this service is provided to you.
bowmansunion.com">
bowmansunion.com
<%
' if there is a url value detected add it to the db
' and redirect the browser to the url
else
%>
<%
' Varible for the PC IP address
ip=request.servervariables("remote_addr")
' name of the db that will track the clicks
accessdb="clicks.mdb"
' Build a connection to the db
cn="DRIVER={Microsoft Access Driver (*.mdb)};"
cn=cn & "DBQ=" & server.mappath(accessdb)
' Create a server record set object
set rs = server.createobject("ADODB.Recordset")
' SQL statement that will insert the url and the ip address
sql = "insert into clicks (url,ip) values('"& url &"','"& ip &"')"
' insert the values into the db
rs.open sql, cn
' kill the recordset
set rs=nothing
' redirect to the url
response.redirect url
%>
<% end if ' end check for a url value %>
