1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79
| <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>
<body>
<p>2004<br>
20050826 pde avril fait le 26 avril<br>
20050803 pde avril fait le 3 mai<br>
20050902 pde mai fait le 2 juin<br>
20051005 pde juin fait le 5 juillet<br>
20051126 pde juillet fait le 26 juillet<br>
20051102 pde juillet fait le 2 aout<br>
20060107 pde août fait le 7 septembre<br>
</p>
<%
dim tab_dt(7,2)
tab_dt(0,0) = "2004"
tab_dt(1,0) = "20050826"
tab_dt(2,0) = "20050803"
tab_dt(3,0) = "20050902"
tab_dt(4,0) = "20051005"
tab_dt(5,0) = "20051126"
tab_dt(6,0) = "20051102"
tab_dt(7,0) = "20060107"
tab_dt(0,1) = "09/01/2004"
tab_dt(1,1) = "04/26/2005"
tab_dt(2,1) = "05/03/2005"
tab_dt(3,1) = "06/02/2005"
tab_dt(4,1) = "07/05/2005"
tab_dt(5,1) = "07/26/2005"
tab_dt(6,1) = "08/02/2005"
tab_dt(7,1) = "09/07/2005"
'JE MES MON TABLEAU DANS MA VARIABLE DE SESSION
session("MonTab") = tab_dt
response.Write("Today: " & date() & " = " & cdbl(date()) & "<br>")
response.Write("<table>" + Chr(13) + Chr(10))
response.Write("<th>Nom</th>" + Chr(13) + Chr(10))
response.Write("<th colspan='4'>Date</th>" + Chr(13) + Chr(10))
FOR j = 0 to UBOUND(tab_dt)
response.Write("<tr>" + Chr(13) + Chr(10))
response.Write("<td>" & tab_dt(j,0) & "</td>")
response.Write("<td>" & tab_dt(j,1) & "</td>")
response.Write("<td>=</td>")
response.Write("<td>" & cdate(tab_dt(j,1)) & "</td>")
response.Write("<td>" & cdbl(cdate(tab_dt(j,1))) & "</td>")
response.Write("</tr>" + Chr(13) + Chr(10))
NEXT
dim tab_dt2
'JE REMET MON TABLEAU GARDE AU CHAUD DANS MA VARIABLE DE SESSION DANS UN NOUVEAU TABLEAU
tab_dt2 = session("MonTab")
response.Write("</table>" + Chr(13) + Chr(10))
response.Write("<table>" + Chr(13) + Chr(10))
response.Write("<th>Nom</th>" + Chr(13) + Chr(10))
response.Write("<th colspan='4'>Date</th>" + Chr(13) + Chr(10))
FOR j = 0 to UBOUND(tab_dt2)
response.Write("<tr>" + Chr(13) + Chr(10))
response.Write("<td>" & tab_dt2(j,0) & "</td>")
response.Write("<td>" & tab_dt2(j,1) & "</td>")
response.Write("<td>=</td>")
response.Write("<td>" & cdate(tab_dt2(j,1)) & "</td>")
response.Write("<td>" & cdbl(cdate(tab_dt2(j,1))) & "</td>")
response.Write("</tr>" + Chr(13) + Chr(10))
NEXT
response.Write("</table>" + Chr(13) + Chr(10))
%>
</p>
</body>
</html> |
Partager