Accueil > > > UN LIVRE D'OR (VERSION ACCES)
 UN LIVRE D'OR (VERSION ACCES)
 Information sur la source
 Description
Un livre d'or avec un base de données et un seule page (index.asp). Il suffit juste de créer une base de donnée ac une seule table : T_guest_book Soyez indulgent c'est ma première réalisation.
 Source
<%
msg=""
Afficher=25 ' afficher les 25 derniers messages
select case request("action")
Case "Envoyer"
If trim(request("Nom"))="" OR trim(request("commentaire"))="" then
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
' Ouverture de la base et table T_guest_book
Set conn = Server.CreateObject("ADODB.Connection")
connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/db.mdb"
conn.Open connstring
'Requête pour sélectionner tous les messages
sql = "SELECT * FROM T_guest_book"
'Création d'un objet message pour inscrire le message dans la base de données
Set message = Server.CreateObject("ADODB.Recordset")
message.Open sql, conn, 3, 3
message.AddNew
message.fields('"nom"')=trim(request("nom"))
message.fields('"message"')=trim(request("commentaire"))
message.fields('"date"')=now()
message.Update
'Fermeture des objets créés
message.close
set message=nothing
conn.close
set conn=nothing
' Redirection vers index.asp pour faire apparaître le message envoyé
response.redirect "index.asp"
end if
end select
%>
<html>
<head>
<title>Livre d'or</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<meta name="GENERATOR" content="Visual Studio 6.0">
</head>
<body bgcolor="#66ccff">
<%
'Connexion à la base de données
Set Conn = Server.CreateObject("ADODB.Connection")
Connstring="DRIVER={Microsoft Access Driver (*.mdb)}; " & "DBQ=" & Server.MapPath(".") & "/db.mdb"
Conn.Open connstring
%>
<%
' sélection de la table T_guest_book classée par date
sql = "SELECT * FROM T_guest_book"
sql = sql &" ORDER by Date DESC"
Set message = Server.CreateObject("ADODB.Recordset")
message.Open sql, conn, 3, 3
%>
<p><font face="Arial" color="#004080"><strong>LIVRE D'OR</strong></font></p>
<div align="center">
<center>
<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) vous offre la possibilité de laisser un commentaire sur notre site.</small><br></font>
</td>
</tr>
</table>
</center>
</div>
<p align="left"><font face="Arial"><br></font><%=msg%></p>
<div align="center">
<center>
<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 method="POST" action="index.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>
<textarea rows="4" name="commentaire" cols="30"><%=request("commentaire")%></textarea></font></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">
<%
'Test pour connaître le nombre de message
if message.recordcount>0 then%>
<%
i=1 ' compteur du nombre de message
' On exécute tant que l'on est pas au dernier enregistrement et que i est <= à 25
do while not message.eof AND i<=afficher
%>
<tr>
<td valign="top" bgcolor="#C7D0EF" width="30%"><font face="arial" size="2"><%=message.fields("date")%> </font></td>
<td valign="top" bgcolor="#E1E7F7" width="70%"><font face="arial" size="2"><b><%=message.fields("nom")%> : </b><%=message.fields("message")%><b><br></b></font></td>
</tr>
<%
i=i+1 ' on incrémente le compteur
'Allee au prochain enregistrement
message.movenext
loop
else
'Affiche un message signalant que le livre d'or est vide
Response.Write("<tr> <td valign=""top"" colspan=""2"">Le livre d'Or est vide </td></tr>")
end if
' Fermeture des objets créés
message.close
set message=nothing
conn.close
set conn=nothing
%>
</table>
</div>
</td>
</tr>
</table>
</center>
</div>
</body>
</html>
 Conclusion
Tout est dans le zip
 Sources de la même categorie
 Commentaires et avis
 Discussions en rapport avec ce code source dans le forum
