<%@ LANGUAGE="VBSCRIPT"%>
<%Response.Buffer = True%>
<!-- #INCLUDE FILE="connection.inc" -->
<%

	Dim linkRec
	Dim link
	Dim hits
	Dim newUrl
	Set objConn = Server.CreateObject ("ADODB.Connection")
	Set linkRec = Server.CreateObject ("ADODB.Recordset")	

		'get current link
	link = request.querystring("link")
	link = cint(link)

		'Open database	
	objConn.Open strConnect
	Set linkRec = objConn.Execute ("SELECT * FROM links WHERE linkid = " & link & ";")

	newUrl = linkRec("url")

	objConn.Execute "UPDATE links SET links.hits = links.hits + 1 WHERE linkid = " & link

	Set linkRec = Nothing
	objConn.Close
	Set objConn = Nothing

	response.redirect newUrl

%>