<% Dim WWhen, Where, IP, From, Browser, Client, Resolution, OS, Referer Referer = Session.sessionID Where = Request.ServerVariables("url") IP = Request.ServerVariables("REMOTE_ADDR") strUserAgent = LCase(Request.ServerVariables("HTTP_USER_AGENT")) If InStr(1,strUserAgent,"windows nt 5.1") <> 0 Then OS = "Windows XP" ElseIf InStr(1,strUserAgent,"windows nt 5.0") <> 0 Then OS = "Windows 2000" ElseIf InStr(1,strUserAgent,"win 9x 4.90") <> 0 Then OS = "Windows ME" ElseIf InStr(1,strUserAgent,"win98") <> 0 Or InStr(1,strUserAgent,"windows 98") <> 0 Then OS = "Windows 98" ElseIf InStr(1,strUserAgent,"win95") <> 0 Or InStr(1,strUserAgent,"windows 95") <> 0 Then OS = "Windows 95" ElseIf InStr(1,strUserAgent,"windows 3.1") <> 0 Or InStr(1,strUserAgent,"win16") <> 0 Or InStr(1,strUserAgent,"16bit") <> 0 Or InStr(1,strUserAgent,"windows 16-bit") <> 0 Then OS = "Windows 3.1" ElseIf InStr(1,strUserAgent,"os/2") <> 0 Then OS = "OS/2" ElseIf InStr(1,strUserAgent,"mac") <> 0 Then If InStr(1,strUserAgent,"68k") <> 0 Or InStr(1,strUserAgent,"68000") <> 0 Then OS = "Mac 68k" ElseIf InStr(1,strUserAgent,"ppc") <> 0 Or InStr(1,strUserAgent,"power-pc") <> 0 Or InStr(1,strUserAgent,"powerpc") <> 0 Then OS = "Mac PowerPC" ElseIf InStr(1,strUserAgent,"macos") <> 0 Or InStr(1,strUserAgent,"mac os") <> 0 Then OS = "Mac OS" ElseIf InStr(1,strUserAgent,"os8") <> 0 Or InStr(1,strUserAgent,"os 8") <> 0 Then OS = "Mac OS8" ElseIf InStr(1,strUserAgent,"os9") <> 0 Or InStr(1,strUserAgent,"os 9") <> 0 Then OS = "Mac OS9" ElseIf InStr(1,strUserAgent,"osx") <> 0 Or InStr(1,strUserAgent,"os x") <> 0 Then OS = "Mac OSx" Else OS = "Mac Unknown" End If ElseIf InStr(1,strUserAgent,"sunos 5") <> 0 Then OS = "Sun 5" ElseIf InStr(1,strUserAgent,"sunos 4") <> 0 Then OS = "Sun 4" ElseIf InStr(1,strUserAgent,"sunos") <> 0 Then OS = "Sun" ElseIf InStr(1,strUserAgent,"irix6") <> 0 Or Instr(1,strUserAgent,"irix 6") <> 0 Then OS = "IRIX 6" ElseIf InStr(1,strUserAgent,"irix 5") <> 0 Then Operating System = "IRIX 5" ElseIf InStr(1,strUserAgent,"irix") <> 0 Then OS = "IRIX" ElseIf InStr(1,strUserAgent,"freebsd") <> 0 Then OS = "FreeBSD" ElseIf InStr(1,strUserAgent,"bsd") <> 0 Then OS = "BSD" ElseIf InStr(1,strUserAgent,"aix") <> 0 Then OS = "AIX" ElseIf InStr(1,strUserAgent,"linux") <> 0 Then OS = "Linux" ElseIf InStr(1,strUserAgent,"unix") <> 0 Then OS = "Unix" ElseIf InStr(1,strUserAgent,"windows nt") <> 0 Then OS = "Windows NT" ElseIf InStr(1,strUserAgent,"windows") <> 0 Then OS = "Windows Unknown" Else OS = "Unknown" End If If InStr(1,strUserAgent,"opera") <> 0 Then Browser = "Opera" ElseIf InStr(1,strUserAgent,"msn") <> 0 Then Browser = "MSN" ElseIf InStr(1,strUserAgent,"aol") <> 0 Then Browser = "AOL" ElseIf InStr(1,strUserAgent,"webtv") <> 0 Then Browser = "WebTV" ElseIf InStr(1,strUserAgent,"navio") <> 0 Or InStr(1,strUserAgent,"navio_aoltv") <> 0 Then Browser = "TVNavigator" ElseIf InStr(1,strUserAgent,"netscape") <> 0 Then Browser = "Netscape" ElseIf InStr(1,strUserAgent,"msie") <> 0 Then Browser = "Microsoft Internet Explorer" ElseIf InStr(1,strUserAgent,"mozilla") <> 0 Then Browser = "Mozilla" Else Browser = "Unknown" End If If Instr(1,strUserAgent,"msie 6") <> 0 Or Instr(1,strUserAgent,"netscape6/6") Or Instr(1,strUserAgent,"opera/6") <> 0 Or Instr(1,strUserAgent,"opera 6") <> 0 Then BrowserVersion = 6 ElseIf Instr(1,strUserAgent,"aol/7") <> 0 Or Instr(1,strUserAgent,"aol 7") <> 0 Or Instr(1,strUserAgent,"netscape/7") Or Instr(1,strUserAgent,"opera/7") <> 0 Or Instr(1,strUserAgent,"opera 7") <> 0 Then BrowserVersion = 7 ElseIf Instr(1,strUserAgent,"msie 5.5") <> 0 Then BrowserVersion = 5.5 ElseIf Instr(1,strUserAgent,"msie 5") <> 0 Then BrowserVersion = 5 Else FirstNumberPos = 0 For i = 1 To Len(strUserAgent) If Instr(1,"1234567890",Mid(strUserAgent,i,1))<> 0 Then FirstNumberPos = i i = Len(strUserAgent) End If Next If FirstNumberPos <> 0 Then While Instr(1,"1234567890.",Mid(strUserAgent,FirstNumberPos,1)) <> 0 And FirstNumberPos<=Len(strUserAgent) BrowserVersion = BrowserVersion & Mid(strUserAgent,FirstNumberPos,1) FirstNumberPos = FirstNumberPos + 1 Wend Else BrowserVersion = "" End If End If Page = Request.ServerVariables("PATH_INFO") Prew = Request.ServerVariables("HTTP_REFERER") If Prew = "" Then Prew = "Direct Hit" end if on error resume next Change = "SELECT * FROM tblHit WHERE Referer Like '" & Referer & "';" RecSet.Open Change, Connect, adOpenStatic, adLockOptimistic if RecSet.eof then Set objConn = Server.CreateObject("ADODB.Connection") strConn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("db/org.mdb") objConn.Open strConn strSQL = "INSERT INTO tblHit(IP, Browser, Prew, OS, BrowserVersion, Page, Referer) values('" & IP & "','" & Browser & "','" & Prew & "','" & OS & "','" & BrowserVersion & "','" & Page & "','" & Referer & "')" objConn.Execute(strSQL),,128 objConn.Close Set objConn = Nothing end if RecSet.Close on error goto 0 %> nyppon
<% Dim lngIndex ' Backslash character positon Dim strRemnant ' What remains after trimming off everything to the left of the last backslash character. strRemnant = Request.ServerVariables("PATH_INFO") qryString = Request.ServerVariables("QUERY_STRING") Do lngIndex = InStr(strRemnant, "/") If lngIndex = 0 Then Exit Do ' There are no more backslash characters: we have the name. strRemnant = Right(strRemnant, Len(strRemnant) - lngIndex) Loop FileNameOnly = strRemnant if qryString <> "" then FileNameOnly = FileNameOnly & "?" & qryString end if Meny = "SELECT SortOrder, UrlText, Url, expl, target FROM tblMeny ORDER BY SortOrder;" RecSet.Open Meny, Connect, adOpenStatic, adLockOptimistic Response.Write("
") if kat > 1 then MenySub = "SELECT Levl, SortOrder, UrlText, Url, Kat, expl FROM tblMenySub WHERE Kat Like '" & Kat & "' ORDER BY SortOrder;" RecSet.Open MenySub, Connect, adOpenStatic, adLockOptimistic Response.Write("
") end if strReader = Request.ServerVariables("HTTP_USER_AGENT") If InStr(1, strReader, "Firefox")>0 Then Response.Write("

