• R
    User Attivo •

    quidi devo sostituire quello che ho io con quello che hai quotato ora?

    0
  • T
    User Attivo •

    Si, sostituisci questa:

    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    End Select

    con questa:

    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    nomepagina="redirect_download.asp"
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    nomepagina="redirect_download2.asp"
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    nomepagina="redirect_download3.asp"
    End Select

    0
  • R
    User Attivo •

    ciao niente.....non va mi conta solo quelli del 2003 2004 degli altri no!
    ecco il codice

    <%
    Response.Write "<p align=""center"">Risultati della ricerca per il termine <font color=""Blue"">"& Trim(Request.Form("cerca")) &"</font></p>"
    If ricerca = "ok" Then
    RsRecord.Open StrSql, ObjConn
    If RsRecord.EOF Then
    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    nomepagina="redirect_download.asp"
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    nomepagina="redirect_download2.asp"
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    nomepagina="redirect_download3.asp"
    End Select
    Else
    While Not RsRecord.EOF
    With Response
    .Write("

    ")
    .Write("" & RsRecord("TITOLO") & "
    ")
    .Write(RsRecord("ANNO") & "
    ")
    .Write(RsRecord("DATA") & "
    ")
    .Write(RsRecord("PARTITA") & "
    ")
    .Write(RsRecord("MARCATORI") & "
    ")
    .Write(RsRecord("SIZE") & "
    ")
    .Write("</p>")
    .Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))
    End With
    RsRecord.MoveNext
    Wend
    End If
    RsRecord.Close
    ObjConn.Close
    End If
    Set RsRecord = Nothing
    Set ObjConn = Nothing
    %>

    0
  • T
    User Attivo •

    Ehi aspetta un attimo, qui aggiustiamo una cosa e ne scombiniamo un altra. Nell'aggiornamento sei tornato troppo indietro hai sostituito correttamnete il Select Case ma hai riportato una riga allo stato iniziale.

    Fai una cosa, sostituisci tutto il codice postato nel messaggio precedente con questo:

    <%
    Response.Write "<p align=""center"">Risultati della ricerca per il termine <font color=""Blue"">"& Trim(Request.Form("cerca")) &"</font></p>"
    If ricerca = "ok" Then
    RsRecord.Open StrSql, ObjConn
    If RsRecord.EOF Then
    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    nomepagina="redirect_download.asp"
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    nomepagina="redirect_download2.asp"
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    nomepagina="redirect_download3.asp"
    End Select
    Else
    While Not RsRecord.EOF
    With Response
    .Write("

    ")
    .Write("" & RsRecord("TITOLO") & "
    ")
    .Write(RsRecord("ANNO") & "
    ")
    .Write(RsRecord("DATA") & "
    ")
    .Write(RsRecord("PARTITA") & "
    ")
    .Write(RsRecord("MARCATORI") & "
    ")
    .Write(RsRecord("SIZE") & "
    ")
    .Write("</p>")
    .Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))
    End With
    RsRecord.MoveNext
    Wend
    End If
    RsRecord.Close
    ObjConn.Close
    End If
    Set RsRecord = Nothing
    Set ObjConn = Nothing
    %>

    il tuo codice riportava di nuovo questa riga:
    .Write("" & RsRecord("TITOLO") & "
    ")

    questa ti fà usare sempre la pagina redirect_download.asp, quindi aggiorni sempre e solo il primo Db come tu riscontravi! :ciauz:

    0
  • R
    User Attivo •

    niente cliccando per scaricare un file mi riapre la stessa pagina in un'altra finestra come prima!

    0
  • T
    User Attivo •

    ripostami il codice

    0
  • R
    User Attivo •

    <%
    Response.Write "<p align=""center"">Risultati della ricerca per il termine <font color=""Blue"">"& Trim(Request.Form("cerca")) &"</font></p>"
    If ricerca = "ok" Then
    RsRecord.Open StrSql, ObjConn
    If RsRecord.EOF Then
    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    nomepagina="redirect_download.asp"
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    nomepagina="redirect_download2.asp"
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    nomepagina="redirect_download3.asp"
    End Select
    Else
    While Not RsRecord.EOF
    With Response
    .Write("

    ")
    .Write("" & RsRecord("TITOLO") & "
    ")
    .Write(RsRecord("ANNO") & "
    ")
    .Write(RsRecord("DATA") & "
    ")
    .Write(RsRecord("PARTITA") & "
    ")
    .Write(RsRecord("MARCATORI") & "
    ")
    .Write(RsRecord("SIZE") & "
    ")
    .Write("</p>")
    .Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))
    End With
    RsRecord.MoveNext
    Wend
    End If
    RsRecord.Close
    ObjConn.Close
    End If
    Set RsRecord = Nothing
    Set ObjConn = Nothing
    %>

    0
  • T
    User Attivo •

    Si è vero, la variabile nomepagina non si riempie ho capito cos'è !

    <%
    Response.Write "<p align=""center"">Risultati della ricerca per il termine <font color=""Blue"">"& Trim(Request.Form("cerca")) &"</font></p>"
    If ricerca = "ok" Then
    RsRecord.Open StrSql, ObjConn
    If RsRecord.EOF Then
    Select Case campionato
    Case "0304"
    Response.Write("

    Nessuna partita trovata per l'anno 2003 - 2004</p>")
    Case "0405"
    Response.Write("

    Nessuna partita trovata per l'anno 2004 - 2005</p>")
    Case "0506"
    Response.Write("

    Nessuna partita trovata per l'anno 2005 - 2006</p>")
    End Select

    Else

    Select Case campionato
    Case "0304"
    nomepagina="redirect_download.asp"
    Case "0405"
    nomepagina="redirect_download2.asp"
    Case "0506"
    nomepagina="redirect_download3.asp"
    End Select

    While Not RsRecord.EOF
    With Response
    .Write("

    ")
    .Write("" & RsRecord("TITOLO") & "
    ")
    .Write(RsRecord("ANNO") & "
    ")
    .Write(RsRecord("DATA") & "
    ")
    .Write(RsRecord("PARTITA") & "
    ")
    .Write(RsRecord("MARCATORI") & "
    ")
    .Write(RsRecord("SIZE") & "
    ")
    .Write("</p>")
    .Write("File Scaricato volte n° " & RsRecord("CLICKCOUNT"))
    End With
    RsRecord.MoveNext
    Wend
    End If
    RsRecord.Close
    ObjConn.Close
    End If
    Set RsRecord = Nothing
    Set ObjConn = Nothing
    %>

    usa questo codice, preaticamente si riempiva quando non trovava risultati, quindi inutilmente ora si riempie quando li trova.

    Fammi sapere

    0
  • R
    User Attivo •

    grazieeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeeee
    quando scendi a palermo hai una birra e caffè pagati 🙂
    per quelle maglie vuoi mandarmi le foto così ci do un occhiata?

    0
  • T
    User Attivo •

    Di nulla. Cmq se proprio insisti puoi sempre mandarmi una maglia a tua scelta, cosa ? cosa dici? Quella di Lupatelli? Si mi va benissimo, grazie :quote: :fumato:

    Quando vado a casa faccio le foto, cmq se non ricordo male l'altra è di: "Di Donato" e a giudicare dalle tue foto dovrebbe assomigliare a quelle della stagione 2003/2004, è possibile?

    Essendo di Ischia sono un Fan di Brienza, meglio conosciuto qui come Francolino.

    Saluti,
    Tony.

    0
Effettua l'accesso per rispondere