Invoicing in classic Asp + Ajax - asp-classic

Question

I need to a form for invoicing,
Please help me to have some Idea how to insert all the data at once into invoice table.
I am using text box to get all details for items .
here is the code for get details of items from table.
enter code here<% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF))%>
<tr>
<td><input name="dipatchid" type="text" id="dipatchid" value="<%=(Recordset1.Fields.Item("dispatchid").Value)%>" size="5" /></td>
<td><input name="dispatchdate" type="text" id="dispatchdate" value="<%=(Recordset1.Fields.Item("dis_date").Value)%>" /></td>
<td><input type="hidden" name="custid_" id="custid_" />
<input name="From_" type="text" id="From_" value="<%=(Recordset1.Fields.Item("from_").Value)%>" /></td>
<td><input name="to_" type="text" id="to_" value="<%=(Recordset1.Fields.Item("To_").Value)%>" /></td>
<td><input name="hrs" type="text" id="hrs" value="<%=(Recordset1.Fields.Item("total_hrs").Value)%>" size="5" /></td>
<td><input name="rate_" type="text" id="rate_" size="8" /></td>
<td><input name="totalamt" type="text" id="totalamt" size="10" /></td>
<td><img src="imgs/error_icon.png" width="16" height="16" alt="Remove" /></td> </tr>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 Recordset1.MoveNext() Wend %>

Answer 1

To accomplish this, you will need to keep track of two things:
the number of rows that are going to be inserted
the data of each row
Tricks to do this, is simple. While you display your data, you increment a variable with the number of loops.
<%
iNumberOfRecords = 0
Do Until Recordset1.EOF
%>
<tr>
<td>
<input name="dipatchid" type="text" id="..." value="<%=Recordset1("dispatchid")%>" />
</td>
...
</tr>
<%
iNumberOfRecords = iNumberOfRecords + 1
Recordset1.MoveNext
loop
Recordset1.Close
%>
Before you close your <form> tag, you put that in a hidden field.
<input type="hidden" name="iNumberOfRecords" value="<%=iNumberOfRecords%>" />
Next, on the page where you submit to, you loop iNumberOfRecords times to insert all the rows.
<%
for i = 1 to CInt(Request.Form("iNumberOfRecords"))
idOfRecord = GetFormValue("dipatchid", i)
otherField = GetFormValue("otherField", i)
SQL = "INSERT INTO tblInvoices(dispatchid, otherfield) VALUES ( " & idOfRecord & ", " & otherfield & " )"
Connectionobject.Execute(SQL)
next
Function GetFormValue(sFormname, iIndex)
If Request.Form(sFormname).Count >= iIndex And iIndex > 0 Then
GetFormValue = Request.Form(sFormname)(iIndex)
Else
GetFormValue = ""
End If
End Function
%>
The (i) fetches the right Request.Form("...") item for you.