Sudden Error: 80004005

I just moved to this host and I'm trying to get our ASP pages working again with the new database. Now it seems that my pages just won't run--at least on my machine.

I keep getting the same error:

error '80004005'
/test.asp, line 10
This is even a script that a discountASP rep had re-written for me and told me it was working:

<% Dim cnnSimple ' ADO connection Dim rstSimple ' ADO recordset Set cnnSimple = Server.CreateObject("ADODB.Connection") ' DSNLess cnnSimple.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; Server.MapPath("\_database\funkytizdb.mdb")) Set rstSimple = cnnSimple.Execute("Select SongName, SampleString From tblSongs Where Language = 'English' Order By SongName") %>
<%
Dim cnnSimple ' ADO connection
Dim rstSimple ' ADO recordset
Set cnnSimple = Server.CreateObject("ADODB.Connection")
' DSNLess
cnnSimple.Open ("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &amp; Server.MapPath("\_database\funkytizdb.mdb"))
Set rstSimple = cnnSimple.Execute("Select SongName, SampleString From tblSongs Where Language = 'English' Order By SongName")
%>
<P> Connecting to Access with Ole connection </P>
<table border="1">
<%
Do While Not rstSimple.EOF
%>
<tr>
<td><%= rstSimple.Fields("SongName").Value %></td>
</tr>
<%
rstSimple.MoveNext
Loop
%>
</table>
<%
rstSimple.Close
Set rstSimple = Nothing
cnnSimple.Close
Set cnnSimple = Nothing

%><% rstSimple.Close Set rstSimple = Nothing cnnSimple.Close Set cnnSimple = Nothing %>

I can't for the life of me understand why something as elementary as this is generating errors.

The page is www.tizmoret.com/test.asp.

I'm need help! Our site is down and customers are bound to be ticked off!

Thanks!</CODE>

 

The funny thing is I DID create a support ticket and I was told of this "fix" but further told that ASP code support was not part of the technical support jurisdiction and that I should post here. What should I be doing???

 

Bruce,

The ticket I have in the e-mail subject line is: "TECH-DASP #119229".

Hope this helps.

Thanks