Give an error when opening the database

Abellus · - Joined: 06 Jan 2003 Posts: 3

:x :( :cry:
Hi,

I install everything like it was suggested. I have Win XP Pro and I'm working to create a website with Asp pages... It always give me this error message:

ActiveX Data Object (ADO)
ServerObjectCreateObject: - Error 'ASP 0134 : 80004005'

Invalid ProgID attribute

c:\program files\activehtml\ahtml\Samples\ADO.asp, line 7

The object has an invalid ProgID of 'ADODB.Connection'.

Can you help me please I'm a littlebit a newbie.

Thank you in advance

aprelium · - Joined: 22 Mar 2002 Posts: 6800

This error is not related to the web server but it means that ActiveHTML (the ASP interpreter) was unable to create an object which is in that case a database connection. Such an error occurs when the ADODB ActiveX on your computer is corrupt or if there is a version conflict. You should reinstall that component by reinstalling MDAC which available at http://www.microsoft.com/data/download.htm .
_________________
Support Team
Aprelium - http://www.aprelium.com

Abellus · - Joined: 06 Jan 2003 Posts: 3

Posted: Tue Jan 07, 2003 12:11 am Post subject: Re: Give an error when opening the database

--------------------------------------------------------------------------------

This error is not related to the web server but it means that ActiveHTML (the ASP interpreter) was unable to create an object which is in that case a database connection. Such an error occurs when the ADODB ActiveX on your computer is corrupt or if there is a version conflict. You should reinstall that component by reinstalling MDAC which available at http://www.microsoft.com/data/download.htm .
_________________
Aprelium Technologies - http://www.aprelium.com

:cry: :cry: :(
I install the MDAC & configured everything like you told me, still doesn't work, always give me the same error message. Have other suggestion ?

aprelium · - Joined: 22 Mar 2002 Posts: 6800

Guest · Posted: Wed Jan 08, 2003 2:41 pm Post subject:

post your code for the ADODB connection to your database. I'll see what i can do

Abellus · - Joined: 06 Jan 2003 Posts: 3

:o Thank's

Here the code:

<html>
<head>
<title>Liste des employés de départ</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body bgcolor="#CCFFCC">



<%
If IsObject(Session("Employe_conn")) Then
Set conn=Session("Employe_conn")
Else
Set conn=Server.CreateObject("ADODB.Connection")'chaine de connexion
ConnString="DRIVER={Microsoft Access Driver (*.mdb)}; " & _
"DBQ=" & Server.MapPath(".")& "/employe.mdb"
conn.Open ConnString
Set Session("Employe_conn")=conn
End if
%>

<%
'Faire la requête sur la table employe
sql="SELECT * FROM employe"
Set employe = Server.CreateObject("ADODB.Recordset")
employe.Open sql, conn
%>

<h4><font face="Verdana, Arial, Helvetica, sans-serif">Liste des employés</font></h4>
<table width="95%" border="0" cellspacing="0" cellpadding="0">
<tr align="left" bgcolor="#00CC00">
<td width="22%">
<h4><font face="Verdana, Arial, Helvetica, sans-serif">Prénom</font></h4>
</td>
<td width="23%">
<h4><font face="Verdana, Arial, Helvetica, sans-serif">Nom</font></h4>
</td>
<td width="24%">
<h4><font face="Verdana, Arial, Helvetica, sans-serif">Date d'embauche</font></h4>
</td>
<td width="16%">
<h4><font face="Verdana, Arial, Helvetica, sans-serif">Salaire</font></h4>
</td>
<td width="15%">
<h4><font face="Verdana, Arial, Helvetica, sans-serif">Contractuel</font></h4>
</td>
</tr>
<% employe.movefirst
do while not employe.eof
%>
<tr align="left">
<td width="22%">
<p><font face="Verdana, Arial, Helvetica, sans-serif">
<%=employe.fields("prenom_employe")%></font></p>
</td>
<td width="23%">
<p><font face="Verdana, Arial, Helvetica, sans-serif">
<%=employe.fields("nom_employe")%></font></p>
</td>
<td width="24%">
<p><font face="Verdana, Arial, Helvetica, sans-serif">
<%=employe.fields("date_embauche_employe")%></font></p>
</td>
<td width="16%">
<p><font face="Verdana, Arial, Helvetica, sans-serif">
<%=employe.fields("salaire_employe")%></font></p>
</td>
<td width="15%">
<p><font face="Verdana, Arial, Helvetica, sans-serif">
<%if employe.fields("contrat_employe") = True then
response.write "Oui"
else
response.write "Non"
end if%></font></p>
</td>
</tr>
<%
employe.movenext
Loop
%>

</table>
</body>
</html>

Thank you again if you can do anything