Hi Friends

I am facing problem in line 317 indicated. Please anybody help me. I think it is a critical error. There is no description of the type of error.

Error Type:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][ODBC Microsoft Access Driver] error
/Shopping1/shop$db.asp, line 317


Sub ShopOpenDataBase (connection)
dim dblocation
dim strconn
ShopInit
database= Session("db") & ".mdb"
dblocation=session("dblocation")
If dblocation<>"" then
   database = Session("dblocation") & "\" & database
end if
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(database)
'strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=D:\webs\vpasp\data\shopping2.mdb"
Set connection = Server.CreateObject("ADODB.Connection")
on error resume next
connection.open strConn
Session("dbc")=connection
If connection.errors.count> 1 then
   Session("Openerror")="Shopping database failed to open with error<br>" & connection.errors(0).description & " <br>" & Session("dbc")
else
   Session("Openerror")=""
end if
End Sub

'************* Open Shop Database
Sub OpenDatabase(odbc,database)
Dim strConn
Dim strpath
dim rc
strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(database)
Set odbc = Server.CreateObject("ADODB.Connection")
on error resume next
odbc.open strConn
If odbc.errors.count> 1 then
   Session("Openerror")="Shopping database failed to open with error<br>" & odbc.errors(0).description & " <br>" & Session("dbc")
else
   Session("Openerror")=""
end if
Session("dbc")=odbc
end sub

Sub ShopCloseDatabase (connection)
on error resume next
connection.close
set connection=nothing
End sub

Sub UpdateContact()
Dim dbc
' on error resume next
     ShopOpenDatabase dbc
     Set objRS = Server.CreateObject("ADODB.Recordset")
     objRS.open "Customers", dbc, 3, 3
' objRS.open "Customers", dbc, adOpenKeyset, adLockOptimistic
' CheckError
    objRS.AddNew
    objRS("Firstname") = strFirstname
    objRS("Lastname") = strLastname
    objRS("Address") = strAddress
    objRS("City") = strCity
    objRS("State") = strState
    objRS("PostCode") = strPostCode
    objRS("Country") = strCountry
    objRS("Company") = strCompany
    objRS("Phone") = strPhone
    objRS("Workphone") = strWorkphone
    objRS("Mobilephone") = strMobilephone
    objRS("Fax") = strFax
    objRS("Email") = strEmail
        If strwebsite <>"" then
            objRS("website") = strwebsite
        end if
        if err.number <> 0 then
        response.write "Error : " & err.number & "- " & err.description
        response.end
    end if
'*******Error in Line

317 objRS.Update


        ShopCloseDatabase dbc
' ShopOpenDatabase
        LocateCustomer strLastName, strEmail
        Session("customerid") = strCustomerID

 ' CheckError
end sub

Hi there,

80004005 errors are almost always related to security. You may want to take a look here and see if that helps: http://imar.spaanjaars.com/QuickDocId.aspx?quickdoc=263

Imar


---------------------------------------
Imar Spaanjaars
http://Imar.Spaanjaars.Com
Everyone is unique, except for me.
Author of Beginning ASP.NET 3.5 : in C# and VB, ASP.NET 2.0 Instant Results and Dreamweaver MX 2004
Want to be my colleague? Then check out this post.

As I said in the other forum, look here:

http://www.carlprothman.net/Default....orMicrosoftJet

That means you should change your lines that do this:

strconn = "DRIVER=Microsoft Access Driver (*.mdb);DBQ=" & Server.MapPath(database)

to this:

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(database)

Try it! Might not help, but if nothing else you might get a better error message.

I tried this solution...

strconn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.MapPath(database)

After replacing that LOC with this LOC following error comes:

Error Type:
Microsoft JET Database Engine (0x80040E21)
error
/Shopping1/shop$db.asp, line 318

Fix your browser and get a better error message.

Click on the TOOLS menu
Click on the INTERNET OPTIONS menu item
Click on the ADVANCED tab
*UN*check "Show friendly HTTP error messages"
OK

Now try again. See if you get an error message that is a real message instead of just a number.

I got no result with this...solution...

As you have been told your error is far to friendly. The helpful people on this forum can only guess whats wrong. The steps Old Pendant gave you must be carried out for others to help you. You must post un friendly errors here, help others help you...

;;;I got no result with this...solution...
You were asked to simply turn of friendly errors. Are you saying the browser error message is the same with the "Show friendly HTTP error messages" UNCHECKED? Surely not....

Was it unchecked when you looked at it or did you uncheck it?

Wind is your friend
Matt
www.elitemarquees.com.au

After unchecking Friendly HTTP error messages, I got following error:-

Error Type:
Microsoft JET Database Engine (0x80040E21)
error
/Shopping1/shop$db.asp, line 318

This error is exactly same as the last one.. That is what I meant, no result with this solution, problem remains where it was.

Well, for starters you could try using Google:

http://www.google.com/search?hl=en&q...=Google+Search

But that's not overly helpful. Looks like there are lots of possible causes of this error.

I *can* suggest one bit of debugging you can do that *might* help find the problem, but quite frankly it only has about a 1 in 10 chance that it will.

If you want to try it, change this line:
    objRS.Update
to these lines:
    connection.Errors.Clear
    On Error Resume Next
        objRS.Update
    On Error GoTo 0
    For Each oops In connection.Errors
        Response.Write "update error: " & oops.Number & ", " & oops.Description & "<br/>"
    Next
    Response.Write ""
    Response.End

This is only to be used temporarily, as an attempt to find the error.

If you try this and it shows any "update error:", then copy/paste them here.

All,

I'm getting the same error number, but different message.


Microsoft OLE DB Provider for ODBC Driverserror '80004005'
[Microsoft][ODBC SQL Server Driver][SQL Server]Could not find server 'D89SMLF1\SQLEXPRESS' in sys.servers. Verify that the correct server name was specified. If necessary, execute the stored procedure sp_addlinkedserver to add the server to sys.servers. /corridor/default.asp, line 102

Line 102 says:
RS.Update

What makes this a strange message is because, I can select from the recordset and retrieve data, but when I try to update the data I get the error above. This code also works on a computer running Windos XP, IIS, ASP 5.xxx. Now I'm running on Windows Server 2003, IIS, ASP 6.xxx. I don't know if it makes a difference, but I want to include as much information as possible. Under the ASP.NET tab in IIS, there is a version number for the ASP.NET and I can't clear it. Does that matter?

Any help would be greatly appreciated becasue I can't continue until I get this fixed.

Thanks in advance,

Radfo