tableau avec les mois de l'année

Voir le sujet précédent Voir le sujet suivant Aller en bas

tableau avec les mois de l'année

Message  Admin le Lun 23 Fév - 13:23

<%
'-----------------------------------------------------------------------------------------------------
Function PremiereLettreMaj(texte)
' Permet de donner le texte avec la premiere lettre en majuscule
PremiereLettreMaj = UCase(Left(texte,1))& mid(texte,2,len(texte)-1)
End Function
'-----------------------------------------------------------------------------------------------------
%>
<HTML>
<HEAD>
<TITRE>Test</TITRE>
<STYLE>
TR.changer {color:#ffffff; background:#000080}
TR.lignePaire {BACKGROUND-COLOR:#9D9393;COLOR: white;}
TR.ligneImpaire {BACKGROUND-COLOR:white;COLOR: black;}
</STYLE>
<BODY topmargin="0" leftmargin="0">
<CENTER>
<FONT color='#000080'><B>Affichage Mensuel </B><FONT>
<BR><BR>
<TABLE WIDTH="90%" cellspacing=0>
<%
For i = 1 to 12
If (i Mod 2) <>0 Then
Response.Write "<DIV name><TR class='lignePaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='lignePaire';"">"
Else
Response.Write "<DIV><TR class='ligneImpaire' OnMouseOver=""this.className='changer';"" OnMouseOut=""this.className='ligneImpaire';"">"
End If
Response.Write "<TD><B>"& PremiereLettreMaj(MonthName(i))
Response.Write "</B></TD><TD>"& i
Response.Write "</TD></TR></DIV>"
Next
%>
</TABLE>
</CENTER>
</BODY>
</HTML>

Admin
Admin

Nombre de messages : 45
Date d'inscription : 20/01/2009

Voir le profil de l'utilisateur http://programming.formyjob.net

Revenir en haut Aller en bas

Voir le sujet précédent Voir le sujet suivant Revenir en haut

- Sujets similaires

 
Permission de ce forum:
Vous ne pouvez pas répondre aux sujets dans ce forum