slt
g collé un peu de code... peux tu me dire ou ça coince avec le betwween
car sans tout va bien mais avec g une erreur du type:[Microsoft][Pilote ODBC Microsoft Access] Type de données incompatible dans l'expression du critère.
peux tu m'aider svp.....
<%
Set rsQuiD = Server.CreateObject("ADODB.Recordset" )
sqlQuiD = "SELECT Distinct PRENOM FROM COLLABORATEUR Where (FONCTION='Ciblage') or (FONCTION='Prospection')"
rsQuiD.open sqlQuiD, MyConn, 3, 3
Do While Not rsQuiD.EOF
ParQuiD=rsQuiD("Prenom" )
PourQuiID =Request.form("Pour" )
DatQui1 =Request.form("Date1" )'-----récup d 1 menu déroulant
DatQui2 =Request.form("Date2" )'-----récup d 1 menu déroulant
Set rs_InterlocQui2 = Server.CreateObject("ADODB.Recordset" )
sql_InterlocQui2 = "SELECT * FROM INTERLOCUTEUR Where POUR Like'" & PourQuiID & "' And PARCREA Like'" & ParQuiD & "' And DATCREA BETWEEN '"&DatQui1&"' AND '"&DatQui&"' "
rs_InterlocQui2.open sql_InterlocQui2, MyConn, 3, 3
nbre_InterlocQui2=rs_InterlocQui2.recordcount
rsQuiD.MoveNext
%>
<table width="80" border="0" cellspacing="1" cellpadding="0">
<tr bgcolor="#666666">
<td><font color="#FFFFFF"><%=ParQuiD%></font></td>
</tr>
<tr bgcolor="#9a8a7d">
<td align="center"><font color="#FFFFFF"><b><%=nbre_InterlocQui2%></b></font></td>
</tr>
</table>
<%
Loop%>