Recupero variabile in un ciclo

[orcim]

adesso ho capito... qesti dati adesso vanno visualizzati al volo in un file excel... dovrei fare una query del tipo:

cod=request.form("Id")
response.write cod
Arr = Split(cod, ",")
 
Dim FileName 
FileName="Vista.xls" 
Response.Buffer = true 
Response.ContentType = "application/vnd.ms-excel" 
Response.AddHeader "content-disposition", "inline; filename=" & FileName 
path="mdb-database/pcb.mdb" 
Dim DBConn 
Set DBConn=Server.CreateObject("ADODB.Connection") 
Dim rs 
set rs=Server.CreateObject("ADODB.Recordset") 
strConn="Provider = Microsoft.Jet.OLEDB.4.0;" 
strConn= strConn & "Data Source =" & Server.MapPath(path) 
DBConn.Open strConn 

Set rs=DBConn.Execute("SELECT Uploadid, campoA, campoB FROM tabella where ="&cod&"")

Set rs=Nothing 
DBConn.Close 
Set DBConn= Nothing

ma va in errore, dove sbaglio? :master:

[orcim]

In sostanza dovrei prevede una condizione del tipo:

...where = 31,33,34,35,37,38,39,40,42,43,44,45,46

è possibile???

[orcim]

nessuna idea?

[orcim]

per la cronaca e la ricerca:

cod=request.form("Id")
Set rs=DBConn.Execute("SELECT * FROM tabella where ID in ("&cod&")")