Today in history

Soyez le premier à donner votre avis sur cette source.

Vue 7 022 fois - Téléchargée 206 fois

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 / Exemple :


[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.Open Provider

'---- Création de l'objet RECORDSET ----
Dim dataRec
set dataRec = server.createObject("ADODB.RecordSet")
dataRec.CursorType = 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","Lundi","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=MoisS(MONTH(IDate))
Annee=YEAR(IDate)

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

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

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

Codes Sources

A voir également

Ajouter un commentaire Commentaires
Messages postés
61
Date d'inscription
vendredi 11 mars 2005
Statut
Membre
Dernière intervention
13 avril 2010

?????????????
ca marche pas pour moi rien a affiché
Messages postés
229
Date d'inscription
dimanche 3 juin 2001
Statut
Membre
Dernière intervention
5 octobre 2003

URL?
Messages postés
44
Date d'inscription
jeudi 18 octobre 2001
Statut
Membre
Dernière intervention
19 octobre 2002

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

Vous n'êtes pas encore membre ?

inscrivez-vous, c'est gratuit et ça prend moins d'une minute !

Les membres obtiennent plus de réponses que les utilisateurs anonymes.

Le fait d'être membre vous permet d'avoir un suivi détaillé de vos demandes et codes sources.

Le fait d'être membre vous permet d'avoir des options supplémentaires.