<% On error resume next '******** CHANGE THIS STRING TO THE DATABASE AND THAT's IT !!!!!! ********** Taccessdb="D:\inetpub\vhosts\magicofianquick.com\httpdocs\databases\MQtracking.mdb" tDSN="PROVIDER=Microsoft.Jet.OLEDB.4.0;" tDSN=tDSN & "DATA SOURCE=" & Server.MapPath(TaccessDB) & ";" 'Response.write Request.ServerVariables("HTTP_USER_AGENT") & "
" If Session("TRACKED") <> "Yes" Then vID = Session.SessionID vDate = FormatDateTime(Date(),2) vScript= Request.ServerVariables("SCRIPT_NAME") vIP = Request.ServerVariables("REMOTE_ADDR") vReferrer = Request.ServerVariables("HTTP_REFERER") if vReferrer = "" then vReferrer = "Unknown" '*****BROWSER******** vBrowser = "Unknown" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 5") > 0 Then vBrowser = "IE 5" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 4") > 0 Then vBrowser = "IE 4" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Nav") > 0 Then vBrowser = "Netscape" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Netscape ") > 0 Then vBrowser = "Netscape" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Opera") > 0 Then vBrowser = "Opera" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"4.7") > 0 Then vBrowser = "Netscape" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"4.6") > 0 Then vBrowser = "Netscape" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"MSIE 3") > 0 Then vBrowser = "IE 3" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Netscape6") > 0 Then vBrowser = "Netscape 6" '***** OS ************** vOS = "Unknown" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Windows 98") > 0 Then vOS = "Win 98" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Windows 95") > 0 Then vOS = "Win 95" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Mac") > 0 Then vOS = "Mac" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Linux") > 0 Then vOS = "Linux" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Millenium") > 0 Then vOS = "Win ME" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"NT 5") > 0 Then vOS = "Win 2000" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Windows 3") > 0 Then vOS = "Win 3x" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Win98") > 0 Then vOS = "Win 98" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"Win95") > 0 Then vOS = "Win 95" If Instr(Ucase(Request.ServerVariables("HTTP_USER_AGENT")),"beos") > 0 Then vOS = "BEOS" If Instr(Request.ServerVariables("HTTP_USER_AGENT"),"WinNT") > 0 Then vOS = "Win NT" Set rs = Server.CreateObject("ADODB.Recordset") tSQL = "INSERT INTO tracking (SessionID, DateStamp, ScriptName, BrowserType, IP, Referrer, OS) VALUES ('" & vID & "',#" & vDate & "#,'" & vScript & "','" & vBrowser & "','" & vIP & "','" & vReferrer & "','" & vOS & "')" rs.Open tSQL, tDSN Set rs = Nothing Session("TRACKED") = "Yes" End if On error goto 0 %> <% '********************************* vDatabase = "quick.mdb" vLocalPath = "F:\magicofianquick.com\databases\" '********************************* set vFSO = Server.CreateObject("Scripting.FileSystemObject") accessdb = "databases/" & vDatabase vCount = 1 do until vFSO.FileExists(server.mappath(accessdb)) = true or vCount = 5 accessdb = "../" & accessdb vCount = vCount + 1 loop if vFSO.FileExists(server.mappath(accessdb)) = false then 'if vFSO.FileExists(accessdb) = false then response.write("Database not found.") else strConn = "PROVIDER=Microsoft.Jet.OLEDB.4.0;" strConn = strConn & "DATA SOURCE=" & Server.mappath(accessDB) & ";" 'strConn = strConn & "DATA SOURCE=" & accessDB & ";" set myDSN = Server.CreateObject("ADODB.Connection") myDSN.Open strConn end if set vFSO = nothing Function SQLPrep(ByVal vString) vString = Replace(vString, "'", "''") vString = Replace(vString, "[", "(") vString = Replace(vString, "]", ")") SQLPrep = vString End Function %> <% accessdb2="databases/quick.mdb" myDSN2="PROVIDER=Microsoft.Jet.OLEDB.4.0;" myDSN2=myDSN2 & "DATA SOURCE=" & Server.MapPath(accessdb2) & ";" Function SQLPrep(ByVal vString) vString = Replace(vString, "'", "''") vString = Replace(vString, "[", "(") vString = Replace(vString, "]", ")") SQLPrep = vString End Function 'This picks a testimonial at random to display on a page '***************** Set up the testimonial recordset *************************** dim rsTest Set rsTest = Server.CreateObject("ADODB.Recordset") rsTest.CursorLocation = 3 mySQL = "SELECT * FROM Testimonials " rsTest.Open mySQL, myDSN2 if rsTest.EOF then vRndTest = "" vRndTestAuth = "" else vCount = rsTest.recordcount '****************** Move to a random record ****************************** Randomize vRandom = Int(Rnd() * vCount) if vRandom < 0 then vRandom = 0 if vRandom > vCount - 1 then vRandom = vCount - 1 rsTest.Move(vRandom) vTestAuthor = "-" & rsTest("Author") vTest = rsTest("Testimonial") end if Set rsTest = Nothing %> The Magic of Ian Quick * Biography
Bio Corporate Events Parties Bookings Testimonials Clients FAQ Card Trick? Contact
Parties


 
 
Ottawa magicians

Childrens birthday parties

Children's birthday parties

Kid's birthday parties

Kids birthday parties

Ottawa+magician

Trade shows

Magicians

Entertainment and magicians

Magic tricks


Ottawa magician - Magician located in Ottawa, Ontario, Canada will provide entertainment for your next: childrens birthday party, corporate office party, Christmas party or trade show. Magic tricks and card tricks will entertain and delight your audience. Ottawa, Ontario magician.
<%=vTest%>
<%=vTestAuthor%>

<% myDSN.close set myDSN = nothing %>