Hi there
I have a nice and simple problem to sum but to me its quite difficult - i have been asked to design a input form to accept form from a web page and write it to a Access database - this is my effort but it doesn't work
I take the output from the web page and POST it to a ASP page i created called Save.asp - from there i want to append it to a Access DB which i have created .... but alas it doesnt work !!!
I have created a DSN on the server and it all appears to be working fine .... if anybody can point me in the correct direction .... this just doesnt seam to update the tabel in the DBase....
My DataBase is called Suppliers and my table inside the database is also called Suppliers!
What am i doing wrong ... on a deadline here so any help is appreciated !!!!
Thanks in advance
Rdrunner
<%
FOR i = 1 TO Request.Form.Count
Response.Write(Request.Form(i))&"<BR>"
Next
set cnn1 = CreateObject("ADODB.Connection")
strCnn = "dsn=supplier"
cnn1.Open(strCnn)
Set Suppliers = CREATEOBJECT("ADODB.Recordset")
Suppliers.CursorType = adOpenKeyset
Suppliers.LockType = adLockOptimistic
Suppliers.Open "Supplier", cnn1 , , adcmdtable
suppliers.addnew
suppliers("Contact") = request.form("NAME")
' suppliers!Company = request.form("COMPANY")
' suppliers!Phone = request.form("PHONE")
' suppliers!Fax = request.form("FAX")
suppliers.update
suppliers.movefirst
%>
I have a nice and simple problem to sum but to me its quite difficult - i have been asked to design a input form to accept form from a web page and write it to a Access database - this is my effort but it doesn't work
I take the output from the web page and POST it to a ASP page i created called Save.asp - from there i want to append it to a Access DB which i have created .... but alas it doesnt work !!!
I have created a DSN on the server and it all appears to be working fine .... if anybody can point me in the correct direction .... this just doesnt seam to update the tabel in the DBase....
My DataBase is called Suppliers and my table inside the database is also called Suppliers!
What am i doing wrong ... on a deadline here so any help is appreciated !!!!
Thanks in advance
Rdrunner
<%
FOR i = 1 TO Request.Form.Count
Response.Write(Request.Form(i))&"<BR>"
Next
set cnn1 = CreateObject("ADODB.Connection")
strCnn = "dsn=supplier"
cnn1.Open(strCnn)
Set Suppliers = CREATEOBJECT("ADODB.Recordset")
Suppliers.CursorType = adOpenKeyset
Suppliers.LockType = adLockOptimistic
Suppliers.Open "Supplier", cnn1 , , adcmdtable
suppliers.addnew
suppliers("Contact") = request.form("NAME")
' suppliers!Company = request.form("COMPANY")
' suppliers!Phone = request.form("PHONE")
' suppliers!Fax = request.form("FAX")
suppliers.update
suppliers.movefirst
%>