Programmation ASP

Marsh Posté le 04-08-2004 à 12:11:42

Bonjour ,

J'ai rencontrer un brobléme d'accés à ma base de donnée en Access .
Ce que j'ai fais :
j'ai créer une base de données access et 2 pages en code ASP selon mes besoins - mettre mon repertoire de travail qui contient la base de donnée et mes pages asp dans un serveur web IIS - declarer le chemin de mon repértoire au source de donnée ODBC et quand j'éxecutes ma première page je rencontre le message suivant

HTTP 500.100 - Erreur interne au serveur - Erreur ASP
Services Internet (IIS)

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

Informations techniques (destinées au personnel du Support technique)

Type d'erreur :
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Pilote ODBC Microsoft Access]Erreur générale Impossible d'ouvrir la clé de registre 'Temporary (volatile) Jet DSN for process 0x5c0 Thread 0x4e8 DBC 0x213fffc Jet'.
/Restauration/Fiche consom.asp, line 29
et la ligne 29 contient la commande: connect.Open connstring

je sais pas ce qui manque dans mes étapes.
Merci

Voici ma première page exécutée :
<%
msg = 0
mesg=""
CHERC = Left(Ucase(Request("CHERCHER" )),5)
If trim (request("Matricule" ))="" then
mesg ="font face=arial size=2 color=red>Erreur : <br> Saisir le Matricule </font><br>"
End if
If CHERC = "CHERC" and mesg = "" Then
Matricule = Request.Form("Matricule" )
Msg = 1
End if

Aprés validation de Matricule , la deuxième page s'exécute , son code est le suivant:

<%
msg = 0
mesg=""
msg1 = 0
CHERC = Left(Ucase(Request("CHERCHER" )),5)
If trim(request("Matricule" ))="" then
mesg ="<font face=arial size=2 color=red>Erreur : <br> Saisir le Matricule </font><br>"
End if
If CHERC = "CHERC" and mesg = "" Then
Matricule = Request.Form("Matricule" )
Msg = 1
End If

%>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta name="GENERATOR" content="Microsoft FrontPage 6.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<title> Fiche de consommation</title>
</head>

<body bgcolor="#E6F1FF" topmargin="0" leftmargin="0">
<% If msg = 1 then
SQL="SELECT convive.*,convive.Matricule FROM convive "
SQL= SQL & "WHERE (((convive.Matricule) like '%" & Matricule & "%'));"
SET Connect = Server.CreateObject("ADODB.Connection" )
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; "&"DBQ="&Server.MapPath("." )&"/restauration.mdb"'
connect.Open connstring
SET RS = Connect.Execute(SQL)

If rs.RecordCount <> 0 and not rs.eof Then
matricule = rs("Matricule" )
nom = rs("Nom / Prénom" )
categorie = rs("Tarif" )

%>

<table border="0" cellpadding="0" style="border-collapse: collapse" width="100%" id="table2">
<tr>
<td width="50">
<img border="0" src="images/spshome.gif" width="40" height="40"></td>
<td>
<p align="center"><b><font color="#000080" size="5">Fiche Consommation </font></b>
</p>
</td>
</tr>
</table>
<div align="center">
<table border="1" cellpadding="0" cellspacing="0" style="border-collapse: collapse" width="75%" id="table3">
<tr>
<td bgcolor="#99CCFF"> <font color="#000080"><b><br>
        Matricule         
:  <%=matricule%><br>
       
Nom / Prénom   :   <%=nom%><br>
        Catégorie         
:  <%=categorie%><br></b></font></td>
</tr>
</table>
</div>
<p align="center">
<%
Else
%>
<b><i>Matricule erroné</i></b>
<p>
<%
end if
end if %></p>
</body>
%>

Le message d'erreur se trouve à la ligne 29 qui est :
connect.Open connstring

Reply

Marsh Posté le 04-08-2004 à 12:11:42

Reply

Marsh Posté le 05-08-2004 à 08:42:09

Hello,
il semble que tu ais mis ta base de données dans le site web, au même endroit que tes pages de scripts. Comme c'est la connexion à la base qui échoue ça pourrait être un problème de droits d'accès à celle-ci.
Par défaut, les dossiers d'un site sont en lecture seule pour IIS.
Habituellement, on met les bases en dehors du site, dans un dossier système ayant les droits de lecture et d'écriture.

Enfin, c'est ce que j'essayerai moi....
bon courage

Reply

Programmation ASP

Sujets relatifs:

Leave a Replay