I would appreciate any help, I'm trying to connect a web front-end to an
Access 2000 database using MSDE, and I have it working using Jet but would
like to connect the database using MSDE.
I would appreciate any advice to where I need to edit the code, the code is
as follows:
<%@ Language=VBScri pt %>
<HTML>
<HEAD>
<TITLE>Add New Record</TITLE>
<%
strDBPath=serve r.MapPath("Empl oyer.mdb")
Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" & strDBPath & ";"
set RS = Server.CreateOb ject("ADODB.Rec ordset")
Conn.BeginTrans
RS.Open "Employer",Conn ,3,3
RS.AddNew
RS("Employer ID") = Request("Employ er ID")
RS("Employer Name") = Request("Employ er Name")
RS("TitleID") = Request("TitleI D")
RS("Forename") = Request("Forena me")
RS("Surname") = Request("Surnam e")
RS("Web Address") = Request("Web Address")
RS("Email Address") = Request("Email Address")
RS("Date Recorded") = Request("Date Recorded")
RS("Employer ClassificationI D") = Request("Employ er ClassificationI D")
RS.Update
Conn.CommitTran s
RS.Close
Conn.Close
%>
</HEAD>
<BODY>
Member Registered
</BODY>
</HTML>
As mentioned I would be very grateful for any advice.
Love,
Joanne
Access 2000 database using MSDE, and I have it working using Jet but would
like to connect the database using MSDE.
I would appreciate any advice to where I need to edit the code, the code is
as follows:
<%@ Language=VBScri pt %>
<HTML>
<HEAD>
<TITLE>Add New Record</TITLE>
<%
strDBPath=serve r.MapPath("Empl oyer.mdb")
Set Conn = Server.CreateOb ject("ADODB.Con nection")
Conn.Open "Provider=Micro soft.Jet.OLEDB. 4.0;Data Source=" & strDBPath & ";"
set RS = Server.CreateOb ject("ADODB.Rec ordset")
Conn.BeginTrans
RS.Open "Employer",Conn ,3,3
RS.AddNew
RS("Employer ID") = Request("Employ er ID")
RS("Employer Name") = Request("Employ er Name")
RS("TitleID") = Request("TitleI D")
RS("Forename") = Request("Forena me")
RS("Surname") = Request("Surnam e")
RS("Web Address") = Request("Web Address")
RS("Email Address") = Request("Email Address")
RS("Date Recorded") = Request("Date Recorded")
RS("Employer ClassificationI D") = Request("Employ er ClassificationI D")
RS.Update
Conn.CommitTran s
RS.Close
Conn.Close
%>
</HEAD>
<BODY>
Member Registered
</BODY>
</HTML>
As mentioned I would be very grateful for any advice.
Love,
Joanne
Comment