Recupero variabile in un ciclo

[orcim]

Buongiorno a tutti!

Sto cercando di passare più valori contemporaneamente, in un campo nascosto, ad una secondapagina.asp:

<input type="hidden" name="id" value="<%=id%>">

il valore viene recuperato all'interno di un ciclo in questo modo:

else
While Not rs.EOF

id=rs("ID")
...
rs.MoveNext
wend

vorrei che, tramite il campo nascosto, venissero passati tutti gli id, mentre secondapagina.asp, dove recupero con:

cod=request.form("id")

, prende solo il primo degli id... c'è soluzione?

[SimoneVB]

Spero di avere capito bene.
Nel ciclo potresti concatenare tutti gli id separandoli con , o altro segno:

If id <> "" Then id = id & ","
id=rs("ID")

Nella seconda pagina, una volta letto il valore del campo hidden potresti farne uno split ottenendo un'array di tutti gli id

Arr = Split(valore_campo_hidden, ",")

[orcim]

grazie, ma non funziona. alla secondapagina.asp arriva sempre l'ultimo degli id in questione.

[max161]

If id <> "" Then id = id & ","
id=rs("ID")

la riga sopra devi metterla all'interno del ciclo while

[optime]

max, se riassegni iD=rs.... viene riazzerato ogni volta

id=""
do
 If id <> "" Then id = id & ","
 id = id & rs("ID")
loop

[orcim]

While Not rs.EOF

If Id <> "" Then Id = Id & "," 
id=rs("Id") 

response.write id

rs.MoveNext
wend
%>

<input type="hidden" name="Id" value="<%=Id%>">

è quello che ho fatto; in pratica nel ciclo gli id vengono tutti stampati, ma nel passaggio a secondapagina.asp si valorizza dolo l'ultimo...

[optime]

leggi il mio post

[orcim]

Originariamente inviato da optime
leggi il mio post

grazie ma restituisce

Active Server Pages, ASP 0113 (0x80004005)
The maximum amount of time for a script to execute was exceeded. You can change this limit by specifying a new value for the property Server.ScriptTimeout or by changing the value in the IIS administration tools.

if rs.eof then
response.write ("ko")
else
While Not rs.EOF

UploadId=""
do
 If UploadId <> "" Then UploadId = UploadId & ","
 id = UploadId & rs("UploadId")
loop

response.write id

rs.MoveNext
wend

[optime]

ciccio, il mio do...loop era solo un esempio. usa il tuo ciclo

[orcim]

si scusa... perdo colpi... comunque arriva sempre l'ultimo id...

if rs.eof then
response.write ("ko")
else

id=""  'ho provato anche a spostarlo nel ciclo, ma è lo stesso

While Not rs.EOF

 If Id <> "" Then Id = Id & ","
 id = Id & rs("Id")

response.write id

rs.MoveNext
wend