Inserire record multipli da array

[Ciombe]

salve ho un esigenza particolare, ovvero quello di inserire in una textfield delle parole divise da loro da semplice spazio e con uno script splittarle, metterle dentro a un array per inserirle singolarmente e tutte insieme in un un db...

io ho provato una cosa del genere

<%
Dim Arr
Arr = split (Request.Form("tagsname"), " ")
if IsArray(Arr) then
for i = 0 to Ubound(Arr)
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_TotalitaVarie_STRING
Command1.CommandText = "INSERT INTO Tags (nometag) VALUES ("& Arr(i) &") "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true

[optime]

Originariamente inviato da Ciombe
io ho provato una cosa del genere

grazie di avercelo detto

[Ciombe]

mi ha troncato il post... il forum è un po pesante oggi... mi va e mi viene la connessione...

cmq

questo è il codice

<%
Dim Arr
Arr = split (Request.Form("tagsname"), " ")
if IsArray(Arr) then
for i = 0 to Ubound(Arr)
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_TotalitaVarie_STRING
Command1.CommandText = "INSERT INTO Tags (nometag) VALUES ("& Arr(i) &") "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Next
end if
%>

e questo è l'errore

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Driver ODBC Microsoft Access] Parametri insuff

[Ciombe]

mi ha troncato il post... il forum è un po pesante oggi... mi va e mi viene la connessione...

cmq

questo è il codice

<%
Dim Arr
Arr = split (Request.Form("tagsname"), " ")
if IsArray(Arr) then
for i = 0 to Ubound(Arr)
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_TotalitaVarie_STRING
Command1.CommandText = "INSERT INTO Tags (nometag) VALUES ("& Arr(i) &") "
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Next
end if
%>

e questo è l'errore

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Driver ODBC Microsoft Access] Parametri in

[Ciombe]

ce la farò....

Microsoft OLE DB Provider for ODBC Drivers error '80040e10'

[Microsoft][Driver ODBC Microsoft Access] Parametri insufficienti. Previsto 1.

/totalita.it/prova1.asp, riga 14


mi date un mano?

[optime]

fatti stampare .commandtext, l'errore è lì

[Ciombe]

ho fatto così... nel form ho inserito alcuni valori:

valore1 valore2 valore3

eseguendo la famosissima

Response.Write "maGGica SQL...: " & Command1.CommandText
Response.Flush

mi ha dato questo

maGGica SQL...: INSERT INTO Tags (nometag) VALUES (totalita)

ovvero solo il primo valore...

[optime]

riposta il codice, con anche la maGGica

[Ciombe]

<%
Dim Arr
Arr = split (Request.Form("tagsname"), " ")
if IsArray(Arr) then
for i = 0 to Ubound(Arr)
Set Command1 = Server.CreateObject ("ADODB.Command")
Command1.ActiveConnection = MM_Conn_STRING
Command1.CommandText = "INSERT INTO Tags (nometag) VALUES ("&Arr(i)&") "
Response.Write "maGGica SQL...: " & Command1.CommandText
Response.Flush
Command1.CommandType = 1
Command1.CommandTimeout = 0
Command1.Prepared = true
Command1.Execute()
Next
end if
%>

[optime]

<% 

Response.Write "maGGico TAG...: " & (Request.Form("tagsname"))
Response.Flush

Dim Arr
Arr = split (Request.Form("tagsname"), " ")
if IsArray(Arr) then
   for i = 0 to Ubound(Arr)
     Set Command1 = Server.CreateObject ("ADODB.Command")
      Command1.ActiveConnection = MM_Conn_STRING
      Command1.CommandText = "INSERT INTO Tags (nometag)  VALUES ("&Arr(i)&") "
      Response.Write "maGGica SQL...: " & Command1.CommandText
      Response.Flush
      Command1.CommandType = 1
      Command1.CommandTimeout = 0
      Command1.Prepared = true
      Command1.Execute()
   Next
end if 
%>

e vediamo cosa vale maGGico TAG