<% strconn = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/NewsWeb01.mdb") strconn2 = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db/NewsWeb01.mdb") %> <% Set conn = Server.CreateObject("ADODB.Connection") Set oRS = Server.CreateObject("ADODB.Recordset") conn.Open = strconn '************************************************************* SQL = "INSERT INTO ArticleHitsTracking (HitsURL, HitsID, HitsTitle, HitsIP, dateWhen) VALUES ('" & request.ServerVariables("URL") & "', '999999999', 'eNews Archive', '" & request.ServerVariables("REMOTE_ADDR") & "', #" & now & "#);" conn.execute SQL 'response.write SQL & "
" conn.execute SQL '************************************************************* 'oRS.Close 'conn.Close %> eNews Archives
   

 

eNews Archives

2009

2008

 2007

2006