(0x80004005) Data source name not found

Hi All,

I am trying to connect to the database through DSN. i have set it up
as System DSN, but when i open the page, i get error "(0x80004005)
[Microsoft][ODBC Driver Manager] Data source name not found and no
default driver specified.

below is the code which i am using:

<%
' Quick security check, make sure we have an active session
'If Session("dbDispList") = "" or Session("dbConn") = "" Then
Response.Redirect "GenericError.asp"
Dim strDBPath ' path to our Access database (*.mdb) file

' Get the parameters set in the Config File
strType = UCase(Session("dbType"))
strConn = Session("dbConn")
strTable = Session("dbRs")
strDisplay = Session("dbDispList")
strWhere = Session("dbWhere")
intPrimary = Session("dbKey")
intOrderBy = Session("dbOrder")
strDBPath = Server.MapPath("acsdata.mdb")
' Check to see if the Order was specified by a parameter
If Request.QueryString("ORDER").Count > 0 Then
' Check if an ASC/DESC toggle is required (- for desc, + for asc)
if abs(intOrderBy) = abs(Request.QueryString("ORDER")) then
intOrderBy = 0 - intOrderBy
else
intOrderBy = Request.QueryString("ORDER")
end if
Session("dbOrder") = intOrderBy
End If

' Open Connection to the database
set xConn = Server.CreateObject("ADODB.Connection")
xConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & strDBPath
& ";"

' Open Recordset and get the field info
strsql = "SELECT * FROM [" & strTable & "]"
Select Case strType
Case "UDF"
strsql = "SELECT " & strFields & " FROM " & strTable
Case "SQL"
strsql = Replace(strsql,"[","")
strsql = Replace(strsql,"]","")
End Select
set xrs = Server.CreateObject("ADODB.Recordset")
xrs.Open strsql, xConn
intFieldCount = xrs.Fields.Count
Dim aFields()
ReDim aFields(intFieldCount,3)
For x = 1 to intFieldCount
aFields(x, 1) = xrs.Fields(x-1).Name
aFields(x, 2) = xrs.Fields(x-1).Type
aFields(x, 3) = xrs.Fields(x-1).DefinedSize
Next

xrs.Close
Set xrs = Nothing
%>








<%
' Reopen the Recordset using the parameters passed
strsql = "SELECT * FROM [" & strTable & "]"
Select Case strType
Case "UDF"
strsql = "SELECT " & strFields & " FROM " & strTable
Case "SQL"
strsql = Replace(strsql,"[","")
strsql = Replace(strsql,"]","")
End Select
If (strWhere & "x") <> "x" Then strsql = strsql & " WHERE " & strWhere
If intOrderBy <> 0 Then
if intOrderBy > 0 then
strsql = strsql & " ORDER BY [" & aFields(intOrderBy, 1) & "]"
else
strsql = strsql & " ORDER BY [" & aFields(abs(intOrderBy), 1) & "]
DESC"
end if
end if

set xrs = Server.CreateObject("ADODB.Recordset")
xrs.Open strsql, xConn, 1, 2
%>