Affichage des informations d'une BD sur une page ASP

**Ironda_83** · 06/04/2011, 09h28

Bonjour,
Voiçi mes démarches. J'ai créer une base de donnée dans access 2010 nommée "Base", dans laquelle j'ai mis une table "Table.accdb.mdb". J'ai fait ensuite reconnaître la base de donnée dans la source de donnée ODBC de mon ordinateur quand j'ouvre cette base de donnée elle m'affiche "en lecture seule". Elle se trouve avec la page asp dans c://inetpub/wwwroot/MonSite
ensuite j'ai créer une page ASP dont voiçi le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />
<title>Affichage</title>
</head>
<body>
<% DSN_BASE = "DBQ=" & Server.MapPath("Base.accdb.mdb") &
";Driver={Microsoft Access Driver(*.mdb)};DriverId=25" 
set conn=Server.CreateObjet("ADODB.connection")
conn.open DSB_BASE
SQL="SELECT*FROM Table"
Set rs=Server.CreateObjet("ADODB.Recordset")
rs.Open SQL,conn,1 %>
<% 
do while not rs.eof
snom=rs("Nom")
sprenom=rs("Prenom")
stelephone=rs("Telephone")%>
<table> <tr> <td><%response write snom %></td>
<td><%response write sprenom %></td>
<td><%response write stelephone %></td></tr></table>
 <% rs.moveNext
loop %>
<% rs.close
set Rs=nothing
conn.close
Set Conn=nothing
%>

En affichant donc dans localhost/MonSite/affichage.asp, je n'obtient pas de résultat. Il me donne ce message d'erreur:

"An error occurred on the server when processing the URL. Please contact the system administrator.
If you are the system administrator please click here to find out more about this error.

Merci de me donner un petit coup de main pour comprendre mes erreurs.

**roro06** · 06/04/2011, 10h04

Bonjour

il faut dans un premier temps configurer ton serveur pour qu'il "envoie des erreurs détaillées au client". Fais une petite recherche, j'ai déjà donné plein de fois la méthode.

Tu obtiendra un message d'erreur plus explicite sur la nature de ton erreur.

**Ironda_83** · 06/04/2011, 12h51

Bonjour
Merci, j'ai configurez mon serveur de la manière suivante. Je suis sur vista dans panneau de configuration> activer des fonctionnalités Windows Service Internet (IIS) et j'obtiens La version IIS7. et ensuite j'ai configurer mon serveur en cliquant Panneau de configuration>Système de Maintenance>Outil d'administration>Source de données (ODBC) et je n'ai qu'un seul site par défaut dans lequel j'ai 2 répertoires un virtuel l'autre des fichiers de Base C:\inetpub\wwwroot\ ou http://localhost/ je ne sais pas si j'ai répondu à ta recommandation. je n'ai pas encore trouver sur le site mais j'ai trouver pas mal de choses intéressantes. Sur les DB
Dans outil administration>Gestionnaire de service internet, J'ai vérifié les paramètres de Base et dans Mappages de gestionnaire> modifier les autorisations de fonction j'ai autorisé l'exécution des script
ensuite j'ai mis un document par défaut que j'ai appelé "index.asp"et je l'ai monter en début de liste pour améliorer les performances. Et c'est tout.
Cordialement Ironda_83

**roro06** · 06/04/2011, 14h42

Non, ce n'est pas là où je voulais en venir, mais reconfigurer ton serveur pour obtenir un message d'erreur plus parlant. Malheureusement, ne connaissant pas vista (et surtout IIS7 fourni avec), je ne peux pas t'aiguiller, mais en fouillant un peu, je suis sûr que l'option est quelque part (sous XP, l'option est une case à cocher intitulée "envoyer des messages d'erreur détaillés au client" dans la console d'administration IIS)

**Ironda_83** · 06/04/2011, 18h12

C'est encore moi
J'ai trouver dans le gestionnaire de service internet page d'erreur> modifier les paramètre des pages d'erreur et j'ai coché "erreur détaillé" mais ça m'affiche toujours le même message même après avoir redémarrer l'ordi j'ai même essayer de mettre la base de donnée en mode écriture mais ça n'a pas marché.
Je suis nul

mais très tétu, je trouverai la solution tôt ou tard avec bien sure des conseils avisés de pro, je ne perd pas espoir.
Merci roro06

**roro06** · 06/04/2011, 19h50

SQL="SELECT*FROM Table"

Rajoute des espaces, ca le fera mieux

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

SQL="SELECT * FROM Table"

**Ironda_83** · 07/04/2011, 20h13

C'est désespérant j'ai essayé mais ça ne marche pas. Es ce que ça ne provient pas de la base de donnée qui ne s'ouvre qu'en lecture seule dans ce répertoire wwwroot.
Es ce normale que ça s'ouvre qu'en lecture seule?

**eclisse** · 07/04/2011, 21h14

Je pense surtout qu'il y a un paquet d'erreurs de syntaxe dans ton code...

Essayes ça plutôt:

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
 
<% 
DSB_BASE="DBQ=" & Server.MapPath("Base.accdb.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverID=25"
set conn=Server.CreateObject("ADODB.connection")
conn.open DSB_BASE
SQL="SELECT * FROM Table"
Set rs=Server.CreateObject("ADODB.Recordset")
rs.Open SQL,conn %>
<% 
do while not rs.eof
snom=rs("Nom")
sprenom=rs("Prenom")
stelephone=rs("Telephone")%>
<table> <tr> <td><%response.write snom %></td>
<td><%response.write sprenom %></td>
<td><%response.write stelephone %></td></tr></table>
 <% rs.moveNext
loop %>
<% rs.close
set Rs=nothing
conn.close
Set Conn=nothing
response.end

Petit lexique :
- Response write n'existe pas.... response.write OUI. Tu peux même les raccourcir en faisant juste <%= snom %>. Le <%= signifie response.write
- server.createobjet n'existe pas... server.createobject OUI. Et oui, c'est de l'anglais...
- le & du retour à la ligne est capricieux. remplace le par un &_
Je pense que ça devrait mieux aller maintenant. Bon courage

**Ironda_83** · 08/04/2011, 12h05

Bonjour à tous
J'ai repris le code et j'ai rajouté &_ mais ce satané message d'erreur s'affiche toujours rien que pour m'embêter. voila le code

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
<% DSB_BASE="DBQ=" & Server.MapPath("Base.accdb.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};DriverID=25" &_
set conn=Server.CreateObject("ADODB.connection") &_
conn.open DSB_BASE &_
SQL="SELECT * FROM Table" &_
Set rs=Server.CreateObject("ADODB.Recordset") &_
rs.Open SQL,conn %> 
<% do while not rs.eof &_
snom=rs("Nom") &_ 
sprenom=rs("Prenom") &_
stelephone=rs("Telephone")%>
<table> <tr> <td><%response.write snom %></td><td><%response.write sprenom %></td><td><%response.write stelephone %></td></tr></table> 
<% rs.moveNext &_
loop %>
<% rs.close &_
set Rs=nothing &_
conn.close &_
Set Conn=nothing &_
response.end %>

Tu as raison eclisse, il faut avoir du courage quand on ne comprend pas un mot d'anglais et que l'on s'obstine à coder. La sagesse pour coder demande de la patience et de la persévérance. Je crois en avoir un peu mais un peu seulement. Merci pour vos conseils avisés à tout les deux.

Affichage des informations d'une BD sur une page ASP

ASP

Vue hybride

Discussions similaires

Partager

Partager