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
| <html>
<head>
<title>Entrée des employés</title>
<link rel="stylesheet" type="text/css" href="./YFR-ROT-ARC.css">
<meta name="GENERATOR" content="Microsoft FrontPage 5.0">
<meta name="ProgId" content="FrontPage.Editor.Document">
<meta name="Microsoft Border" content="tlb, default">
</head>
<body>
<form>
<input type=button name=imprimer value=Imprimer onclick="window.print();">
</form>
<%
Set rs=Server.CreateObject("ADODB.Recordset")
datent= request.form("datent")
response.write ("<h4>Entrées des employés entre le "&datent&" et le " & Date & "</h4>")
varsql= " SELECT AnnNomEmploye"&_
", AnnPrenomEmploye"&_
", AnnAdrElectronique"&_
", SyNomSite" &_
", AnnDatEntreeSociete" &_
" FROM AnnuaireYork LEFT JOIN SiteYork ON SiteYork.SyNumSite = AnnuaireYork.AnnNumSite"&_
" WHERE AnnDatEntreeSociete BETWEEN '"&datEnt&"' AND '"&date&"' "&_
" ORDER BY AnnNomEmploye"&_
";"
rs.open varsql, application("chaineConn")
response.write "<table border bordercolor=#000000 cellpadding=2>"
response.write"<tr>"
response.write"<th>Nom Employé</th>"
response.write"<th>Prénom Employé</th>"
response.write"<th>Adresse mail</th>"
response.write"<th>Site</th>"
response.write"<th>Date Entrée</th>"
response.write"</tr>"
do while not rs.eof
response.write "<tr align=center>"
response.write "<td>"
response.write rs("AnnNomEmploye")
response.write "</td>"
response.write "<td>"
response.write rs("AnnPrenomEmploye")
response.write "</td>"
response.write "<td>"
response.write rs("AnnAdrElectronique")
response.write "</td>"
response.write "<td>"
response.write rs("SyNomSite")
response.write "</td>"
response.write "<td>"
response.write rs("AnnDatEntreeSociete")
response.write"</td>"
response.write "</tr>"
rs.MoveNext
loop
response.write "</table>"
rs.close
%>
</body>
</html> |