begin process at 2012 02 05 00:58:42
  Trouver un code source :
 
dans
 
[ Dernières recherches ]
Accueil > 

Code

 > 

Application

 > TODAY IN HISTORY

TODAY IN HISTORY


 Information sur la source

Note :
10 / 10 - par 1 personne
10,00 / 10

  • 1

  • 2

  • 3

  • 4

  • 5

  • 6

  • 7

  • 8

  • 9

  • 10
Catégorie :Application Classé sous :évènements, passé, historique, jour, aujourdhui Niveau :Débutant Date de création :24/09/2001 Date de mise à jour :07/12/2001 00:00:00 Vu / téléchargé :5 907 / 151
Auteur : vbtom

Ecrire un message privé
Site perso
Commentaire sur cette source (3)
Ajouter un commentaire et/ou une note

 Description

[ TESTE AVEC VWEBSERVER ]

Je crois que ca s'appelle comme ca!
Une page affiche tous les évènement historiques qui se sont passés ce jour la!

Source

  • [Tout est dans le zip] 
[Tout est dans le zip]

 Conclusion

Voila,voila...
@++
vbtom.


.:.: SOURCES :.:.
<%
Dim objConn,URLDBB,Provider



'---- Les chemins physiques ----
URLDBB = Server.MapPath("/today/TodayInHistory.mdb") '>>> A configurer!!!!
Provider="DBQ=" & URLDBB & ";Driver={Microsoft Access Driver (*.mdb)};DriverId=25"



'---- Création de l'objet CONNECTION ----
Set objConn = server.createObject("ADODB.Connection")
objConn.O pen Provider



'---- Création de l'objet RECORDSET ----
Dim dataRec
set dataRec = server.createObject("ADODB.RecordSet")
dataRec.Cu rsorType = 1                                    
dataRec.LockType = 3                                    
dataRec.Open "SELECT * FROM event WHERE MID(Date,1,2)=" & DAY(Date), objConn,3
If Not dataRec.EOF Then
dataRec.MoveFirst
End If



'---- Fonction qui écrit une date en toute lettre ----
Function WriteThisDateInLetters(IDate)
Dim Jours,MoisS
Dim Jour,Mois,Annee

Jours=Array("","Dimanche","Lund i","Mardi","Mercredi","Jeudi","Vendredi","Samedi")
MoisS=Array(" ","Janvier","Février","Mars","Avril","Mai","Juin", "Juillet","Août","Septembre","Octobre","Novembre", "Décembre")

Jour=Jours(WEEKDAY(IDate))
Mois=Mo isS(MONTH(IDate))
Annee=YEAR(IDate)

WriteThisD ateInLetters = Jour & " " & DAY(IDate) & " " & Mois & " " & Annee
End Function
%>

<HTML>
<HEAD>
&lt ;TITLE><% = WriteThisDateInLetters(Date) %> | Exemple de l'application "Today In History" | By vBtOM |</TITLE>
</HEAD>
<BODY>
< A style=font-family=verdana;font-size=16px;color=#00 99cc;>Test de l'application "Today In History" pour le <% = WriteThisDateInLetters(Date) %></A>
<BR><BR>
<A style=font-family=verdana;font-size=10px;color=#00 00ff;>
<%
WHILE not dataRec.EOF
Response.Write "<B>" & WriteThisDateInLetters(dataRec("Date")) & ": " & dataRec("EventTitre") & "</B><BR>" & vbcrlf & dataRec("EventText")
dataRec.MoveNext
WEND
%&gt ;
</A>
<BR><BR><BR><B R>

<CENTER><A style=font-family=verdana;font-size=10px;color=#cc cccc;>©oded by vBtOM</A></CENTER>
</BODY>
&lt ;/HTML>

 Fichier Zip

Les Membres Club peuvent télécharger directement un fichier contenu dans le zip sans télécharger le zip en entier !
  • index.aspTélécharger ce fichier [Réservé aux membres club]Voir ce fichier1 963 octets
  • TodayInHistory.mdbTélécharger ce fichier [Réservé aux membres club]73 728 octets

Télécharger le zip


 Sources du même auteur

