<%@ Language=VBScript %> <% Dim sAffiliateNo Session ("sAffiliateNo") = request.querystring("ID") & "" Dim strConnection, conn, rs1, SQL strConnection = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & _ Server.MapPath(".\fpdb\xcdb.mdb") & ";User Id=admin;Password=;" Set conn = Server.CreateObject("ADODB.Connection") conn.Open strConnection Set rs1 = Server.CreateObject("ADODB.recordset") set BC = server.createobject("MSWC.BrowserType") sSessionID = (Session.SessionID) DateTimeEntrance = Now() IPAddress = Request.ServerVariables("remote_addr") UserAgent = Request.Servervariables ("HTTP_USER_AGENT") URL = Request.Servervariables ("URL") Browser = BC.Browser & " " & BC.Version DHTMLSupport = cstr(BC.dhtml) FramesSupport = cstr(BC.frames) TablesSupport = cstr(BC.tables) CookiesSupport = cstr(BC.cookies) BackGroundSounds = cstr(BC.backgroundsounds) JavaScriptSupport = cstr(BC.javascript) JaveAppletsSupport = cstr(BC.javaapplets) ActiveXControlsSupport = cstr(BC.activexcontrols) AOL = cstr(BC.aol) Platform = cstr(BC.platform) VBScriptSupport = cstr(BC.vbscript) SQL = "insert into UTVisitors (SessionID,DateTimeEntrance,IPAddress,UserAgent,URL,Browser,DHTML,Frames,Tables,Cookies,BackgroundSounds,JavaScript,JavaApplets,ActiveXControls,AOL,Platform,VBScript)" SQL = SQL & " values (" SQL = SQL & "'" & sSessionID & "'," SQL = SQL & "'" & DateTimeEntrance & "'," SQL = SQL & "'" & IPAddress & "'," SQL = SQL & "'" & UserAgent & "'," SQL = SQL & "'" & URL & "'," SQL = SQL & "'" & Browser & "'," SQL = SQL & "'" & DHTMLSupport & "'," SQL = SQL & "'" & FramesSupport & "'," SQL = SQL & "'" & TablesSupport & "'," SQL = SQL & "'" & CookiesSupport & "'," SQL = SQL & "'" & BackGroundSounds & "'," SQL = SQL & "'" & JavaScriptSupport & "'," SQL = SQL & "'" & JaveAppletsSupport & "'," SQL = SQL & "'" & ActiveXControlsSupport & "'," SQL = SQL & "'" & AOL & "'," SQL = SQL & "'" & Platform & "'," SQL = SQL & "'" & VBScriptSupport & "')" rs1.Open SQL, conn set rs1 = nothing set conn = nothing %>