Più oggetti nella stessa querystring

[Grinder]

Ho qualche difficoltà con il sistema che sto usando. I dati li invio da un form che ha diversi checkbox tutti con lo stesso nome, ma con valore diverso.

Dunque creo un array della stringa e inserisco tutto in un ciclo for...next:

dim arrProd, arr

arrProd = split(request.querystring("id_prod"), ", ")
cont_rs = 0
arr = 0

if request.QueryString("disp") = 1 then
disponibile = "AND DISP <> 0"
else
disponibile = ""
end if

for i = 0 to ubound(arrProd)' and cont_rs < 100
set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM newecom WHERE CODART = '"&arrProd(arr)&"' "&disponibile&" "&ordina&""
rs.Open sql, objCon

quisc = 0
      quipr = rs("preart2")
      if rs.eof then
        quisc = 0
      else
        if strpromo <> "P" and strpromo <> "O" then
          quisc = rs("sc")
          quipr = rs("preart2") - (rs("preart2") * CDbl(quisc) / 100)
        end if
      end if
%>

'RIGHE DELLA TABELLA DA RIPETERE'

<%rs.movenext
			bVar = NOT bVar
			cont_rs = cont_rs + 1
			arr = arr + 1
			next
			
end select

Il problema è che così facendo creo una query per ogni oggetto nella querystring e non ho nessun controllo sull'ordinamento (oltretutto è pesantissimo).

Volevo quindi realizzare una "SELECT...WHERE codart IN('"&requestquerystring("id_prod")"&')", però così non mi tira fuori niente!

[ilgiovo]

se fai così???

cont_rs = 0
arr = 0

if request.QueryString("disp") = 1 then
disponibile = "AND DISP <> 0"
else
disponibile = ""
end if

set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM newecom WHERE CODART IN ('" & replace(request.querystring("id_prod"), ", ", "','") & "') "&disponibile&" "&ordina&""
rs.Open sql, objCon

non l'ho testata, ma è per illustrarti il concetto

[99eros9]

ma non te lo aveva già spiegato optime nell'altro 3D?

[Grinder]

Yessss, grazie