bonsoir, je voudrais ajouter un livre d'or sur mon site pour cela j'ai fait un lien vers une page(default.asp) et j'ai ajouter une bdd access (guestbook.accdb) la table (liste) voila le code qui ne fonctionne pas parceque j'arrive pas à acceder à la bdd qui est dsle meme repertoire que le fichier(default.asp)
<html> <head> <title>Le livre d'Or</title>
</head> <body>
<% '--- Forcer la déclaration des variables Option explicit
Dim msg Dim afficher
'--- Variables concernant la connexion base de données Dim conn Dim rs Dim sql Dim connstring Dim i
msg="" Afficher=25 ' afficher les 25 derniers messages
' Ouverture de la base et table liste Set conn = Server.CreateObject("ADODB.Connection")
' chaine de connexion sans DSN ' la base de données doit se situer dans le même répertoire que default.asp connstring="DRIVER={Microsoft Access Driver (*.accdb)}; " & "DBQ=" & Server.MapPath(".") & "/guestbook.accdb" conn.Open connstring
if request("action")="Envoyer" then
' On vérifie si l'utilisateur a bien entré un nom et un commentaire
If trim(request("nom"))="" OR trim(request("commentaire"))="" then ' Tous les champs ne sont pas rempli ' On remplit la variable message - elle n'est plus vide msg="<font face=arial size=2 color=red>Erreur : <br> Remplissez tous les champs </font><br>" end if
if msg="" then ' tous les champs ont été remplis correctement
sql = "SELECT * FROM liste" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3
' Ajout d'un nouvel élément à la table rs.AddNew rs.fields("nom")=trim(request("nom")) rs.fields("message")=trim(request("commentaire")) rs.fields("date")=now() rs.Update
' On ferme la connexion sur le recordset rs.close
' On détruit l'objet recordset de la mémoire set rs=nothing
' On ferme la connexion sur la base conn.close ' On détruit l'objet créé pour établir la connexion set conn=nothing
' On redirige l'utilisateur vers default.asp ' ce qui à pour effet de recharger la page en cours response.redirect "default.asp"
end if
end if
%>
<% ' sélection de la table liste
sql = "SELECT * FROM liste" sql = sql &" ORDER by Date DESC"
Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3
<table border="0" cellpadding="0" cellspacing="0" width="500"> <tr> <td><font face="Arial"><small>Un Guest Book (ou livre d'or en français) offre la possibilité aux visiteurs de votre site de laisser un commentaire.</small><br> <small>Un seul fichier pour ce programme qui gère à la fois l'ajout de nouveaux messages</small> <small>et leurs affichages. Le nombre de commentaires à afficher est gérer par une variable afficher en entête du fichier default.asp. Ce Programme fonctionne avec une base Access qui<small> </small>n'a pas besoin d'être déclarée dans le DSN. </small></font></td> </tr> </table> </center></div>
<table border="0" cellpadding="0" cellspacing="0" width="100%"> <tr> <td valign="top"><p align="center"><font face="Arial" color="#004080"><strong>Ajouter un Message</strong></font></td> <td valign="top"><p align="center"><font face="Arial" color="#004080"><strong>Contenu du Livre d'OR :</strong></font></td> </tr> <tr> <td valign="top"><form action="default.asp"> <div align="center"><center><table border="0" cellpadding="3" width="100%"> <tr> <td width="100%" bgcolor="#E1E7F7"><font face="Arial"><small>Votre Nom</small></font>:<br> <input type="text" name="nom" size="20" value="<%=request("nom")%>"><p><font face="Arial"><small>Commentaire:</small><br> </font><textarea rows="4" name="commentaire" cols="30"><%=request("commentaire")%></textarea></td> </tr> <tr> <td width="100%" bgcolor="#C7D0EF"><div align="center"><center><p><input type="reset" value="Effacer" name="action"><input type="submit" value="Envoyer" name="action"></td> </tr> </table> </center></div> </form> </td> <td valign="top" align="center"><div align="right"><table border="0" cellpadding="2" width="400"> <% if rs.recordcount>0 then%> <% i=1 ' compteur du nombre de message rs.movefirst do while not rs.eof AND i<=afficher %> <tr> <td valign="top" bgcolor="#C7D0EF" width="30%"><font face="arial" size="2"><%=rs("date")%> </font></td> <td valign="top" bgcolor="#E1E7F7" width="70%"><font face="arial" size="2"><b><%=rs("nom")%> : </b><%=rs("message")%><b><br> </b></font></td> </tr> <% i=i+1 ' on incrémente le compteur rs.movenext loop
else %> <tr> <td valign="top" colspan="2">Le livre d'Or est vide </td> </tr> <% end if ' Fermeture des objets créés rs.close set rs=nothing conn.close set conn=nothing
Auteur 