text

") else Response.Write("
") End If strAntal = 30 Randomize Timer strNo = Int(Rnd * strAntal)+1 Response.Write("
") %>
  <% strSale = "SELECT saleID, Date, Rubrik, strText, Pris, PID, url FROM tblSale ORDER BY Date DESC;" RecSet.Open strSale, Connect, adOpenStatic, adLockOptimistic Do Until RecSet.EOF Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") Response.Write("") RecSet.MoveNext loop RecSet.Close %>
 

Prylar till salu

" & RecSet("Date") & " - " & RecSet("Rubrik") & "

") if len(RecSet("url")) > 1 then Response.Write("") End If Response.Write("" & RecSet("strText") & "

Pris " & RecSet("Pris") & " kr
 

Sökningar som hamnat här

<% strMax = 0 kollMax = "SELECT TOP 25 trueSerch, Last(Prew) AS strPrew, Last(WWhen) AS Sort, Count(Hit_ID) AS strTraff FROM tblHit WHERE (((InStr(1,[tblHit]![Prew],'eniro'))<>0)) OR (((InStr(1,[tblHit]![Prew],'google'))<>0)) OR (((InStr(1,[tblHit]![Prew],'search'))<>0)) OR (((InStr(1,[tblHit]![Prew],'altavista'))<>0)) OR (((InStr(1,[tblHit]![Prew],'bing'))<>0)) GROUP BY trueSerch ORDER BY Last(WWhen) DESC;" RecSet.Open kollMax, Connect, adOpenStatic, adLockOptimistic Do Until RecSet.EOF if RecSet("strTraff") > strMax then strMax = RecSet("strTraff") end if RecSet.MoveNext loop RecSet.Close strMax = Int(strMax) strPcent = 100/strMax strBryt = 0 strSerch = "SELECT trueSerch, Last(Prew) AS strPrew, Last(WWhen) AS Sort, Count(Hit_ID) AS strTraff FROM tblHit WHERE (((InStr(1,[tblHit]![Prew],'eniro'))<>0)) OR (((InStr(1,[tblHit]![Prew],'google'))<>0)) OR (((InStr(1,[tblHit]![Prew],'search'))<>0)) OR (((InStr(1,[tblHit]![Prew],'altavista'))<>0)) OR (((InStr(1,[tblHit]![Prew],'bing'))<>0)) GROUP BY trueSerch ORDER BY Last(WWhen) DESC;" RecSet.Open strSerch, Connect, adOpenStatic, adLockOptimistic Do Until RecSet.EOF strBryt = strBryt + 1 if strBryt < 25 then strSize = 0 strTraff = RecSet("strTraff") strSize = strTraff * strPcent strSize = Sqr(Sqr(strSize)) strSize = strSize * 60 strSize = Int(strSize) Response.Write("" & RecSet("trueSerch") & " | ") end if RecSet.MoveNext loop RecSet.Close %>

 
I was looking forward for your tag heuer replica and assurance to get it shipped tomorrow for sure. This may need you to coordinate with them to make sure my items are shipped. This is due to the fact that if fake rolex sale delays it even by a day, things will go for a toss. I am not sure when you call it a day today but can you please let me know whether my hublot replica sale order is going to ship tonight? Can you please confirm with supplier and let me know about the same. I know you are rolex replica sale sure that it will be out tonight but by not seeing any status change on my accounts page make me worried. I apologize again to bother you so much but I hope you will replica watches uk my problems and concerns.
<% Connect.Close Set RecSet = Nothing Set Connect= Nothing %>

nyppon