Array ripetuti

[pepigno1975]

Allora nel mio carello memorizzo in uan Session degli id dei prodotti.
L'utente naviga e via via aggiunge i prodotti.
Ora mi funziona tutto e quando l'utente visualizza il carrello ho fatto cosi:


Dim myArray, objConn
If IsArray(Session("carrello")) then
myArray= Session("carrello")
Set objConn= Server.CreateObject("ADODB.Connection")
objConn.ConnectionString="DRIVER={Microsoft Access Driver (*.mdb)}; DBQ="&Server.MapPath("db/store.mdb")
objConn.open
Set RS = Server.CreateObject( "ADODB.Recordset")
sqlString = "SELECT * from Prodotti where idprod="&myArray(0)&""
for iLoop= (lBound(myArray)+1) to UBound(myArray)
if myArray(iLoop) <> "" then
sqlString= sqlString& " or idprod="&myArray(iLoop)&""
end if
next
RS.Open sqlString,objConn
else
end if


In questo modo faccio una quesry con gli id della Session.
Ora in teoria funziona ma se nell'array ci sono id uguali non riesco a visulizzare altri prodotti.
Cioè se ho un array cosi 1,2,3,4,4,4
Incece di far vedere 6 prodotti ne vedo 4 perchè l'id 4 è ripetuto.
Come posso fare per sapere se gli array sono uguali
Devo fare tanti calcoli?

[optime]

in effetti e' un problema... forse l'unica soluzione e' usare una SELECT ... UNION

[pepigno1975]

Cioè ? cos'è il select union, uso ASP pochissimo e le mie query sonom molto semplici.
Grazie della risposta.

[optime]

non e' questione di ASP, ma questione di SQL.

ad esempio

SELECT campo FROM tabella WHERE ID=4
UNION
SELECT campo FROM tabella WHERE ID=4


ti riporta due records, cosi' come serve a te

[pepigno1975]

Qundi :

sqlString = "SELECT * from Prodotti where idprod="&myArray(0)&""
for iLoop= (lBound(myArray)+1) to UBound(myArray)
if myArray(iLoop) <> "" then
sqlString= sqlString& "UNION SELECT idprod="&myArray(iLoop)&""
end if
next


Diventa cosi; cmq ora lo provo.grazie

[pepigno1975]

Non mi funziona sbaglio qualcosa ho scritto:

sqlString = "SELECT * from Prodotti where idprod="&myArray(0)&""
for iLoop= (lBound(myArray)+1) to UBound(myArray)
if myArray(iLoop) <> "" then
sqlString= sqlString& "UNION SELECT * from Prodotti where idprod="&myArray(iLoop)&""
end if
next


Ma non funziona lo stesso.
Grazie lo stesso

[optime]

2 cose:

1. quando ti trovi in queste condizioni, stampati la stringa sql prima di eseguirla, con (in questo caso) Response.Write sqlString

2. qui manca uno spazio prima della clausola UNION

[pepigno1975]

Si l'avevo notato e l'ho corretto ma lo stesso non mi funziona.
Ti stampo la stringa e te la faccio vedere.


SELECT * from Prodotti where idprod=4 UNION SELECT * FROM Prodotti WHERE idprod=5 UNION SELECT * FROM Prodotti WHERE idprod=4 UNION SELECT * FROM Prodotti WHERE idprod=7 UNION SELECT * FROM Prodotti WHERE idprod=4 UNION SELECT * FROM Prodotti WHERE idprod=5

Mi sembra che vada bene, ma visulizzo sempre 3 prodotti.

[optime]

vero! usa UNION ALL