aggiornamento multiplo record

[Pandolfo]

Sto creando una galleria immagini, le estraggo dalla tabella e vorrei dare la possibilità all' utente di inserire una didascalia attraverso un campo text associato ad ogni immagine.
Per far ciò sto riscrivendo questo script (QUI ) in questo modo...

estraggo i dati...

Dim estrazioneCICLOIMMAGINE
Set estrazioneCICLOIMMAGINE = Server.CreateObject("ADODB.Recordset")
Dim SQLestrazioneCICLOIMMAGINE
SQLestrazioneCICLOIMMAGINE = "SELECT * FROM immagini WHERE codiceimmobile = '"&estrazioneDATIIMMOBILE("codiceimmobile")&"' ORDER By idimmagine"
conn.Execute(SQLestrazioneCICLOIMMAGINE)
estrazioneCICLOIMMAGINE.Open SQLestrazioneCICLOIMMAGINE, conn

ed eseguo il ciclo...

If estrazioneCICLOIMMAGINE.EOF then...
else
v = 0 ' contatore campi
ReDim datoOutput((estrazioneCICLOIMMAGINE.recordCount-1),3)

While Not estrazioneCICLOIMMAGINE.EOF
datoOutput(v,0) = estrazioneCICLOIMMAGINE("idimmagine")
datoOutput(v,1) = estrazioneCICLOIMMAGINE("didascalia")
datoOutput(v,2) = estrazioneCICLOIMMAGINE("preferita")
v = v + 1
With Response

ho poi un campo hidden per l' associazione dei dati ai rispettivi campi...

<input name="<%=estrazioneCICLOIMMAGINE("idimmagine")%><%=CStr(vx)%>" type="hidden" value="<%=datoOutput1(vx,0)%>">

chiudo il ciclo...

End With
estrazioneCICLOIMMAGINE.MoveNext
Wend
end if

ma tutto cio non funziona

chi mi può aiutare??
Grazie

[Pandolfo]

Qualcuno mi sa consigliare come risolvere il problema con MySQL poichè lo script dell' esempio mi da l' errore

Microsoft VBScript runtime error '800a0007'

Out of memory


aiutoooooo

[Pandolfo]

auuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuuu uu

[Pandolfo]

proprio niente niente???

[Pandolfo]

risolto in modo maccheronico...

    Dim SQL, id_records,didascalia
	id_records=split(request.form("idimmagine"),",")
	i = 0
For i = 0 To UBound(id_records)
	n_didascalia=split(Replace(Request.Form("didascalia"), "'", "''"),",")
i2=0
For i2 = 0 To UBound(n_didascalia)
	SQL="UPDATE immagini SET didascalia='"&n_didascalia(i)&"'  where idimmagine = "& id_records(i)
    conn.Execute(SQL)
Next
Next
    conn.Close
    Set conn = Nothing

[Pandolfo]

l' unica cosa è che dopo il primo aggiornamento negli altri come primo carattere mi inserisce uno spazio, come faccio a toglierlo?