non riesco ad integrare!

tonyx

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

rosanero

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:[email protected]?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"></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 ....

tonyx

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.

rosanero

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

Unterminated string constant

/foto_stadio/archiviofoto/cerca2.asp, line 109

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

rosanero

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

tonyx

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!

rosanero

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!

tonyx

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

rosanero

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

tonyx

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

rosanero

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

tonyx

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!

rosanero

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

tonyx

ripostami il codice

rosanero

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

tonyx

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

rosanero

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

tonyx

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

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.