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>