inserimento multirecord con un solo pulsante di invio

[Ciombe]

Salve,
devo creare una pagina in cui possa popolare un db tramite form non di un record solo ma di più record contemporaneamente con un solo pulsante di invio modulo.

Il problema è che io so solamente inserire un record per volta, non ho idea di come creare un inserimento multirecord

[optime]

la regola è semplice: tante insert quanti sono i record da inserire

[yro]

tutti record uguali? :master:

[Ciombe]

no, tutti record diversi.

ok tanti insert, ma alla fine di ogni modulo che mi dovrebbe popolare un record mette un pulsante?
o metto solo un pulsante alla fine di tutti i moduli, mi spiego:

1 record = 1 pulsante quindi 15 record = 15 pulsanti

o 15 record = 1 pulsante?

spero di essermi spiegato!!!

[optime]

fa' vedere come fai UNA insert

[Ciombe]

<%
If (CStr(Request("MM_insert")) = "form1") Then
If (Not MM_abortEdit) Then
' execute the insert
Dim MM_editCmd

Set MM_editCmd = Server.CreateObject ("ADODB.Command")
MM_editCmd.ActiveConnection = MM_MiaConnessione_STRING
MM_editCmd.CommandText = "INSERT INTO miaTabella (campo1, campo2, campo3, campo4, campo5, campo6, campo7, campo8, campo9, campo10, campo11, campo12, campo13, campo14, campo15, campo16, campo17, campo18, campo19, campo20, campo21) VALUES (?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?, ?)"
MM_editCmd.Prepared = true
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 5, 1, -1, MM_IIF(Request.Form("campo1"), Request.Form("campo1"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 5, 1, -1, MM_IIF(Request.Form("campo2"), Request.Form("campo2"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("campo3)) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 1, Request.Form("campo4")) ' adVarWChar
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 5, 1, -1, MM_IIF(Request.Form("5"), Request.Form("5"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 5, 1, -1, MM_IIF(Request.Form("6"), Request.Form("6"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("7"), Request.Form("7"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 5, 1, -1, MM_IIF(Request.Form("8"), Request.Form("8"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 5, 1, -1, MM_IIF(Request.Form("9"), Request.Form("9"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 5, 1, -1, MM_IIF(Request.Form("10"), Request.Form("10"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 5, 1, -1, MM_IIF(Request.Form("11"), Request.Form("11"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 5, 1, -1, MM_IIF(Request.Form("12"), Request.Form("12"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 5, 1, -1, MM_IIF(Request.Form("13"), Request.Form("13"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 5, 1, -1, MM_IIF(Request.Form("14"), Request.Form("14"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param15", 5, 1, -1, MM_IIF(Request.Form("15"), Request.Form("15"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param16", 5, 1, -1, MM_IIF(Request.Form("16"), Request.Form("16"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param17", 5, 1, -1, MM_IIF(Request.Form("17"), Request.Form("17"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param18", 5, 1, -1, MM_IIF(Request.Form("18"), Request.Form("18"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param19", 5, 1, -1, MM_IIF(Request.Form("19"), Request.Form("19"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param20", 5, 1, -1, MM_IIF(Request.Form("20"), Request.Form("20"), null)) ' adDouble
MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param21", 5, 1, -1, MM_IIF(Request.Form("21"), Request.Form("22"), null)) ' adDouble
MM_editCmd.Execute
MM_editCmd.ActiveConnection.Close

' append the query string to the redirect URL
Dim MM_editRedirectUrl
MM_editRedirectUrl = "pagina.asp"
If (Request.QueryString <> "") Then
If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
Else
MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
End If
End If
Response.Redirect(MM_editRedirectUrl)
End If
End If
%>

questa è la porzione di codice della pagina che devo lavorare che mi inserisci un solo record.
ho messo nome di campi e connessioni fittizie.