Trasferire i dati da un Array al database. Come si fa?

[65enox]

Ciao,
sto cercando di completare un modello di e-commerce e mi trovo il codice seguente:

'.......................
<%
Dim arrPrintCart, y
arrPrintCart =Session("Cart")
intSubtotal = 0

For y = 1 to (UBound(arrPrintCart, 2)-1)
Response.Write "<tr><td class='fillin'>" & arrPrintCart(0, y) & "</td>"
Response.Write "<td class='fillin'>" & arrPrintCart(1,y) & "</td>"
Response.Write "<td class='fillin'>" & arrPrintCart(2, y) & "</td>"
Response.Write "<td class='fillin'>" & arrPrintCart(3, y) & "</td>"
Response.Write "<td class='fillin'>" & FormatCurrency(arrPrintCart(4, y), 2) & "</td>"
intSubtotal = arrPrintCart(4,y) + intSubtotal
Next %>

and
'........................


In sostanza richiama l'Array del carrello e lo visualizza sulla pagina in linea che, nella versione "attiva" , diventa:
'...............

<tr><td class='fillin'>1</td><td class='fillin'>large</td><td class='fillin'>hawaii</td><td class='fillin'></td><td class='fillin'>L. 101,99</td>

and
'...............
visto che io, nell'esempio, ho deciso di acquistare una pizza "hawaii" al prezzo di 101.99

Ora vorrei trasferire gli stessi elementi dell'ordine (numero e tipo di pizze) nel database ma non riesco a capire quale sia la sintassi.
Ho provato anche) così ma non funziona!

'..........................
<% Set ConnObj = Server.CreateObject("ADODB.Connection") %>
<!--#include file="inc_connect.asp"-->

<% ConnObj.Open(MyConnStr)

strSQL = "INSERT INTO tblUsers1 (intQty, strSize, strPizza, srtTop, intPrice ) VALUES "

strSQL = strSQL = "('" 'fillin' & arrPrintCart(0, y) &"', "
strSQL = strSQL & "'" & arrPrintCart(1, y) & "', "
strSQL = srtSQL & "'" & arrPrintCart(2, y) & "', "
strSQL = strSQL & "'" & arrPrintCart(3, y) & "', "
strSQL = strSQL & "'" & FormatCurrency(arrPrintCart(4, y),2) & "');"
%>

Qualcuno mi può aiutare?
Grazie, Maurizio