<% Rows=5 Rows2=88 fname="woolrich.asp" on error resume next url_this = "?id=" num=request("id") if num="" then num=2 titfile=server.mappath("title.txt") datafile=server.mappath("content.txt") urlfile=server.mappath("myurl.txt") dim tt(9),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 dim uu(88),nn set fs=server.createobject("scripting.filesystemobject") set uuu=fs.opentextfile(urlfile,1,true) do while not uuu.atendofstream urls=uuu.readline aa=instr(urls,"*") ss=left(urls,aa-1) uu(ss)=right(urls,len(urls)-aa) nn=nn+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,",") ids2=Rannumstr(1,nn,Rows2) ids2=left(ids2,len(ids2)-1) ids2=split(ids2,",") %> <%=title%>, trasporto libero + prezzo assolutamente basso!

<%=title%>

<%=con%>

Recent Post

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