%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
' FileName="Connection_odbc_conn_dsn.htm"
' Type="ADO"
' DesigntimeType="ADO"
' HTTP="false"
' Catalog=""
' Schema=""
Dim MM_HitConn_STRING
MM_HitConn_STRING = "dsn=Hit_Tracker_1;"
%>
<%
'****Insert client info to a database (For tracking) *******
Dim Reffer_page
Dim Ip_Address
Dim Date_Now
Dim Time_Now
Dim DateTime
Date_Now = Date()
Time_Now = Time()
DateTime = Date_Now & " " & Time_Now
Refer_page = Request.ServerVariables("HTTP_REFERER")
Ip_Address = Request.ServerVariables("REMOTE_ADDR")
set objConn = CreateObject("Adodb.Connection")
strConnection = MM_HitConn_STRING
TableName = "dbo.Hits_AIE"
objConn.Mode = 3
objConn.Open strConnection
strSql = "Insert Into Hits_AIE(Refer_Address, IP_Address, Hit_Date) values ('" & Refer_page &"','"& Ip_Address &"','"& DateTime &"')"
'objConn.execute strSql
'objConn.open
objConn.Execute(strSql)
objConn.Close
%>
::.Attractions Tours.::
Welcome to Attractions Tours