CodeS-SourceS est hébergé par Frontier.fr

Ce site au démarrage

begin process at 2012 02 10 03:40:15

Accueil Codes Tutoriels Forum Livres Emploi Services Connexion

Trouver un code source :

dans

[ Dernières recherches ]

Accueil >

UN LIVRE D'OR (VERSION ACCES)

Information sur la source

Note :

7,20 / 10

Catégorie :Base de données Classé sous :livre, dor, access, base, bdd Niveau :Débutant Date de création :12/10/2001 Date de mise à jour :11/04/2002 11:46:57 Vu / téléchargé :8 569 / 1 139

Auteur : BennyB

Ecrire un message privé

Site perso

Commentaire sur cette source (3)

Ajouter un commentaire et/ou une note

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>

<%
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

Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !

db.mdb118 784 octets
index.asp 4 735 octets
Read Me.txt 286 octets

Télécharger le zip

Sources de la même categorie

GESTION_ENSEIGNANTS par Elmarzougui

ZONE MEMBRE EN ASP "E-MEMBRES1.0" par cmaelc

ADMINISTRATION BASE DE DONNÉES ORACLE par chbayah

UTILISATION D'UN DATASET par ManuAntibes

INSERTION / RECUPERATION D'IMAGE STOCKEE DANS UNE DB MS SQL ... par jimmy69

Toutes les sources de la catégorie Base de données

Sources en rapport avec celle ci

COMPTEUR DE HITS AVEC BASE DE DONNÉE ACESS par tidave

LISTER LES TABLES D'UNE BASE DE DONNÉES par SuperBouly

BD ACCESS DANS UNE LISTBOX par NCVF

LES REQUÊTES SQL par vbtom

FORUM ASP par Alain62

Commentaires et avis

Commentaire de Yopyop le 08/01/2002 04:57:13

Bien, mais il faut que tu double les guillemets avant de mettre qqch dans une BD telle que Access, sinon les phrases seront coupées... par exemple l'hélicoptère :)

Commentaire de BennyB le 11/04/2002 11:43:50

Oui merci c'est que ce mieux de faire ainsi '" VARIABLE "', mais le but serait d'arriver à faire un paging alors si le coeur vous en dis n'hésiter pas.
Je prépare une nouvelle version alors si vous le souhaiter y'a qu'a demander.
djbebert92@netcourrier.com
BennyB

Commentaire de BBeppe le 10/02/2004 03:42:08

Bonsoir
Et est il possible d'avoir la mêm chose cote serveur pour me creer une base en interne et sauver vers DISQUE DUR ??????????

Projet Editeur Multilingue et TRADUCTEUR TEMPS REEL

MERCI

Ajouter un commentaire

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

Nos sponsors

Derniers Blogs

TECHDAYS PARIS 2012 : SESSION PLEINIèRE JOUR 3 par ROMELARD Fabrice

MISHRA READER : UN LECTEUR RSS TRèS ZUNE STYLE EN OPEN SOURCE ! par Vko

[FRAMEWORK 4] LES TASKS ET LE THREAD UI par fathi

WORKFLOW FOUNDATION 3 A UN PIED DANS LA TOMBE par JeremyJeanson

TECHDAYS PARIS 2012 : NOUVELLES TENDANCES DU POSTE DE TRAVAIL - BRING YOUR OWN PC par ROMELARD Fabrice

Forum

VB par 25721088

RE : SUBMIT UNE FORM GéNéRéE AU PAGE LOAD par Megafan

GESTION FORMATION par 25721088

SEARCH ENGINE AVEC ASP.NET par doogyfresh

RE : DECRYPTER UN MOT DE PASS par gnuxdev

Côté IT

Offres d'emploi

Formations Video

Appels d'offres

Creation d-un site internet similaire a Meetic CDC Disponible
Budget : 8 000€
Integration E commerce d-une application graphique interactive
Budget : 4 000€
URGENT-Developpement d-un annuaire
Budget : 13 000€

Logiciels

Academy System (17.2.1.0)
ACADEMY SYSTEM (17.2.1.0)

Logiciel de gestion des établissements. - élèves/étudiants (inscription, dossier, absence...) -...

Cliquez pour télécharger Academy System
Easy-Planning (1.0.0.1)
EASY-PLANNING (1.0.0.1)

Basé sur les mêmes principes que MyPlanning, Easy-Planning permet de créer des plannings sous la ...

Cliquez pour télécharger Easy-Planning
COLLECTOR PLUS (3.00B)
COLLECTOR PLUS (3.00B)

COLLECTOR PLUS version 3.00B est un logiciel utilisant une base de données alimentée par : - L...

Cliquez pour télécharger COLLECTOR PLUS
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)
PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO (V7.4)

PONAMEDIA TV DEVIENS HELLLOOO FLASH LA TV SUR VOTRE ORDINATEUR. Toute une plateforme Multi...

Cliquez pour télécharger PONAMEDIA PREMIUM - HELLLOOO FLASH DEMO
LettresFaciles 2011 (8.0.0.1)
LETTRESFACILES 2011 (8.0.0.1)

LettresFaciles est un logiciel facilitant la création et la rédaction de lettres types. Son inte...

Cliquez pour télécharger LettresFaciles 2011