creare variabili in un ciclo

[Pandolfo2]

come posso creare delle variabili in un ciclo.

ad esempio inizialmente creo immagine1 e ad ogni ciclo vorrei farla incrementare, quindi immagine2, immagine3 ecc

[Roby_72]

Potresti usare un array.

Roby

[Pandolfo2]

ad esempio io ho questa per eliminare dei prodotti da un carrello della spesa

<%
    Dim SQL, id_records
	id_records=split(request.form("id"),",")
	for each id in id_records
    SQL = "DELETE FROM carrello WHERE id=" & id
    conn.Execute(SQL)
	next
    Response.Redirect "carrello.asp"
    conn.Close
    Set conn = Nothing
%>

puoi aiutarmi?

dovre creare un ciclo che ad ogni passaggio salva una voce in un campo diverso della stessa riga, immagine1, immagine2, immagine3

come lo posso impostare?

[Roby_72]

<%
    Dim SQL, id_records
	id_records=split(request.form("id"),",")
redim new_var (ubound(id_records-1))
cont = 0
	for each id in id_records
    SQL = "DELETE FROM carrello WHERE id=" & id
    conn.Execute(SQL)
new_var(cont) = cont
	next
    Response.Redirect "carrello.asp"
    conn.Close
    Set conn = Nothing
%>

Roby

[Pandolfo2]

Grazie Roby ma non riesco a capirlo, ho provato a vedere questo ma non riesco
http://asp.html.it/articoli/leggi/79...ne-di-array/2/

dove posso trovare qualcosa che mi spieghi le array?

[Pandolfo2]

mi da errore alla riga in rosso, in verde la array che hp provato a fare...

<%
Dim gg,mm,aa,hh,mn,ss         
    gg = Day(Date())         
    mm = Month(Date())         
    aa = Year(Date())         
    hh = Hour(Time())         
    mn = Minute(Time())         
    ss = Second(Time())         
    codicearticolo = "BBA"&ss&""&mm&""&gg&"X"&hh&""&ss&""&mn 
	Dim SQL
	SQL="INSERT INTO catalogo (codicearticolo, articolo, codice, categoria,sottocat,spazio1,spazio2,spazio3,spazio4,spazio5,catalogo,online) VALUES ('"&codicearticolo&"', '"&Replace(Request.Form("articolo"), "'", "''")&"', '"&Replace(Request.Form("codice"), "'", "''")&"', '"&Replace(Request.Form("categoria"), "'", "''")&"', '"&Replace(Request.Form("sottocat"), "'", "''")&"', '"&Replace(Request.Form("spazio1"), "'", "''")&"', '"&Replace(Request.Form("spazio2"), "'", "''")&"', '"&Replace(Request.Form("spazio3"), "'", "''")&"', '"&Replace(Request.Form("spazio4"), "'", "''")&"', '"&Replace(Request.Form("spazio5"), "'", "''")&"', '"&Replace(Request.Form("catalogo"), "'", "''")&"', '"&Request.Form("online")&"');" 
    conn.Execute(SQL)
Dim oUpload
Set oUpload= new cUpload
With oUpload
.EnabledAspUpload = False
.EnabledImageSize = TRUE
.EnabledLog = False
.AutoRename = True
.Overwrite = False
.SetPath "/public/"
.Load
.UploadOnly "Images"
While Not .Eof
if lcase(oUpload.Files("ext"))<>"jpg" then
response.write "file vietato"
else
If .Files("Height")>=500 or .Files("Width")>=500 then
 Response.write ("Le dimensioni dell'immagine " &_
 .GetFileName() &" non sono corrette (" &_
 .Files("Height") &"x" & .Files("Width") &"): File non caricato
"  )
else
 .Save
 Dim imm(2)
 imm(0) = "immagine1"
 imm(1) = "immagine2"
 for ii = 0 to Ubound(imm)   
 SQL2="UPDATE catalogo SET "&imm(ii) &"='"&.GetFileName() &"' where codicearticolo = '"&codicearticolo&"'"
 conn.Execute(SQL2)
 conn.Close
 Set conn = Nothing 
end if 
end if
.MoveNext
Wend
End With
Set oUpload = Nothing
Response.Redirect("home.asp?page=b")
%>

[wallrider]

di grazia, l'errore qual'è?

[optime]

a occhio apri un ciclo for e non lo chiudi con un next