<%@ Import NameSpace="System.Data.SQLClient" %> <%@ Import NameSpace="System.Data.Odbc" %> <% Dim strDateTime As String = Format(DateTime.Now, "yyyy-MM-dd HH:mm:ss") Dim strUserHostAddress As String = Request.UserHostAddress 'Dim strUserHostName As String = Request.UserHostName Dim strRequestMethod As String = Request.ServerVariables("REQUEST_METHOD") Dim strScriptName As String = Request.ServerVariables("SCRIPT_NAME") 'Request.PhysicalPath Dim strQueryString As String = Request.ServerVariables("QUERY_STRING") Dim strUrlReferrer As String = "" Dim strUserAgent As String = Request.UserAgent Dim strInsert As String If Request.UrlReferrer <> Nothing Then strUrlReferrer = Request.UrlReferrer.ToString strInsert = "INSERT INTO page_hits (" strInsert &= "domain_id, date_time, remote_address, request_method, script_name, query_string, http_referer, http_user_agent" strInsert &= ") VALUES (2, '" & strDateTime strInsert &= "', '" & strUserHostAddress strInsert &= "', '" & strRequestMethod strInsert &= "', '" & strScriptName strInsert &= "', '" & strQueryString strInsert &= "', '" & strUrlReferrer strInsert &= "', '" & strUserAgent & "')" Dim Conn As OdbcConnection If strUserHostAddress = "127.0.0.1" Then Conn = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=localhost;Database=llong1_page_hits;uid=llong1_admin;pwd=minad;option=3") Else Conn = New OdbcConnection("Driver={MySQL ODBC 3.51 Driver};Server=mysql1.hosting.digiweb.ie;Database=llong1_page_hits;uid=llong1_rmcculla;pwd=rmccullagh;option=3") End If Dim cmd As OdbcCommand = New OdbcCommand(strInsert, Conn) Try Conn.Open() cmd.ExecuteNonQuery() Catch ex As Exception Response.Write("") Finally Conn.Close() End Try %>
The Wayback Machine - https://web.archive.org/web/20071118172812/http://rmccullagh.ie/index.aspx