exporter une bdd Access sur le web [ par gaddoc ]
Bonjour;J'ai fini de développer un site web avec ASP. Seulement j'ai du mal à envoyer la base de données Access sur le net. J'ai utilisé ftpx1010 et j
Connection à une bdd Access à distance [ par WishhhMaster ]
Bonjour,J'ai une application asp.net qui est hébergée sur un server web, mais je voudrais que cette application puisse accéder à u
Fichier access volumineux [ par CptDuff ]
Bonjour à tous donc voila je suis entrain de créer une BDD sous access 2000 et ma base n'est même pas renseigné qu'elle fait déjà 100Mo. J'ai remarqué
Base de donnés access et vb6 [ par snyselsebil ]
Bonjour à tous tout d'abord , Bon je suis en train de faire un logiciel en vb6 avec une base de données access, durant la phase de réalisation ,du co
ACCESS et php, Javascript, ASP.... [ par I_am_Bibou ]
Mesdames, Messieurs Bonjours.Ne sachant pas ou poster ce sujet je le poste ici.J'ai développer une base de donnée ACCESS avec tout ce qui va avec (éta
Problème deploiement sur serveur IIS alors que... [ par ChrisBzh56 ]
Bonjour a tous,J'ai (enfin ^^) terminé mon appli ASP.net que j'ai déployé sur un serveur de mon entreprise (serveur web IIS et base de données MySQL)
Connexion à une base de données Access 2002 [ par sabiha93 ]
Bonjour, Voila, je développe un site en ASP. Je suis sous Windows Vista, avec IIS et Access 2002 comme base de données.Le pb est que je n'arrive pas à
Problème connexion à une base de données Access 2002 [ par sabiha93 ]
Bonjour,Je développe un site en ASP, et je n'arrive pas à me connecter à ma base de données sous Access. Ca fait déjà 2 jours que je bloque sur ca, et
Edition des états [ par alicia26 ]
bonjour à tous! j'ai une application asp.net+vb.net qui tourne sur une base Access avec l'édition de quelques états à partir des formulaires sous Acce
|
Derniers Blogs
 TECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURSTECHDAYS PARIS 2010 : SHAREPOINT 2010 POUR LES DéVELOPPEURS par ROMELARD Fabrice
Animé par: Laurent Cotton Le développement dans SharePoint 2010 passe par plusieurs axes qui seront évoqués dans cette session, mais plus particulièrement les développements simples lié au besoin Business Business Connectivity Services Ce BCS es...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice TECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOURTECHDAYS PARIS 2010 : PLEINIèRE DERNIER JOUR par ROMELARD Fabrice
Cette session est la dernière pleinière de ces 3 jours de TechDays Paris 2010. Généralement, cette troisième journée est plus axée sur l'avenir vu par Microsoft. Après un retour sur l'avenir vu par la Science Fiction ou par ...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice UNE JOLIE-HORLOGE ET PAS QU'UN PEU !UNE JOLIE-HORLOGE ET PAS QU'UN PEU ! par neodante
Pour les possesseurs d'iPhone, ça y est Bijin Tokei - qui se traduit littéralement en Français par " Jolie Horloge " - est arrivé et GRATUITEMENT s'il vous plaît ! Après la version Tokyo, Hokkaido, night club, racing, Gal, "pour les mademoiselles'", . voi...
Cliquez pour lire la suite de l'article par neodante TECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICESTECHDAYS PARIS 2010 : CONNECTEZ VOS DONNéES à SHAREPOINT 2010 AVEC LES BUSINESS CONNECTIVITY SERVICES par ROMELARD Fabrice
Animé par: Gaetan Bouveret et Julien Chomarat Business Connectivity Services (BCS) est dans SharePoint 2010 la version 2 de Business Data Catalog (BDC dans SharePoint 2007). Il s'agit de la solution permettant de visualiser des données provenan...
Cliquez pour lire la suite de l'article par ROMELARD Fabrice [DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE[DIVERS] SUIVRE VOS SéRIES PRéFéRéS SUR LA TOILE par orion
Comme de nombreux geek, je suis un grand amateur de série TV et je rate régulièrement des épisodes de mes séries préférés. Une solution s'offre à vous avec ce merveilleux site : Tv Gorge - www.tvgorge.com Moteur de recherche à l'appui, vous pouvez ...
Cliquez pour lire la suite de l'article par orion
Forum
 VB.NETVB.NET par hajourawm
Cliquez pour lire la suite par hajourawm URL REWRITINGURL REWRITING par hudon77
Cliquez pour lire la suite par hudon77
Logiciels
 DB-MAIN (9.1.0)DB-MAIN (9.1.0)DB-MAIN is a data-modeling and data-architecture tool. It is designed to help developers and anal... Cliquez pour télécharger DB-MAIN Xilisoft DPG Convertisseur (5.1.37.0120)XILISOFT DPG CONVERTISSEUR (5.1.37.0120)Xilisoft DPG Convertisseur offre aux fans de Nintendo DS une bonne solution leur permettant de dé... Cliquez pour télécharger Xilisoft DPG Convertisseur GraphicsGale (2.01.01)GRAPHICSGALE (2.01.01)GraphicsGale est un logiciel de PixelArt avec de nombreuse fonctionnalités permettant de réalisé ... Cliquez pour télécharger GraphicsGale Architecte 3D (Platinum 2010)ARCHITECTE 3D (PLATINUM 2010)Architecte 3D Platinium vous permet de concevoir facilement les plans votre future maison, de l'é... Cliquez pour télécharger Architecte 3D TeamViewer 5 (TeamViewer 5)TEAMVIEWER 5 (TEAMVIEWER 5)Dépanner un ami,expliquer une manipulation devient un jeu d'enfant.
Prise en main d'un autre ord... Cliquez pour télécharger TeamViewer 5
|