Recuperare ID

[Mizushi]

Ciao.

Questo è un estratto da una pagina ASP:

   sSql = " SELECT * FROM _lista "
   sSql = sSql & " WHERE .... "

   Set objRs = CreateObject("ADODB.Recordset")
   objRs.Open sSql, conn   
   
   if not objRs.eof then
   
   id = ""   
   do while not objRs.eof

   ...

   strID = Id & objRS("ID") & ","
       
   objRs.movenext()
   Loop 
               
   end if

   response.redirect ("_inc_xls.asp?id=" & strID & "")

Alla fine è previsto un redirect ad una pagina ASP che dovrebbe recuperare tutti gli ID estratti dalla query iniziale... ma non funziona perchè recupera soltanto questo:

5286,

a fronte di 114 ID validati.

Dove sbaglio?
Grazie

[Roby_72]

strID  = ""   
   do while not objRs.eof

   ...
if strID = "" then
strID = objRS("ID") & ","
else
strID = strID & objRS("ID") & ","
end if

Roby

[Grambo]

bhe è ciò che c'è scritto nel programma

ad ogni ciclo
fa questo

strID = Id & objRS("ID") & ","

alla fine avrai strID che sarà uguale ad id(ovvero campo vuoto " ") + l'ultimo id recuperato + una virgola

prova così

strID = ""
do while not objRs.eof
strID = strID & objRS("ID") & ","

[Mizushi]

Originariamente inviato da Roby_72

strID  = ""   
   do while not objRs.eof

   ...
if strID = "" then
strID = objRS("ID") & ","
else
strID = strID & objRS("ID") & ","
end if

Roby

Ti ringrazio adesso funziona... ma per eliminare l'ultima virgola degli ID estratti come devo fare?

5281,5282,5283,5284,5285,5286

invece di

5281,5282,5283,5284,5285,5286,

[Roby_72]

Puoi usare la LEFT()

strID  = left(strID, len(strID)-1)

Roby

[Mizushi]

Grasiasssss