(0x80004005) Unspecified error

[javediq143]

Hi all,
I set up a simple access database.Earlier my ASP page was working fine,but dont know whats gone wrong that it started to give me this Err:
Error Type:
Provider (0x80004005)
Unspecified error
/imagine/TestJobShow.asp, line 38(This line is "objDbConn.Open")

But more problmatic is, sometime it works and sometime not.
Plz anybody can help me in this. Ive seen this probs with other people also but their requirement and codes were different. I want to know is there any probs with my codes.

<form name="data" action="" method="post">
<input type="hidden" name="query">
<A HREF="TestJobShow.asp?query=title" class="navig">Job Title</A> | 
<A HREF="TestJobShow.asp?query=team" class="navig">Team</A> | 
<A HREF="TestJobShow.asp?query=area" class="navig">Area Of Interest</A>
 
<%
Dim objDbConn
    Set objDbConn = Server.CreateObject("ADODB.Connection")
    objDbConn.ConnectionString = "Driver={Microsoft Access Driver (*.mdb)};" & _
    "DBQ=F:\Imagineer\html\career.mdb"
    objDbConn.Open
%>
 
<%
Dim strSQL, objRS
Select Case Request.querystring("query")
 
            Case "title"
                strSQL = "SELECT JobTitle.Job_Ref, JobTitle.Job_Title, " & _
        "JobRole.Job_Role, Team.Team_Name, AreaOfInterest.Area_Name " & _
        "FROM ((AreaOfInterest INNER JOIN JobRole ON " & _
        "AreaOfInterest.Area_Id = JobRole.Area_Id) INNER JOIN JobTitle " & _
        "ON JobRole.Role_Id = JobTitle.Role_Id) INNER JOIN Team ON " & _
        "(Team.Team_Id = JobRole.Team_Id) AND " & _
        "(AreaOfInterest.Area_Id = Team.Area_Id) ORDER BY JobTitle.Job_Title"
 
            Case "team"
                strSQL = "SELECT JobTitle.Job_Ref, JobTitle.Job_Title, " & _
        "JobRole.Job_Role, Team.Team_Name, AreaOfInterest.Area_Name " & _
        "FROM ((AreaOfInterest INNER JOIN JobRole ON " & _
        "AreaOfInterest.Area_Id = JobRole.Area_Id) INNER JOIN JobTitle " & _
        "ON JobRole.Role_Id = JobTitle.Role_Id) INNER JOIN Team ON " & _
        "(Team.Team_Id = JobRole.Team_Id) AND " & _
        "(AreaOfInterest.Area_Id = Team.Area_Id) ORDER BY Team.Team_Name"
 
            Case "area"
                strSQL = "SELECT JobTitle.Job_Ref, JobTitle.Job_Title, " & _
        "JobRole.Job_Role, Team.Team_Name, AreaOfInterest.Area_Name " & _
        "FROM ((AreaOfInterest INNER JOIN JobRole ON " & _
        "AreaOfInterest.Area_Id = JobRole.Area_Id) INNER JOIN JobTitle " & _
        "ON JobRole.Role_Id = JobTitle.Role_Id) INNER JOIN Team ON " & _
        "(Team.Team_Id = JobRole.Team_Id) AND " & _
        "(AreaOfInterest.Area_Id = Team.Area_Id) ORDER BY AreaOfInterest.Area_Name"
 
        End Select
 
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.open strSQL, objDbConn, adOpenForwardOnly, adLockReadOnly, adCmdText
%>
 
<%
Do While Not objRS.EOF
Response.write objRS.Fields("Job_Ref")
objRS.MoveNext
Loop
 
objRS.Close
Set objRS = Nothing
%>
 
</form>

[jhardman]

Javed,

Is there any chance the db is open by someone else (or by you in another application/window)?

By the way, you have a really weird name. :-P

Jared

[christopherpond]

Check out this Article...

Look here

Christopher Pond
Innovative Web Solutions