dove potrei inserire il ciclo in questo codice?
E come risolvo il problema del nome dei campi uguali?
Grazie
Codice PHP:
<%
Dim rs_prodotti
Dim rs_prodotti_cmd
Dim rs_prodotti_numRows
Set rs_prodotti_cmd = Server.CreateObject ("ADODB.Command")
rs_prodotti_cmd.ActiveConnection = MM_conn_STRING
rs_prodotti_cmd.CommandText = "SELECT * FROM tbl_prodotti WHERE TIPO_MAGAZZINO = ? AND ID_TIPO_PROD =" & (rs_intervento.Fields.Item("ID_TIPO").Value)
rs_prodotti_cmd.Prepared = true
rs_prodotti_cmd.Parameters.Append rs_prodotti_cmd.CreateParameter("param1", 200, 1, 255, rs_prodotti__MMColParam) ' adVarChar
Set rs_prodotti = rs_prodotti_cmd.Execute
rs_prodotti_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
rs_prodotti_numRows = rs_prodotti_numRows + Repeat1__numRows
%>
<form ACTION="<%=MM_editAction%>" METHOD="POST" name="agg_prod" id="agg_prod">
<table cellpadding="0" cellspacing="0" border="0" id="table" class="sortable">
<thead>
<tr>
<th><h3>ID</h3></th>
<th><h3>Codice</h3></th>
<th><h3>Descrizione</h3></th>
<th><h3>Disponibili</h3></th>
<th><h3>Impegnati</h3></th>
</tr>
</thead>
<tbody>
<%
While (NOT rs_prodotti.EOF)
%>
<tr>
<td align="left"><%=(rs_prodotti.Fields.Item("ID_PRODOTTO").Value)%></td>
<td align="left"><%=(rs_prodotti.Fields.Item("CODICE_INTERNO").Value)%></td>
<td align="left"><%=(rs_prodotti.Fields.Item("DESCRIZIONE_PRODOTTO").Value)%></td>
<td align="left"><%=(rs_prodotti.Fields.Item("QUANTITA").Value)%></td>
<td align="left">qtà
<input name="qta_impegno" type="text" id="qta_impegno" style="width:30px">
mt
<input name="mt_impegno" type="text" id="mt_impegno" style="width:30px">
<input name="id_prodotto" type="hidden" id="id_prodotto" value="<%=rs_prodotti.Fields.Item("ID_PRODOTTO")%>">
<input name="id_intervento" type="hidden" id="id_intervento" value="<%=rs_intervento.Fields.Item("ID_INTERVENTO")%>"></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rs_prodotti.MoveNext()
Wend
%>
</tbody>
"""SUBMIT""""
</table>
</form>