:::::::: 3 Elephants :::::::: Redirect ::::::

<%@LANGUAGE="VBSCRIPT"%> '<% ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim MM_dsnLessConn_STRING 'MM_dsnLessConn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=E:\Domains\3\3elephants.com-1065728685\user\private\3ele.mdb" ' FileName="Connection_ado_conn_string.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" 'Dim MM_dsnLessConn_STRING 'MM_dsnLessConn_STRING = "Driver={Microsoft Access Driver (*.mdb)};DBQ=F:\3elephants\wwwroot\Three Elephants\htdocs2\database.mdb" Set oConn=Server.CreateObject("ADODB.connection") Set oRS=Server.CreateObject("ADODB.Recordset") strSource = "Driver={Microsoft Access Driver (*.mdb)}" strSource = strSource & "; DBQ=F:\3elephants\wwwroot\Three Elephants\htdocs2\database.mdb" oConn.ConnectionString = strSource oConn.Open %> <% if(Request.QueryString("id") <> "") then spRedirect__varID = Request.QueryString("id") %> <% set spRedirect = Server.CreateObject("ADODB.Command") spRedirect.ActiveConnection = MM_ELEDATA_STRING spRedirect.CommandText = "UPDATE BANNERS SET B_CLICKED_TOTAL = B_CLICKED_TOTAL + 1, B_CLICKED_DATE = Date() WHERE B_ID = " + Replace(spRedirect__varID, "'", "''") + " " spRedirect.CommandType = 1 spRedirect.CommandTimeout = 0 spRedirect.Prepared = true spRedirect.Execute() %> <% Response.Redirect (Request.QueryString("url")) %> :::::::: 3 Elephants :::::::: Redirect ::::::

Redirect in progress please wait