trying to get an MS Access Form to work on PWS - Tech Support Forums

VERT · November 4th, 2002, 10:09 PM

trying to get an MS Access Form to work on PWS (Personal Webserver)

I select save as HTML then select the Form, then select Dynamic ASP, then it asks me about Data Source name, I am not sure wha I am to put in here, it asks me for the server URL which I enter, then select the folder where to save it C:\Inetpub\wwwroot, then finish.

I then rename the saved file to default.asp

this is the error I get

Microsoft OLE DB Provider for ODBC Drivers error '80004005'

[Microsoft][ODBC Driver Manager] Data source name not found and no default driver specified

/Default.asp, line 12

Code:

<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" CONTENT="text/html;charset=windows-1252">
<TITLE>Contacts</TITLE>
</HEAD>
<BODY>
<%
If IsObject(Session("_conn")) Then
    Set conn = Session("_conn")
Else
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.open "","",""
    Set Session("_conn") = conn
End If
%>
<%
If IsObject(Session("Form_Contacts_rs")) Then
    Set rs = Session("Form_Contacts_rs")
Else
    sql = "SELECT * FROM [Contacts]"
    Set rs = Server.CreateObject("ADODB.Recordset")
    rs.Open sql, conn, 3, 3
    If rs.eof Then
        rs.AddNew
    End If
    Set Session("Form_Contacts_rs") = rs
End If
%>
<%

If cstr(Request.QueryString("Notes")) <> "" Then
    rs.Fields("Notes").Value = Request.QueryString("Notes")
End If
If cstr(Request.QueryString("Website")) <> "" Then
    rs.Fields("Website").Value = Request.QueryString("Website")
End If
If cstr(Request.QueryString("Email")) <> "" Then
    rs.Fields("Email").Value = Request.QueryString("Email")
End If
If cstr(Request.QueryString("Birthdate")) <> "" Then
    rs.Fields("Birthdate").Value = Request.QueryString("Birthdate")
End If
If cstr(Request.QueryString("Fax")) <> "" Then
    rs.Fields("Fax").Value = Request.QueryString("Fax")
End If
If cstr(Request.QueryString("Mobile")) <> "" Then
    rs.Fields("Mobile").Value = Request.QueryString("Mobile")
End If
If cstr(Request.QueryString("Phone")) <> "" Then
    rs.Fields("Phone").Value = Request.QueryString("Phone")
End If
If cstr(Request.QueryString("Address")) <> "" Then
    rs.Fields("Address").Value = Request.QueryString("Address")
End If
If cstr(Request.QueryString("Contact")) <> "" Then
    rs.Fields("Contact").Value = Request.QueryString("Contact")
End If
If cstr(Request.QueryString("Business")) <> "" Then
    rs.Fields("Business").Value = Request.QueryString("Business")
End If
If cstr(Request.QueryString("ContactID")) <> "" Then
    rs.Fields("ContactID").Value = Request.QueryString("ContactID")
End If


tempVar = Request.QueryString("nav_btn")
On Error Resume Next
If cstr(tempVar)="nav_btn_MoveFirstRecord" Then
    rs.MoveFirst
End If
If cstr(tempVar)="nav_btn_MovePrevRecord" Then
    rs.MovePrevious
    If rs.bof Then
        rs.MoveNext
    End If
End If
If cstr(tempVar)="nav_btn_MoveNextRecord" Then
    rs.MoveNext
    If rs.eof Then
        rs.MovePrevious
    End If
End If
If cstr(tempVar)="nav_btn_MoveLastRecord" Then
    rs.MoveLast
End If
If cstr(tempVar)="nav_btn_MoveAddRecord" Then
    rs.AddNew
End If
If cstr(tempVar)="nav_btn_MoveCommitRecord" Then
    rs.Update
    rs.Requery
End If
If cstr(tempVar)="nav_btn_MoveCancelUpdate" Then
    rs.CancelUpdate
    rs.Resync
End If
If cstr(tempVar)="nav_btn_MoveDeleteRecord" Then
    rs.Delete
    rs.MoveNext
    If rs.eof Then
        rs.MovePrevious
        If rs.bof Then
            rs.AddNew
        End If
    End If
End If
On Error Goto 0
%>
<OBJECT ID="Contacts_1alx"
CLASSID="CLSID:812AE312-8B8E-11CF-93C8-00AA00C08FDF"
STYLE="TOP:0;LEFT:0;">
<PARAM NAME="ALXPATH" VALUE="192.168.0.5/Contacts_1alx.asp">
</OBJECT>

</BODY>
</HTML>

VERT · November 5th, 2002, 06:54 PM

ok have sorted the data source problem