Source .NET (Dotnet) AFFICHER LE CONTENU ENTIER D'UNE TABLE
Source .NET (Dotnet) RÉCUPÉRER LE RÉSULTAT D'UNE REQUÈTE SQL
Source .NET (Dotnet) CONNECTION À UNE BASE DE DONNÉE ACCESS
TESTER LA VALIDITÉ D'UN NUMÉRO DE CARTE DE CRÉDIT
Source avec Zip LE VBS ?? - PART III: TRAVAILLER SUR DES DONNÉES STRING (TEX...
Toutes les sources de vbtom

 Sources de la même categorie

Source avec Zip Source .NET (Dotnet) GESTION DE QUIZ par ysfhor
Source avec Zip Source avec une capture UPLOAD FILES WITH A PROGRESSBAR ( ASPUPLOAD ) par chunait
Source avec Zip GESTION PLANNING par Cpustack
ENVOI (SAUVEGARDE) D'UN FICHIER BINAIRE SUR UN SITE DISTANT ... par Chrigou
Source avec Zip MINI MESSAGERIE par Simo_TSSI
Toutes les sources de la catégorie Application

 Sources en rapport avec celle ci

Source avec Zip CALENDRIER DYNAMIQUE AVEC JOURS FERIES par label97
DATE AVEC LE DECALAGE HORAIRE, par tidave
CALCUL DU NOMBRE DE JOURS OUVRÉS ENTRE DEUX DATES par jessie
Source avec Zip CALCULER LE NOMBRE DE JOURS FÉRIÉS ENTRE 2 DATES par jessie
Source avec Zip DICTON DU JOURS par Mcjo

Commentaires et avis

Commentaire de Slashgo le 06/10/2002 14:37:24

Sa na pas l'air mal. Mais sa rappel étrangement un site de notre ami Nix ;)

Commentaire de vbtom le 07/10/2002 19:27:21

URL?

Commentaire de softghost le 11/05/2006 19:47:49

?????????????
ca marche pas pour moi rien a affiché

 Ajouter un commentaire


Discussions en rapport avec ce code source dans le forum

Mise a jour d'une Base acces en cours d'utilisation sur le serveur [ par fht ] Bonjoursur le site ma base acces et souvent en cours d'utilisation et donc indisponiblela mise a jour s'effectue en copiant ma mdb de mon disque vers mise à jour du $ auto [ par eb ] bonjourqqu'un sait où je peux trouver une mise à jour du $ quotidienne (un lien), le taux par rapport à l'euro ?une valeur recuperee sur un site de ch Mis à jour... [ par JP ] bonjour,comment entrée des données dans une table d'une base accessdéjà éxistante ?merci.... mettre à jour de table dans access en même temps [ par jabba ] bonjour,je voudrais mettre 2 tables à jour en même temps dans access via une page asp, mais à chaque test le serveur me réponds :No Libellé de la form boite alerte [ par rony ] le message d'alerte suivant ne fonctionne pas pourquoi ?merci1/ tout d'abord je récupére ma variable "dates" de monformulaire.comme ceci<% dates BD locale et réseau [ par guilloo ] Salut, j'ai une appli sous VB6 qui me met à jour des Bases de Données Access, mais maintenant je doit faire la même appli en réseau via Internet, je v mise a jour [ par rony ] bjrcomment ajouter et modifier un champ de ma base qui est sous la forme liste de choix.merci nbre de jour [ par hamrouni ] SalutEst ce qu'ilya une fonction en jscript qui dtermine le nombre de jour dans le moi courant Merçi d'avance pour votre soutient jour [ par rony ] bjr,comment afficher uniquement le jourlundi et non plus lindi 1er octobremerci jour [ par rony ] bjrje récuprére une variables a l'aide d'un formulairecette variable est une dateexemple 09/10/01je veux afficher son jour mardi ou les deux première


Nos sponsors


Sondage...

Comparez les prix


Archos Tablette PC ARNOVA ARNOVA 10 4GB
Entre 200€ et 210€

Visiter le guide achat

CalendriCode

Février 2012
LMMJVSD
  12345
6789101112
13141516171819
20212223242526
272829    

Consulter la suite du CalendriCode
 
Développement réalisé par Nicolas SOREL (Nix) avec l'aide de : Cyril DURAND et Emmanuel (EBArtSoft), Merci à Vincent pour ses précieux conseils.
CodeS-SourceS.com© Toute reproduction même partielle est interdite sauf accord écrit du Webmaster
CodeS-SourceS.com© est une marque déposée tous droits réservés

Google Coop CodeS-SourceS Google Coop CodeS-SourceS
Temps d'éxécution de la page : 3,557 sec (4)

Nous contacter | Annoncer sur CodeS-SourceS | Mentions légales
Outils Convertisseur VB/C# Snippets et scripts Outils en ligne La ToolBox
Communauté Programmation Photographie Technologie Newsgroups Emploi Forum Blogs
Guide d'achat Téléphonie mobile Image et son Informatique Bureautique Jeux vidéo
Logiciels Internet & Réseau Développement Market Android Jeux & Loisirs Graphisme Multimédia Sécurité Pilotes
Loisirs Cartes virtuelles Vidéos droles Jeux en ligne Géoguide AndroLib (Android Market)