set RsDatabase = server.CreateObject ("ADODB.Recordset")
if request("periode") <> "" then
dim sql, i,temp
sql = ""
sql = sql & "SELECT * FROM RECAP,ADMIN WHERE ("
temp = request("periode").count
for i = 0 to temp
sql =sql & "(Month([RECAP]![Date1])="& request("periode")(i) &") or "
Next
sql sql & ") and RECAP.ID1 ADMIN.ID1;"
Set RsDatabase = Rs.Execute(sql)
elseSet RsDatabase Rs.Execute("SELECT * FROM RECAP,ADMIN where RECAP.ID1 ADMIN.ID1;")
End If
%>
j'ai fait un menu déroulant
<select name="periode" onChange="location.href='calcul_plages_horaires.asp?periode='+this.value" lang="fr" size="1">
<Option value=>
<Option value=1,2,3,4>Janvier à Avril
<Option value=5,6,7,8>Mai à Août
<Option value=9,10,11,12>Septembre à Décembre
</select
Mais il ne comprend pas que "1,2,3,4" représente mois JANVIER, FEVRIER, MARS, AVRIL