OK before you say anything I have searched the board!! The script works so it is a server issue. I downloaded and installed MDAC 2.8, rebooted, registered... Set all the right permissions. Why do I still get the error "Links Page
ADODB.Connection error '800a0e7a'
Provider cannot be found. It may not be properly installed.
/aspcheck/linkspage.asp, line 22 "
Helo I am out of ideas thanks
Code Below...
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 3.2 Final//EN">
<!-- Database Driven Links Page -->
<!-- by Darryl Fosbery -->
<!--
www.asp-help.com -->
<!-- 19th Septemeber 1998 -->
<html>
<head>
<title> Links Page </title>
</head>
<body>
<font face="Verdana,Arial" size="2">
<b>Links Page</b><p>
<%
' Establish Database Connection
Set conn = Server.CreateObject("ADODB.Connection")
connStr = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("links.mdb")
Conn.Open connStr
Set Session("myConn") = conn
' Open RecordSet, Sorted by Category & Alphabetically
' Database Table: Links
strSQLQuery = "SELECT * FROM Links ORDER BY LinkCategoryID, LinkName"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open strSQLQuery, conn, 3, 3
' Display Links in Category 1
rs.Filter = "LinkCategoryID = 1"
Response.write("Category 1<p>" & vbCrLf)
do until rs.eof
strLinkURL = rs("LinkURL")
strLinkName = rs("LinkName")
strLinkDescription = rs("LinkDescription")
strLinkCategoryID = rs("LinkCategoryID")
strLinkAddedDate = rs("LinkAddedDate")
response.write("<a href=""" & strLinkURL & """>" & strLinkName & "</a><br>" & vbCrLf)
If Len(strLinkDescription) > 4 Then response.write(strLinkDescription & "<br>" & vbCrLf)
rs.movenext
loop
rs.Filter = 0
' Display Links in Category 2
rs.Filter = "LinkCategoryID = 2"
Response.write("Category 2<p>" & vbCrLf)
do until rs.eof
strLinkURL = rs("LinkURL")
strLinkName = rs("LinkName")
strLinkDescription = rs("LinkDescription")
strLinkCategoryID = rs("LinkCategoryID")
strLinkAddedDate = rs("LinkAddedDate")
response.write("<a href=""" & strLinkURL & """>" & strLinkName & "</a><br>" & vbCrLf)
If Len(strLinkDescription) > 4 Then response.write(strLinkDescription & "<br>" & vbCrLf)
rs.movenext
loop
rs.Filter = 0
' Add as many categories as you like
' Close Database Connection
conn.close
Set conn = Nothing
%>
</BODY>
</HTML>
dBforums
>
ADODB.Connection error '800a0e7a'
04-30-04, 00:54
Linear Mode
