<%@ Language=VBScript %>
<%
	Dim sSite
	Dim sSQLCount
	Dim oBjConn
	Set oBjConn = Server.CreateObject("ADODB.Connection")
	oBjConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.mapPath("sbt.mdb")
	oBjConn.Open
		
	sSite = Request("site")
	sSQLCount = "UPDATE [count] " & _
				"SET [Count] = [Count]+1,  " & _
				    "visit = '" & date() & "' " & _
				"WHERE (Site = '" & sSite & "')"
	oBjConn.Execute sSQLCount
	oBjConn.Close
	Set oBjConn = Nothing
	Response.Redirect "http://www.fairpharmacochin.com"
%>