<%
Dim SQLFotografia, RSFotografia, FID, FSTFotografia,
SQLAggiornaFotografie, RSAggiornaFotografie, FotografiaTrovata
'Effettuo il controllo sul parametro id
If Request.QueryString("id") <> "" AND Request.QueryString("id")
<> "0" AND IsNumeric(Request.QueryString("id")) = True Then
FID = Request.QueryString("id")
Else
FID = 0
End If
'Cerco la fotografia in base al parametro id
SQLFotografia = "SELECT Fotografie.ID, Fotografie.NomeFile, Count(Commenti.ID) AS ConteggioID, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture FROM [Commenti] RIGHT JOIN Fotografie ON
Commenti.IDFotografia = Fotografie.ID WHERE Fotografie.Data <= '"& DataToStr(Date()) &"' AND Fotografie.ID = "& FID &" GROUP BY Fotografie.ID, Fotografie.NomeFile, Fotografie.Sezione, Fotografie.Autore, Fotografie.Descrizione, Fotografie.Data, Fotografie.Ora, Fotografie.Letture ORDER BY Fotografie.Data, Fotografie.Ora DESC"
Set RSFotografia = Server.CreateObject("ADODB.Recordset")
RSFotografia.Open SQLFotografia, Conn, 1, 3
%>
In questo modo io estraggo una fotografia in relazione al parametro ID ed è tutto ok...
ora però vorrei modificare questo script in modo tale che debba solo fare qs:
"andare a leggere nel database, nella tabella Fotografie ed estrarre solo i record in cui il campo Sezione = Fumetti"
![]()

Rispondi quotando
VVoVe:
