I have tried it, but it still does not work... Here is both pages maybe that might help.
This is the Form page where the data is entered.
<HTML><HEAD><BODY>
<!--#include file="includes/commonheader.asp"-->
<SCRIPT LANGUAGE="JavaScript">
<!--
function SaveOrder()
{
document.forms[0].action = "saveSupplyOrder.asp";
document.forms[0].submit();
}
// -->
</SCRIPT>
<LINK href="..\CSS\main.css" type=text/css rel=stylesheet>
<FORM NAME=getSuppliesOrder METHOD=post ACTION="saveSupplyOrder.asp">
<TABLE cellSpacing=0 cellPadding=1 border=1 align=center bordercolor="#CCCCCC" style='border-collapse:collapse;'>
<TR><TD align=center><B>Order#</B></TD>
<TD align=center><B>Product Name</B></TD>
<TD align=center><B>Price</B></TD>
<TD align=center><B>On Hand</B></TD>
<TD align=center><B>Ordered</B></TD>
</TR><BR>
<%
'Open up a connection our access database
'we will use a DSN-less connection
'Create a path for the database
Dim objConn, path
path="C:\Inetpub\
'Create a Connection using the path given above
Set objconn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & _
"DATA SOURCE=" & path
objConn.Open
'Create the SQL to be used for it to display
Dim strSQL, objRS, iCount
iCount = 0
strSQL = "SELECT fldProductID, [fldOrder#], fldProductName,fldProductPrice From tblProduct"
'Create a recordset of the SQL that is created above
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn,3,3
'loop through all the records outputting a row for each one
Do Until objRS.EOF
ProductID = objRS("fldProductID")
Response.Write("<TR>")
Response.Write("<Input Type=Hidden Name=""" & iCount & ".ID"" " & _
"Value=""" & objRS("fldProductID") & """>")
Response.Write("<TD align=Center>" & objRS("fldOrder#") & "</TD>")
Response.Write("<TD>" & objRS("fldProductName") & "</TD>")
Response.Write("<TD>" & FormatCurrency(objRS("fldProductPrice"),2) & "</TD>")
Response.Write("<TD><input type=text name=""" & _
iCount & ".OnHand"" Value=0 STYLE=text-align:center></TD>")
Response.Write("<TD><input type=text name=""" & _
iCount & ".OnOrder"" Value=0 STYLE=text-align:center></TD>")
Response.Write("<Input Type=Hidden name=""" & _
iCount & ".Date"" Value=217>")
Response.Write("</TR>")
objRS.MoveNext
iCount = iCount + 1
Loop
'Clean up our ADO objects
objRS.Close
Set objRS = Nothing
objConn.Close
Set objConn = Nothing
Response.Write "<TR><TD Align=Center colspan=5><INPUT TYPE=BUTTON VALUE=""Submit"" ONCLICK=""SaveOrder();"" id=BUTTON1 name=BUTTON1></TD></TR>"
Response.Write "<INPUT TYPE=HIDDEN NAME=Count VALUE=" & iCount - 1 & ">"
%>
</TABLE><BODY></HTML>
Now this page saves it...
<!--#include file="includes/commonheader.asp"-->
<LINK href="..\CSS\main.css" type=text/css rel=stylesheet><BR>
<%
Response.Buffer = True
Dim iCount
iCount =Request("Count")
Dim strProductID, strOnHand, strOnOrder, strDate
'---------------------------Make a connection to the db--------------------------------------------------------
Dim objConn, path, SQL
path="C:\Inetpub\
'Create a Connection using the path given above
Set objconn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString= "PROVIDER=MICROSOFT.JET.OLEDB.4.0;" & _
"DATA SOURCE=" & path
objConn.Open
' Now, we want to loop through each form element
Dim iLoop
For iLoop = 0 To iCount
strProductID = Request(iLoop & ".ID")
strOnHand = Request(iLoop & ".OnHand")
strOnOrder = Request(iLoop & ".OnOrder")
strDate = Request(iLoop & ".Date")
If (strOnHand <> 0) OR (strOnOrder <> 0) Then
SQL = "Insert into tblProductOrder (fldProductID, [fld#Ordered], [fld#OnHand], fldDateID) values (" _
& "'" & strProductID & "', " _
& "'" & strOnHand & "', " _
& "'" & strOnOrder & "', " _
& "'" & strDate & "' )"
objConn.Execute(SQL)
End If
Next
Response.Write("<TABLE Align=center border=0>")
Response.Write("<TR><TD><P>")
Response.Write("<CENTER><B>Your Infomration has been saved Successfully</B></CENTER>")
Response.Write("</P></TD></TR>")
'Clean up our ADO objects
objConn.Close
Set objConn = Nothing
%>
<!--#include file= "includes/commonheader2.asp"-->
"