Poser une question

recherche ds une table+bool

c encore moi!!!

j'arrive pas a faire une recherche en entrant une date dans une zone de texte + une condition ds un combobox, le chanps ds la table est de type BOOl
ci-dessou le source

<%
Dim objconn
set objconn=server.createObject("ADODB.connection")
objconn.connectionstring="Driver={Microsoft Access Driver (*.mdb)};" & _
"DBQ=C:\racdebloc.mdb"
objconn.open

Dim objrs,cdaterdate,cbooltraited,cboolcombo

cdaterdate = Trim(Request("rdate"))
cboolcombo=request("combo")

dim strsql

strsql="SELECT * FROM deblocage WHERE rdate like '" &_
cdaterdate &"' and traited like '" &cboolcombo&"' "



set objrs = server.createobject("ADODB.Recordset")
objrs.open strsql,objconn,3,1


set cbooltraited = objrs("TRAITED")

if objrs.eof then
objrs.Close
set objrs=Nothing
objConn.Close
set objConn= Nothing%>
<center>
<b><FONT color ="blue">Aucun numéro insérer a cette date</FONT> </b>
</center>
<%

else


%>
<center>


<table border=20 CELLSPACING=20>


<tr>
<TD><b>Numéro</b></td>
<TD><b>Compteur1</b></td>
<td><b>Compteur2</b></td>
<td><b>Date</b></td>
<td><b>Heur</b></td>
<td><b>Traitement</b></td>
</tr>
</center>

<%
do while not objrs.eof

Response.Write "<TR><TD>"&objrs("msisdn" ) & "</TD>"
Response.Write "<TD>" &objrs("compteur1") & "</TD>"
Response.Write "<TD>" &objrs("compteur2") & "</TD>"
Response.Write "<TD>" &objrs("rdate") & "</TD>"
Response.Write "<TD>" &objrs("rtime") & "</TD>"

if cbooltraited = true then

%>
<td><b><FONT color ="red">Traiter</FONT> </b></td>

<%

else

%>
<td width="51"><p><a href="traiter3.asp?<%response.write "msisdn=" & objRs("msisdn") & "&compteur1=" & objRs("compteur1") & "&compteur2=" & objRs("compteur2") & "&rdate=" & objRs("rdate")& "&rtime=" & objRs("rtime") %>">débloquer</a></p></td>

<%
end if

objrs.movenext
loop
response.write"<p>Il ya "&objrs.recordcount&" cas</p>"

objrs.Close
set objrs=Nothing
objConn.Close
set objConn= Nothing

end if
%>

merci de m'eclairer

Réponses

Re: recherche ds une table+bool  nazim 21/7/2004