Bienvenue! Identification Créer un nouveau profil

Recherche avancée

Problème de date

Serge
11/06/03 11:01
Bonjour,

J'essaie de récupérer des enregistrements entre 2 dates, si je teste avec date() comme date de début et date()+1 comme date de fin, ça marche. Si j'entre la date en dur, plus rien ne va !

J'en ai marre, je suis callé sur cette connerie depuis des jours

Merci, Serge

Voici le code :

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="../Connections/connOurson.asp" -->
<%
Dim rsEssai__DateDeb
rsEssai__DateDeb = "Date()"
If (Request.Form("DateDeb"winking smiley <> ""winking smiley Then
rsEssai__DateDeb = Request.Form("DateDeb"winking smiley
End If
%>
<%
Dim rsEssai__DateFin
rsEssai__DateFin = "Date()+1"
If (Request.Form("DateFin"winking smiley <> ""winking smiley Then
rsEssai__DateFin = Request.Form("DateFin"winking smiley
End If
%>
<%
Dim rsEssai
Dim rsEssai_numRows

Set rsEssai = Server.CreateObject("ADODB.Recordset"winking smiley
rsEssai.ActiveConnection = MM_connOurson_STRING
rsEssai.Source = "SELECT DISTINCT tblPuer.Nom, tblPuer.Localité, tblPuer.Téléphone, tblActivité.Type, tblActivité.Date FROM tblPuer INNER JOIN tblActivité ON tblPuer.IDPuer = tblActivité.IDPuer WHERE ((tblActivité.Type)= 'Libre') AND (((tblActivité.Date) BETWEEN " + Replace(rsEssai__DateDeb, "'", "''"winking smiley + " AND " + Replace(rsEssai__DateFin, "'", "''"winking smiley + "winking smiley) ;"
rsEssai.CursorType = 0
rsEssai.CursorLocation = 2
rsEssai.LockType = 1
rsEssai.Open()

rsEssai_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 10
Repeat1__index = 0
rsEssai_numRows = rsEssai_numRows + Repeat1__numRows
%>
<html>
<head>
<title>Document sans titre</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
</head>

<body>

<form name="form1" method="post" action="">

<p>Date de d&eacute;but
<input name="DateDeb" type="text" id="DateDeb" value="<%=(rsEssai.Fields.Item("Date"winking smiley.Value)%>">
Date de fin
<input name="DateFin" type="text" id="DateFin">
<input type="submit" name="Submit" value="Envoyer">
</p>
</form>

<P>

</P>

<table border="1">
<tr>
<td>Nom</td>
<td>Localité</td>
<td>Téléphone</td>
<td>Type</td>
<td>Date</td>
</tr>
<% While ((Repeat1__numRows <> 0) AND (NOT rsEssai.EOF)) %>
<tr>
<td><%=(rsEssai.Fields.Item("Nom"winking smiley.Value)%></td>
<td><%=(rsEssai.Fields.Item("Localité"winking smiley.Value)%></td>
<td><%=(rsEssai.Fields.Item("Téléphone"winking smiley.Value)%></td>
<td><%=(rsEssai.Fields.Item("Type"winking smiley.Value)%></td>
<td><%=(rsEssai.Fields.Item("Date"winking smiley.Value)%></td>
</tr>
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
rsEssai.MoveNext()
Wend
%>
</table>
</body>
</html>
<%
rsEssai.Close()
Set rsEssai = Nothing
%>
SujetAuteurEnvoyé le

Problème de date

Serge11/06/03 11:01

Re: Problème de date

Hervé Inisan11/06/03 13:23

Re: Problème de date

Assia21/01/04 14:07

Seuls les utilisateurs enregistrés peuvent poster des messages dans ce forum.

Cliquez ici pour vous connecter