[ 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>
ca marche pas pour moi rien a affiché
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.