problemi con un sito di shopping
http://pescalazioshop.altervista.org/
tutte le pagine in aSP. non vengono trovate.
Il proprietario del programma di edisplay dice che bisogna richiedere le informazione al proprio provider sul percorso del perl e del sendmail.
questo e' quello che compare sulle pagina non trovate dopo avere premuto F5
<%
filtro = Request.Form("search")
metodo = Request.Form("method")
npage = cint(Request.Form("page"))
numart = 20
dim termine()
dim fpagina()
dim fcodice()
dim ftitolo()
dim fsottotitolo()
dim fimmagine()
npos=instr(filtro," ")
if npos=0 and filtro<>"" then npos=len(filtro)+1
while npos>0
i=i+1
redim preserve termine(i)
temptermine=lcase(left(filtro, npos-1))
if left(temptermine,4)=",#.*" then
temptermine=mid(temptermine,5)
else
temptermine="#" + temptermine + "#"
end if
termine(i)=temptermine
filtro=mid(filtro, npos+1)
npos=instr(filtro," ")
if npos=0 and filtro<>"" then npos=len(filtro)+1
wend
termini=i
set objFileSys=Server.CreateObject("Scripting.FileSyst emObject")
ResultsFileName=Server.MapPath("results.htm")
CsvFileName=Server.MapPath("search.csv")
set objResultsFile=objFileSys.OpenTextFile(ResultsFile Name)
do until objResultsFile.AtEndOfStream
TestoResults=TestoResults+objResultsFile.ReadLine+ vbcrlf
loop
objResultsFile.Close
edStart=instr(ucase(TestoResults), "<ED_START>")
edStartIn=edStart+len("<ED_START>")
edEndIn=instr(ucase(TestoResults), "<ED_END>")
edEnd=edEndIn+len("<ED_END>")
TestoOut=left(TestoResults,edStart -1)
Response.Write(TestoOut)
TestoOut=mid(TestoResults, edStartIn, edEndIn-edStartIn)
artTo=(npage+1)*numart
artFrom=artTo-numart+1
set objCsvFile=objFileSys.OpenTextFile(CsvFileName)
artFound = 0
do until objCsvFile.AtEndOfStream
nFound=0
ok=0
pagina=""
codice=""
titolo=""
sottotitolo=""
immagine=""
ricerca=""
if not objCsvFile.AtEndOfStream then pagina=objCsvFile.ReadLine
if not objCsvFile.AtEndOfStream then codice=objCsvFile.ReadLine
if not objCsvFile.AtEndOfStream then titolo=objCsvFile.ReadLine
if not objCsvFile.AtEndOfStream then sottotitolo=objCsvFile.ReadLine
if not objCsvFile.AtEndOfStream then immagine=objCsvFile.ReadLine
if not objCsvFile.AtEndOfStream then ricerca=objCsvFile.ReadLine
ricerca=lcase(ricerca)
for i=1 to termini
if instr(ricerca,termine(i))>0 then nFound=nFound +1
next
if metodo="any" then
if nFound > 0 then ok=1
else
if nFound=termini then ok=1
end if
if ok=1 then
artFound=artFound+1
redim preserve fpagina(artFound)
redim preserve fcodice(artFound)
redim preserve ftitolo(artFound)
redim preserve fsottotitolo(artFound)
redim preserve fimmagine(artFound)
fpagina(artFound)=pagina
EDIT ROCKAFFE: EVITIAMO QUESTO GENERE DI COSE! (LEGGI: SCRITTE A CARATTERI CUBITALI)
