<% ' 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 %> Bob's Link Tracker(Count Click throughs to an Access Db)

Doctors Now Recommend SOY For Weight Loss

Recent studies by leading medical universities prove soy enhances your
body˙s ability to fight obesity and the risk of heart disease. To achieve
the full benefits of soy, doctors recommend up to 6 servings of soy foods a
day. That˙s why more doctors are recommending Revival Soy. Only Revival
offers the nutrition of 6 servings of soy foods in just 1 delicious bar or
shake. Click here to learn more.
 

 

 

 

 

<% ' 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="/fpdb/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 %>