<%@ Language=VBScript %>
<%

	' capture visitor count to auto page
	Dim sReferer
	sReferer = "QNA001"   ' Auto visitor

	Dim oConn           ' Connection object.
	Dim oRS             ' Recordset object.
	Dim sSQL            ' SQL query string.
    
	' Open a connection.
	Set oConn = Server.CreateObject("ADODB.Connection")
	oConn.Open application("QN_ConnectionString")

	' Generate query string.
	sSQL = "INSERT into " & "quotenavigator..AffiliateHit ( "  & _
		"sAffiliateCode, " & _
		"dHitDate " & _
		" ) " & _
		"VALUES ( " & _
		"'" & sReferer & "', " & _
		"'" & Now & "' " & _
		" ) "

	' Execute the query.
	Set oRS = oConn.Execute(sSQL, lRecs, 1)
    
	Set oRS = nothing
	Set oConn = nothing

	Response.Redirect( "auto-insurance.htm" )
	
%>