Server Threw an Exception

I have been getting this error since I upgraded to Windows XP, Access XP.
The code I have been using follows:

<%
StrADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
StrADO = StrADO & "C:\INetPub\wwwRoot\Tivities\NAmerica.mdb;User
ID=;Password="
Set Cnnct = Server.CreateObject("ADODB.Connection")
Cnnct.CursorLocation = 3
Cnnct.Open StrADO
%>
' Logical Code Here
<%
Set rsUnivs = Server.CreateObject("ADODB.Recordset")
Set rsSchools = Server.CreateObject("ADODB.Recordset")
%>
' Logical Code Here
<%
rsUnivs.Close
rsSchools.Close
Cnnct.Close

Set objAccess = Server.CreateObject("Access.Application")
objAccess.Visible = False

Error Type:(0x80010105)The server threw an exception. Error on Next Line.

objAccess.OpenCurrentDatabase "C:\INetPub\wwwRoot\Tivities\NAMERICA.mdb"
' Line that creates error above

mcrName = "Canutillo"
objAccess.DoCmd.RunMacro mcrName
objAccess.CloseCurrentDatabase
objAccess.Quit 2 ' 2 = acQuitSaveNone
Set objAccess = Nothing
%>

Does anyone know the problem and should I post this problem to another group?

Thanks a bunch, this one has driven me crazy!

Dave
Mon Jan 02 20:26:22 CST 2006

One of these may help.

http://support.microsoft.com/kb/q238986/
http://support.microsoft.com/kb/177300/EN-US/
http://support.microsoft.com/kb/q186063/
http://support.microsoft.com/default.aspx?scid=kb;EN-US;316731&fr=1
http://support.microsoft.com/default.aspx?scid=kb;EN-US;327667&fr=1


--

Regards,

Dave Patrick ....Please no email replies - reply in newsgroup.
Microsoft Certified Professional
Microsoft MVP [Windows]
http://www.microsoft.com/protect

"Bill Barber" wrote:
|I have been getting this error since I upgraded to Windows XP, Access XP.
| The code I have been using follows:
|
| <%
| StrADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
| StrADO = StrADO & "C:\INetPub\wwwRoot\Tivities\NAmerica.mdb;User
| ID=;Password="
| Set Cnnct = Server.CreateObject("ADODB.Connection")
| Cnnct.CursorLocation = 3
| Cnnct.Open StrADO
| %>
| ' Logical Code Here
| <%
| Set rsUnivs = Server.CreateObject("ADODB.Recordset")
| Set rsSchools = Server.CreateObject("ADODB.Recordset")
| %>
| ' Logical Code Here
| <%
| rsUnivs.Close
| rsSchools.Close
| Cnnct.Close
|
| Set objAccess = Server.CreateObject("Access.Application")
| objAccess.Visible = False
|
| Error Type:(0x80010105)The server threw an exception. Error on Next Line.
|
| objAccess.OpenCurrentDatabase "C:\INetPub\wwwRoot\Tivities\NAMERICA.mdb"
| ' Line that creates error above
|
| mcrName = "Canutillo"
| objAccess.DoCmd.RunMacro mcrName
| objAccess.CloseCurrentDatabase
| objAccess.Quit 2 ' 2 = acQuitSaveNone
| Set objAccess = Nothing
| %>
|
| Does anyone know the problem and should I post this problem to another
group?
|
| Thanks a bunch, this one has driven me crazy!

BillBarber
Tue Jan 03 09:51:03 CST 2006

Dave;
Thanks for getting back to me. I checked all of the articles out and
it appears that none of them pertains to my situation. There is one however
I am going to try to impliment to see if it gives me a little more
information as to why I receive this message.

"Dave Patrick" wrote:

> One of these may help.
>
> http://support.microsoft.com/kb/q238986/
> http://support.microsoft.com/kb/177300/EN-US/
> http://support.microsoft.com/kb/q186063/
> http://support.microsoft.com/default.aspx?scid=kb;EN-US;316731&fr=1
> http://support.microsoft.com/default.aspx?scid=kb;EN-US;327667&fr=1
>
>
> --
>
> Regards,
>
> Dave Patrick ....Please no email replies - reply in newsgroup.
> Microsoft Certified Professional
> Microsoft MVP [Windows]
> http://www.microsoft.com/protect
>
> "Bill Barber" wrote:
> |I have been getting this error since I upgraded to Windows XP, Access XP.
> | The code I have been using follows:
> |
> | <%
> | StrADO = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="
> | StrADO = StrADO & "C:\INetPub\wwwRoot\Tivities\NAmerica.mdb;User
> | ID=;Password="
> | Set Cnnct = Server.CreateObject("ADODB.Connection")
> | Cnnct.CursorLocation = 3
> | Cnnct.Open StrADO
> | %>
> | ' Logical Code Here
> | <%
> | Set rsUnivs = Server.CreateObject("ADODB.Recordset")
> | Set rsSchools = Server.CreateObject("ADODB.Recordset")
> | %>
> | ' Logical Code Here
> | <%
> | rsUnivs.Close
> | rsSchools.Close
> | Cnnct.Close
> |
> | Set objAccess = Server.CreateObject("Access.Application")
> | objAccess.Visible = False
> |
> | Error Type:(0x80010105)The server threw an exception. Error on Next Line.
> |
> | objAccess.OpenCurrentDatabase "C:\INetPub\wwwRoot\Tivities\NAMERICA.mdb"
> | ' Line that creates error above
> |
> | mcrName = "Canutillo"
> | objAccess.DoCmd.RunMacro mcrName
> | objAccess.CloseCurrentDatabase
> | objAccess.Quit 2 ' 2 = acQuitSaveNone
> | Set objAccess = Nothing
> | %>
> |
> | Does anyone know the problem and should I post this problem to another
> group?
> |
> | Thanks a bunch, this one has driven me crazy!
>
>
>