Forum de discussion
Forum « Programmation ASP » (archives)
Re: requete sql avec between
Envoyé: 22 juillet 2004, 10h28 par nazim
<% @language=vbscript %>
<% option explicit %>
<!--include virtual="C:\Inetpub\Scripts\include\adovbs.inc"-->
<!--#include file="connexion.asp"-->
<FORM METHOD=POST ACTION=rap.asp>
<head>
<title></title>
</head>
<body>
date 1<input type="text" name="rdate" size="20">date 2<input type="text" name="rdate1" size="20"><br>
<input type="submit" value="envoyer">
<%
Dim objRs,date1,date2,strsql
date1=trim(request("rdate"))
date2=trim(request("rdate1"))
strSQL="SELECT msisdn,compteur1,compteur2,rdate FROM deblocage WHERE rdate between #" & date1& "# and #" & date2 & "#;"
Set objRs=server.createobject("ADODB.recordset")
objRs.open strSQL,objconn, 3,1
if objrs.eof then
else%>
<br>
<center>
<table border="1" CELLSPACING=5 WIDTH=897 bgcolor="#C0C0C0" width="" bordercolorlight="#000000">
<tr>
<td bgcolor="#808080" align="left" width="51">
<p align="center"><font size="2" face="Comic Sans MS">msisdn</font></p>
</td>
<td bgcolor="#808080" align="left" width="83">
<p align="center"><font size="2" face="Comic Sans MS">compteur1</font></p>
</td>
<td bgcolor="#808080" align="left" width="34">
<p align="center"><font size="2" face="Comic Sans MS">compteur2</font></p>
</td>
<td bgcolor="#808080" align="left" width="34">
<p align="center"><font size="2" face="Comic Sans MS">rdate</font></p>
</td>
</tr>
</center>
<%
'affiche le contenu de la table amis
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>"
ObjRs.movenext
loop
response.write"<p>il existe "& objrs.recordcount & " enregistrements"
'elimination des objets ado
end if
objrs.close
set objrs=nothing
objconn.close
set objconn=nothing
%>
</body>
</html>
Réponses
|