Bonjour à tous,
Je reformule une question déjà posé avec plus de détails, j'ai une base de donné qui reçoit les infos sur une tranfert d'argent soit "nom_expediteur, nom_destinataire, ville, montant_, DateEnvoi". Et ensuite les valeurs de ces variables sont insérer dans la base de donnée.
L'employer peut faire afficher toutes les transactions.... mais sur cette page d'affichage, j'ai mis un formulaire qui reçoit seulement 2 dates (DateEnvoie1 et DateEnvoi2) et qui dirigera l'employé vers une autre page afin de voir le même affichage des transaction rentrés mais, dans l'intervalle de ces 2 dates.
Par contre, les 2 dates rentrés par l'employé ne sont pas inserer dans la base de donnée mais dans la variable "DateEnvoie1 et DateEnvoi2"
Voici le code de la page qui affiche et qui contient le formulaire qui reçoit les 2 dates rentré par l'employé (cette page s'affiche bien) :
*** nom page : "securetoustransfert.asp"
<html>
<head>
<title>FamTransfert</title>
<script language="JavaScript" type="text/JavaScript">
function MM_preloadImages() { //v3.0
var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}} } //--> </script>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table><tr><td>
<form action="action="securetoustransfertdate.asp" method="post" name="envoi" onSubmit="MM_validateForm('DateEnvoi1','','R','DateEnvoi2','','R');return document.MM_returnValue">
Date debut <input type="text" name="DateEnvoi1" Id="DateEnvoi1" value="<%=DateEnvoi1%>">
Date Fin <input type="text" name="DateEnvoi2" Id="DateEnvoi2" value="<%=DateEnvoi2%>">
<input type="submit" value="Recherche"></form></td></tr>
</table>
</body>
</html>
***
Et voici le code de la page qui reçoit les 2 dates rentrés dans le formulaire(DateEnvoie1 et DateEnvoi2) qui affiche les trnasactions dans l'intervalle de ces 2 dates (Malheureusement rien s'affiche pas).
*** nom page : "securetoustransfertdate.asp"
<%
DateEnvoi1 = Trim(request("DateEnvoi1"))
DateEnvoi2 = Trim(request("DateEnvoi2"))
'Ouverture de la connexion
Set Con = Server.CreateObject("ADODB.Connection")
Con.Open "accessDSN"
Set prodRS = Server.CreateObject("ADODB.Recordset")
prodRS.ActiveConnection = Con
sqlString = "SELECT * From Envoi Where DateEnvoi Between #" & DateEnvoi1 & "# And #" & DateEnvoi2 & "#"
prodRS.Open sqlString
%>
<html>
<head>
<title>FamTransfert</title>
</head>
<body bgcolor="#FFFFFF" leftmargin="0" topmargin="0">
<table width="100%" border="0" cellpadding="5" cellspacing="0" bgcolor="#FFFFFF">
<TR bgcolor="#FFFFFF">
<TD colspan="9"><b>Tous les transferts entre <%=prodRS("DateEnvoi1")%> et <%=prodRS("DateEnvoi2")%>.</b></td>
</tr>
<TR bgcolor="#990000">
<TD> <div align="left">Id</div></td>
<TD> <div align="left"> Etat</div></td>
<TD> <div align="left"> Code
Agent</div></td>
<TD> <div align="left"> Agent</div></td>
<TD> <div align="left"> Nom Exp</div></td>
<TD> <div align="left"> Pays Exp</div></td>
<TD> <div align="left"> Montant</div></td>
<TD> <div align="left"> Équivalence</div></td>
<TD> <div align="left"> Devise</div></td>
<TD> <div align="left"> Frais de transaction</div></td>
<TD> <div align="left"> Nom Dest</div></td>
<TD> <div align="left"> Prénom Dest</div></td>
<TD> <div align="left"> Tél Dest </div></td>
<TD> <div align="left"> Pays Dest</div></td>
<TD> <div align="left"> Date Envoi</div></td>
</tr>
<% While not prodRS.EOF%>
<TR bgcolor="#FFFFFF">
<TD><%=prodRS("Id")%></td>
<TD><%=prodRS("Etat")%></td>
<TD><%=prodRS("CodeAgentEnvoi")%></td>
<TD><%=prodRS("NomAgentEnvoi")%>, <%=prodRS("PrenomAgentEnvoi")%></td>
<TD><%=prodRS("NExp")%>, <%=prodRS("PExp")%></td>
<TD><%=prodRS("PaysExp")%></td>
<TD><%=prodRS("MontantExp")%></td>
<TD><%=prodRS("Equivalence")%></td>
<TD><%=prodRS("Devise")%></td>
<TD><%=prodRS("FraisTransaction")%></td>
<TD><%=prodRS("NDest")%></td>
<TD><%=prodRS("PDest")%></td>
<TD><%=prodRS("TDest")%></td>
<TD><%=prodRS("PaysDest")%></td>
<TD><%=prodRS("DateEnvoi")%></td>
</tr>
<%prodRS.MoveNext WEND%>
</table>
<p>Montant total = <%=Total%><br>
Total frais = <%=Total1%><br>
</p>
<%
Response.End
end if
%>
<%
prodRS2.movenext wend
prodRS2.close
Con.close
%>
</body>
</html>
***
La première page s'affiche mais malheureusement, pas la deuxième soit : "securetoustransfertdate.asp"
Merci pour votre aide!
Jzeel