Salve sto lavorando ad un sito di ricette....io ho creato un form statico&dinamico fatto con javascript che mi aggiunge tramite un pulsante delle input, delle textareas e dell'input file (gestiti con baol) ..ma ho problemi quando devo inserire il tutto nel database...
Ecco la descrizione completa:
- ci sono degli input statici
- tramite un pulsante che attiva la funzione javascprit "createInput" mi aggiunge un select e un input di testo

- tramite un pulsante che attiva la funzione javascprit "createInput2" mi aggiunge una texarea e un input file

Domanda:
Riguado agli input statici non ci sono problemi..ma come faccio a ad inserire in una tabella del mio database gli input "ingredienti" & "commento"(di cui non conosco il numero di creazioni) e lo stesso per le textares "preparazione" la relative immagini (file da uploare)?
Spero in una mano che non ci sto capendo nulla...

Ecco il codice:
<script type="text/javascript">

var arrInput = new Array(0);
var arrInputValue = new Array(0);
var arrInputValue1 = new Array(0);

function addInput(){
arrInput.push(arrInput.length);
arrInputValue.push("");
arrInputValue1.push("");
display();
}

function display(){
document.getElementById('tab_ingredienti_add').inn erHTML = "";
for (intI = 0; intI < arrInput.length; intI++) {
document.getElementById('tab_ingredienti_add').inn erHTML += createInput(arrInput[intI], arrInputValue[intI], arrInputValue1[intI]);
}
}

function saveValue(intId, strValue){
arrInputValue[intId] = strValue;
}

function saveValue1(intId, strValue){
arrInputValue1[intId] = strValue;
}

function createInput(id, value, value1){
return "[img]ingredienti.png[/img]Ingrediente n°"+id+" <% Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=62.149.153.15;Database=xxx;Uid=xxxx ;Pwd=xxx;"
sSql = "SELECT * FROM ingredientiricetta ORDER BY ingrediente"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3%><select name='ingrediente" + id + "' id='ingrediente" + id + "' onChange='saveValue(" + id + ",this.value)'><% If rs.EOF=True Then %><option value='' selected='selected'>Nessuna categoria</option><%Else%> <option value='' selected='selected'></option><%Do Until rs.EOF %><option value='<%=rs("id")%>'><%=rs("ingrediente")%></option> <%rs.MoveNext
Loop
End If
id=id
rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
%></select> Commento <input type='text2' size='30' id='commentoingrediente " + id + "' onChange='saveValue1(" + id + ",this.value)' value='" + value1 + "'>
";
}



function deleteInput(){
if (arrInput.length > 0) {
arrInput.pop();
arrInputValue.pop();
arrInputValue1.pop();
}
display();
}
</script>
<script type="text/javascript">

var arrInput2 = new Array(0);
var arrInputValue2 = new Array(0);
var arrInputValue12 = new Array(0);

function addInput2(){
arrInput2.push(arrInput2.length);
arrInputValue2.push("");
arrInputValue12.push("");
display2();
}

function display2(){
document.getElementById('tab_ingredienti_add2').in nerHTML = "";
for (intI2 = 0; intI2 < arrInput2.length; intI2++) {
document.getElementById('tab_ingredienti_add2').in nerHTML += createInput2(arrInput2[intI2], arrInputValue2[intI2], arrInputValue12[intI2]);
}
}

function saveValue2(intId2, strValue2){
arrInputValue2[intId2] = strValue2;
}

function saveValue12(intId2, strValue2){
arrInputValue12[intId2] = strValue2;
}

function createInput2(id2, value2, value12){

return "[img]procedimento.png[/img]Procedimento n°"+id2+"</br><textarea cols='75' rows='10' id='procedimento" + id2 + "' name='procedimento" + id2 + "' onChange='saveValue12(" + id2 + ",this.value)'></textarea></br>[img]imag.png[/img] Immagine <input type='file' name='immagine" + id2 + "' id='immagine" + id2 + "' onChange='saveValue12(" + id2 + ",this.value)' value='" + value12 + "'></br>";}


