Visualizzazione risultati 1 fino 2 di 2

Discussione: problemi con un sito di shopping

  1. #1
    Guest

    Predefinito 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)

  2. #2
    Guest

    Predefinito

    ASP non è supportato su Altervista :grin:

Regole di scrittura

  • Non puoi creare nuove discussioni
  • Non puoi rispondere ai messaggi
  • Non puoi inserire allegati.
  • Non puoi modificare i tuoi messaggi
  •