INSERT INTO multiplo

[Picciola]

Sto usando questo codice per l'inserimento multiplo in una tabella di DB....


<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
session.LCID = 1040
set conn = server.createObject("ADODB.Recordset")
dbPath = server.mapPath("database.mdb")
dbConnString = "Driver={Microsoft Access Driver (*.mdb)};Dbq=" & dbpath

intNumForm = Int((Request.Form.Count - 1) / 3)
For i=1 to intNumForm
codiceprod=request("codiceprod" & i & "")
qta=request("qta" & i & "")
totale=request("totale" & i & "")

strSQL = "INSERT INTO ordini (codiceprod, qta, totale)"
strSQL = strSQL & " values ("
strSQL = strSQL & "'" & codiceprod & "', "
strSQL = strSQL & "'" & qta & "', "
strSQL = strSQL & "'" & totale & "')"

'Response.Write(strSQL) & "
" Questa ce l'ho messa per capire che cavolo stava facendo
conn.execute (strSQL)
Next
conn.Close
Set conn = Nothing
%>


Facendo una scrittura delle Query (la riga in rosso), mi pare che le scriva giuste.....


INSERT INTO ordini (codiceprod, qta, totale) values ('cdf001', '789', '125')
INSERT INTO ordini (codiceprod, qta, totale) values ('cdf004', '150', '25')
INSERT INTO ordini (codiceprod, qta, totale) values ('cdf008', '123', '45')
INSERT INTO ordini (codiceprod, qta, totale) values ('cdf013', '89', '42')
INSERT INTO ordini (codiceprod, qta, totale) values ('cdf009', '250', '355')


Eppure non esegue niente e mi restituisce questo errore


Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01B6)
Proprietà o metodo non supportati dall'oggetto: 'conn.execute'
inserisci.asp, line 16


Per la cronaca, la linea 16 è quella in blu....
Dove sbaglio???

[maximum]

Sono tutti campi stringa? Anche "qta" e "totale"?

[NiBBiOz]

non hai aperto la connessione...

metti un conn.open dbConnString prima di eseguire la query.

Ciao

[Alethesnake]

conn nello script sopra è un oggetto recordset, non adodb.connection, e tra l'altro è chiuso.

[Picciola]

Avete ragioe, la stanchezza di ieri stava facendo la differenza.......


Tutto risolto, grandi come sempre......