Originariamente inviato da imente
beh.
esegui la query che ti ho dato aggiungendo un "WHERE citta = '" & nomecitta & "'"
dove nomecitta è il nome di una citta... che viene preso da un recordset dove selezioni TUTTI i nomi delle città (senza doppioni)
---
Ho scritto così:
codice:
set rec = server.createobject("ADODB.RecordSet")
csvSQL = "SELECT LUOGO FROM TABELLA"
rec.open csvSQL, objconn, 3, 3
Do Until rec.Eof
LUOGO = rec("LUOGO")
rec.MoveNext
Loop
set rs = server.createobject("ADODB.RecordSet")
strSQL = "SELECT Last(Tabella.ID) AS ID, Tabella.LUOGO, Last
(Tabella.ELEMENTO) AS ELEMENTO, Last(Tabella.ENTE) AS ENTE, Last
(Tabella.DATA) AS DATA, Last(Tabella.TOTALE) AS TOTALE,
Tabella.NOMEMESE, Tabella.IDMESE FROM Tabella GROUP BY Tabella.ENTE,
Tabella.LUOGO, Tabella.IDMESE, Tabella.NOMEMESE HAVING (((Last
(Tabella.DATA))=#1/1/2000#) AND ((Last(Tabella.TOTALE))=0) AND
((Tabella.IDMESE)=1 Or (Tabella.IDMESE)=2 Or (Tabella.IDMESE)=3 Or
(Tabella.IDMESE)=4 Or (Tabella.IDMESE)=5)) AND (Tabella.ENTE = 'A'
OR Tabella.ENTE = 'B') WHERE Tabella.Luogo = '"&LUOGO&"' ORDER BY
Last(Tabella.ID), Tabella.LUOGO, Tabella.IDMESE"
rs.open strSQL, objconn, 3, 3
Do Until Rs.Eof
LUOGO = rs("LUOGO")
ELEMENTO = rs("ELEMENTO")
ENTE = rs("ENTE")
DATA = rs("DATA")
TOTALE = rs("TOTALE")
IDMESE = rs("IDMESE")
NOMEMESE = rs("NOMEMESE")
Rs.MoveNext
Loop
response.write(rs.recordcount) & "
"
rs.close
set Rs = nothing
rec.close
set rec = nothing
objconn.Close
Set objconn = Nothing
Ma la pagina restituisce:
Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80040E14)
[Microsoft][Driver ODBC Microsoft Access] Errore di sintassi (operatore mancante) nell'espressione della query