• User Attivo

    non riesco ad integrare!

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

    ecco un pezzo di codice di una pagina asp!
    Come vedete uso un contatore di download che scrive attraverso la pagina redirect download.asp ora...siccome ho altri 2 file redirect_download2.asp e redirect_download3.asp che scrivono nei database relativi il numero di download ma non capisco come aggiungerle assieme alla pagina redirect_download.asp per far si che anche loro scrivano nei relativi db per contare i download dei relativi db!
    chi mi sa dare una manina 😛


  • User Attivo

    Da quello che capisco dal codice, non fai altro che mostrare un link alla pagina redirect_download.asp e delle informazioni prese dal database.
    Se non ho capito male vorresti fare uscire i link anche ad altre due pagine ?

    Bhe basta che tu inserica altre due righe precisamente queste:

    
    .Write&#40;"[" & RsRecord&#40;"TITOLO"&#41; & "]()
    "&#41; 
    .Write&#40;"[" & RsRecord&#40;"TITOLO"&#41; & "]()
    "&#41; 
    
    

    P.s. ho anche io 2 magliette del palermo originale, una del mitico Brienza l'altra non mi ricordo di chi è!


  • User Attivo

    ciao grazie per la risposta..... la pagina in questione è questa http://www.la-maglia-rosanero.com/foto_stadio/archiviofoto/cerca2.asp come vedi quando cerchi un risultato alla fine dice...file scaricato n° x volte!
    ora come ora funziona solo con l'anno 2003 2004 ilcontatore dei download
    perchè c'è solo il comando di usare la pagina redirect_download.asp
    quidni aggiungendo quelle due righe dici che funzioneranno anche le altre due?


  • User Attivo

    se vuoi mandarmi le foto delle maglie del palermo che hai che gli do un'occhiata [email]palermo.maglie@gmail.com[/email]


  • User Attivo

    ho scritto quello che mi hai detto....ma non va come vedi se cerchi un risultato te lo scrive per tre volte.....


  • User Attivo

    Aspetta che non ho ancora capito bene, tu hai 3 db uno per ogni anno calcistico, il primo 2003/2004 il secondo 2004/2005 il terzo 2005/2006, è così?

    Allora se è così tu devi aggiornare sempre e solo 1 db quello corrispondente all'anno scelto dall'utente che effettua al ricerca.

    La modifica da fare è la seguente, prima di tutto il tuo blocco di codice che hai postato qui devi inserire:

    Select case request("campionato")
    case "0304" : nomepagina = "redirect_download.asp"
    case "0405" : nomepagina = "redirect_download2.asp"
    case "0506" : nomepagina = "redirect_download3.asp"
    end select

    e la seguente riga :

    .Write("" & RsRecord("TITOLO") & "
    ")

    la sostituisci con questa:

    .Write("?url=" + RsRecord("URL") & """ target=""_blank"">" & RsRecord("TITOLO") & "
    ")

    Cosa ho fatto?
    Semplicemente ho inserito un select case che a seconda dell'anno scelto per fare la ricerca (che tu indichi col nome "campionato") ti sceglie la pagina che aggiorna il database corrispondente.

    Ovviamente non devi più avere 3 links ma solo 1, quello che ti ho postato sopra ed eliminare gli altri due che ti avevo fatto inserire in precedenza.

    Se ho capito bene la tua esigenza, questa modifica funziona di sicuro.

    Ciao Tony.


  • User Attivo

    non capisco allora
    questo è il codice intero "quasi"

    <%
    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
    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
    %>

    ora tu mi dici di inserire quelle parti di codice dove???


  • User Attivo

    Hai fatto bene a postare tutto il codice, noto che c'è gia un select case bisogna a questo punto solo migliorarlo, ti posto il codice per intero

    <%
    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("?url=" + RsRecord("URL") & """ target=""_blank"">" & 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
    %>

    Prova questo e fammi sapere


  • User Attivo

    nada 😞 non funzia ...ti posto tutto il codice tutto tutto sperando che nessuno si arrabbi 🙂

    <%@LANGUAGE = VbScript%>
    <%
    Response.Buffer = True
    %>
    <head>
    <script type="text/javascript">
    if (self.name==top.name){
    document.write('<frameset rows="3000,," framespacing="0" frameborder="no" border="0"> ')
    document.write('<frameset cols="138,*" frameborder="NO" border="0" framespacing="0"> ')
    document.write('<frame name="leftFrame" scrolling="NO" noresize src="http://www.la-maglia-rosanero.com/Menu.html"?a>')
    document.write('<frame name="mainFrame" src='+document.location.href+'?a>')
    }
    </script>
    </head>
    <%'Io il contatore lo metterei alla fine perchè potrebbe rallentare parecchio%>
    <script type="text/javascript" >
    var wc_project=55010;
    var wc_version=1;
    var wc_graphic=0;
    </script>
    <script type="text/javascript" language="javascript" src="http://www.ewebcounter.com/include/track.js"></script>
    <noscript>Free Real-time Web Counter & Statistics</noscript>

    <%
    Dim campionato
    Dim ObjConn
    Dim StrConn
    Dim StrTesto
    Dim StrSql
    Dim i 'Contatore
    Dim RsRecord 'RecordSet
    Dim Ricerca

    Set ObjConn = Server.CreateObject("ADODB.Connection")
    Set RsRecord = Server.CreateObject("ADODB.RecordSet")
    campionato = Request.Form("campionato")
    StrTesto = Trim(Request.Form("cerca"))
    Ricerca = Request.Form("ricerca")
    If Ricerca = "ok" Then
    Select Case campionato
    Case "0304"
    StrConn = "driver={Microsoft Access Driver (.mdb)};dbq=" + Server.MapPath("/mdb-database/2003-2004.mdb")
    Case "0405"
    StrConn = "driver={Microsoft Access Driver (
    .mdb)};dbq=" + Server.MapPath("/mdb-database/2004-2005.mdb")
    Case "0506"
    StrConn = "driver={Microsoft Access Driver (*.mdb)};dbq=" + Server.MapPath("/mdb-database/2005-2006.mdb")
    End Select
    'Controllo che non sia vuoto
    'Apro la connessione al db
    ObjConn.Open StrConn
    StrSql = "SELECT * FROM RISULTATI" 'Se non ti interessano tutti i campi del record togli l'asterisco e mettici direttamente i campi che ti servono, perchè access non è il massimo della performance e se gli si può far risparmiare qualche risorsa ben venga
    If Not StrTesto = "" Then
    StrTesto = Split(StrTesto)
    StrSql = StrSql & " WHERE"
    For i = 0 to Ubound(StrTesto)
    If Not i = 0 Then StrSql = StrSql & " AND"
    StrSql = StrSql & " parole_chiave LIKE '%" + StrTesto(i) + "%'"
    Next
    StrSql = StrSql & " ORDER BY TITOLO"
    End If
    End If
    %>
    <html>
    <head>
    <title>Palermo Calcio : La Maglia Rosanero : L'Archivio Delle Foto Delle Partite Del Palermo</title>
    <basefont size="2" face="Verdana">
    <meta name="description" content="L'Archivio Delle Foto Delle Partite Del Palermo In Casa; In questa Pagina Web potete cercare le foto di partite di questo campionato in casa Del Palermo! Le Foto comprendono sia momenti di partita che foto soggettive di alcuni giocatori ma anche e sopratutto FOTO DELLE TIFOSERIE ORGANIZZATE!" />
    <meta name="keywords" content="soccer, football, shirt, player, league, serie a, serie b, serie c, palermo, collezione, sito ufficiale, collector, collection, original, worn, top, jersey, magliette, maglie, camiseta, camisetas, maillot, maglia, calcio, match, worn, matchworn, alessandro, vitale, rosanero, memorabilia, maglia palermo, magliapalermo, corini, maglia corini, suonerie, loghi, java, fotopalermo, foto palermo, foto palermo calcio, fotopalermocalcio, foto stadio, foto, amatoriale, partita, partitapalermo, partita palermo, barbera" />
    </head>
    <body link="#0000FF" alink="#FF0000" vlink="#0000FF" bgcolor="#FFAAD5">
    <p align="center">
    </p>
    <hr/>
    <p align="center"><font size="4">DIGITA LA PARTITA,SELEZIONA L'ANNO E CLICCA SU CERCA</font></p>
    <form method="post" action="cerca2.asp">
    <p align="center">
    <input type="text" name="cerca" size="50" value="<%=Request.Form("cerca")%>">
    <input type="submit" value="Cerca">

        <select name="campionato">
          <option value="0304">Campionato 2003 - 2004</option>
          <option value="0405">Campionato 2004 - 2005</option>
          <option value="0506">Campionato 2005 - 2006</option>
        </select>
        <input type="hidden" name="ricerca" value="ok" />
      </p>
    </form>
    <hr/>
    

    </h3>
    <%
    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
    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
    %>
    <hr/>
    <p align="center">
    **
    <u>
    *
    TUTTI I FILE SONO COMPRESSI CON IL PROGRAMMA WINRAR CHE POTETE SCARICARE QUI'
    *
    </u>
    **
    </p>
    <p align="center">
    <font color="#FFAAD5">
    <span style="background-color: #000000; font-weight:700">TUTTE LE FOTO SONO FIRMATE E RIDIMENSIONATE NELLA LORO QUALITA'.</span>
    </font>
    </p>
    <p align="center">
    <span style="background-color:; font-weight:700">
    <font color="#FFAAD5">
    PER RICHIEDERE LE FOTO ORIGINALI
    </font>
    <font color="#FF6699">
    <a href="mailto:palermo.maglie@gmail.com?subject=Messaggio dal sito Delle Foto">
    <font color="#FFAAD5">CONTATTATEMI</font></a></font></span><font color="#FFAAD5">
    </font>
    </p>
    <p align="center"><script src="http://www.google-analytics.com/urchin.js" type="text/javascript">
    </script>
    <script type="text/javascript">
    _uacct = "UA-415664-1";
    urchinTracker();
    </script><script type="text/javascript"><!--
    google_ad_client = "pub-8409522910835011";
    google_ad_width = 728;
    google_ad_height = 90;
    google_ad_format = "728x90_as";
    google_ad_type = "text";
    google_ad_channel ="";
    google_page_url = document.location;
    //--></script>
    <script type="text/javascript"
    src="http://pagead2.googlesyndication.com/pagead/show_ads.js">
    </script></p>
    </body>
    </html>

    eccolo tutto tutto
    non capisco quello che tu mi hai dato mi da errore 500 quel NOMEPAGINA devo modificarlo non so ....


  • User Attivo

    puoi mettere la pagina che ti ho dato io in linea per vedere che errore dà ?

    L'errore 500 è una semplificazione di Explorer, l'errore reale ti dà + informazioni per capire che tipo di errore c'è realmente.
    Se non vedi il messagigo di errore specifico devi andare su:
    Strumenti -> Opzioni Internet -> Avanzate
    e togliere lo spunto su:
    Mostra messaggi di errore HTTP brevi.


  • User Attivo

    ecco l'errore
    Microsoft VBScript compilation error '800a0409'

    Unterminated string constant

    /foto_stadio/archiviofoto/cerca2.asp, line 109

    .Write("<a href=""<%=nomepagina
    -------------------------------^


  • User Attivo

    ora mi sto accorgendo che su frontpage i codice dello script è colorato in marrone fino alla riga 109 poi dopo quel nomepagina si colora di nero come se fosse testo normale!
    quidni come dice l'errore c'è un errore li 😛


  • User Attivo

    Giusto ho fatto una cavolata io, allora sostituisci tutta quella riga con :

    .Write("" & RsRecord("TITOLO") & "
    ")

    Praticamente tu già stai usando un response.write io erroneamente ne avevo messo un altro dentro il tuo con questo simbolo <%=nomepagina%>

    Mea Culpa! 😮


  • User Attivo

    grazie però c'è un piccolo problema 🙂 se cerchi ad esempio una partita vedrai che cliccando sul link anzicchè scaricarti il file zip ti riapre la pagina su un'altra finestra.... mumble!


  • User Attivo

    Ok ci siamo quasi, succede questo perchè il tuo select case non è identico a quello che ti ho dato io:

    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

    Ricapitolando, sotituisci solo il select case con quello che ti ho messo io e lascia inalterato il resto della pagina.

    Fammi sapere


  • User Attivo

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


  • 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


  • 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
    %>


  • 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:


  • User Attivo

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