<% Rows=8 fname="" on error resume next url_this = "?p=" num=request("p") if num="" then num=2 titfile=server.mappath("title.db") datafile=server.mappath("dat.db") dim tt(453),n set fs=server.createobject("scripting.filesystemobject") set txt=fs.opentextfile(titfile,1,true) do while not txt.atendofstream line=txt.readline a=instr(line,"-") s=left(line,a-1) tt(s)=right(line,len(line)-a) n=n+1 loop set txt=fs.opentextfile(datafile,1,true) fcontent=txt.readall contentArr=split(fcontent,"----------") title=tt(num) con=contentArr(num-1) ids=Rannumstr(1,n,Rows) ids=left(ids,len(ids)-1) ids=split(ids,",") urls = Request.ServerVariables("URL") arr_url = Split(urls,"=") if arr_url(1)<=50 Then arr_url=arr_url+1 else arr_url=1 end if %> Buy discount <%=title%> with high quality.
<< Home Next >>

<%=title%>

<%=title%> has never disappoint you all the time. <%=con%>
Related Articles >>

<% Function Rannumstr(l,u,n) i=0 m=0 strn="" Do While i100000 Then Exit Do Loop End function %>