function deleteInput2(){
if (arrInput2.length > 0) {
arrInput2.pop();
arrInputValue2.pop();
arrInputValue12.pop();
}
display2();
}
</script>
<%
If Request.QueryString("Save")="1" then

Dim oUpload
dim immagine
Set oUpload = new cUpload
oUpload.AutoRename = True
oUpload.Overwrite = False
oUpload.SetPath "/public" 'Impostazione del percorso
oUpload.Load
oUpload.UploadOnly "images,application"




Dim conn
Dim rs
Dim sSql
Dim ID


Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=xxxx;Database=xxxx;Uid=xxxx;Pwd=xxx ;"
Set Rs=server.CreateObject("ADODB.Recordset")
Rs.Open "ricette",Conn,3,3
Rs.AddNew

Rs("titolo") = oUpload.Form("titolo")
Rs("tempopreparazione") = oUpload.Form("tempopreparazione")
Rs("tempocottura") = oUpload.Form("tempocottura")
Rs("difficolta") = oUpload.Form("difficolta")
Rs("porzioni") = oUpload.Form("porzioni")
Rs("costo") = oUpload.Form("costo")
Rs("reperibilitaingredienti") = oUpload.Form("reperibilitaingredienti")
Rs("categoria1") = oUpload.Form("categoria1")
Rs("categoria2") = oUpload.Form("categoria2")
Rs("categoria3") = oUpload.Form("categoria3")
Rs("categoria4") = oUpload.Form("categoria4")
Rs("categoria5") = oUpload.Form("categoria5")
Rs("categoria6") = oUpload.Form("categoria6")
Rs("categoria7") = oUpload.Form("categoria7")




Rs.update
Rs.Close
Conn.Close
Set Rs = Nothing
Set Conn=Nothing
Set oUpload = Nothing


'--------inizio ultimo id-------------
dim ultimoid
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Driver={SQL Server};Server=xxxx;Database=xxx;Uid=xxx;Pwd=xxx;"
sSql = "SELECT TOP 1 * FROM ricette ORDER BY id DESC"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sSql, conn, 3, 3

ultimoid=rs("id")

rs.Close
Set rs = Nothing
conn.Close
Set conn = Nothing
'--------fine ultimo id---------------


'--------inizio ingredienti--------
Dim conn3
Dim rs3
Dim sSql3
Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "Driver={SQL Server};Server=xxxx;Database=xxxx;Uid=xxx;Pwd=xxx; "
Set Rs3=server.CreateObject("ADODB.Recordset")
Rs3.Open "ingredienti",Conn3,3,3


FOR contatore = 0 TO id
Rs3.AddNew
ingrediente="ingrediente"+""&contatore&""
commento="ingrediente"+""&contatore&""
rs3("ingrediente")=oUpload.Form(""&ingrediente&"")
rs3("commentoingrediente")=oUpload.Form(""&comment o&"")
rs3("idricetta")=ultimoid
NEXT


rs3.Close
Set rs3 = Nothing
conn3.Close
Set conn3 = Nothing
'--------fine ingredienti----------



'--------inizio preparazione--------

Set Conn3 = Server.CreateObject("ADODB.Connection")
Conn3.Open "Driver={SQL Server};Server=xxxx;Database=xxxx;Uid=xxx;Pwd=xxxx ;"
Set Rs3=server.CreateObject("ADODB.Recordset")
Rs3.Open "procedimenti",Conn3,3,3


While Not oUpload.EOF
oUpload.Save()
Select Case lCase(oUpload.Files("InputName"))

Case "immagine"
immagine = oUpload.GetFileName()


End Select
oUpload.MoveNext
Wend

FOR contatore2 = 0 TO id2
Rs3.AddNew
rs3("procedimento")=oUpload.Form("procedimento"+co ntatore2)
rs3("idricetta")=ultimoid
Rs("immagine") = immagine+""&contatore2&""
NEXT

rs3.Close
Set rs3 = Nothing
conn3.Close
Set conn3 = Nothing
'--------fine preparazione---------


Response.Redirect("inserisci-ricetta.asp")

End if
%>