1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18 19 20 21 22 23 24 25 26 27 28 29 30 31 32 33 34 35 36 37 38 39 40 41 42 43 44 45 46 47 48 49 50 51 52 53 54 55 56 57 58 59 60 61 62 63 64 65 66 67 68 69 70 71 72 73 74 75 76 77 78 79 80 81 82 83 84 85 86 87 88 89 90 91 92 93 94 95 96 97 98 99 100 101 102 103 104 105 106 107 108 109 110 111 112 113 114 115 116 117 118
|
<!-- #include file="../include/Connexion.asp" -->
<!-- #include file="../include/fonctions.asp" -->
<html>
<body>
<%
Dim var_action
Dim mode, periode, mois, annee, filtre, numCC
filtre = Session("filtre")
mode = Request.QueryString("mode")
periode = Session("periode")
mois = Session("nummois")
annee = Session("annee")
numCC = Request.QueryString("numCC")
'deb "session moisD", Session("moisDebut")
'deb "session moisF", Session("moisFin")
'on crée l'url, en fait, tous les champs y sont présents mais seuls les bons y sont renseignés (filtre et periode cohabitent mais sont remplis uniquement si il le faut
var_action = "./repReq_test.asp?numCC="&numCC&"&periode="&periode&"&filtre="&filtre&"&annee="&annee&"&moisDebut="&Session("moisDebut")&"&moisFin="&Session("moisFin")&"&mode="&mode
%>
<form method="post" name="form" id="form">
<table>
<tr>
<td>
<b> Produits retenus pour le reporting : </b>
</td>
</tr>
<tr>
<table>
<tr>
<%
Dim req_or, rs_or, nom_or, num_or
set rs_or = Server.CreateObject("ADODB.Recordset")
req_or = "SELECT * FROM Orientation WHERE Purge = False;"
set rs_or = objConn.Execute(req_or)
while not rs_or.eof
nom_or = rs_or("Libelle_Orientation")
num_or = rs_or("N°_Orientation")
%>
<td>
<%=nom_or%>
<input type="checkbox" name="orientation" value ="<%=num_or%>" >
</td>
<%
rs_or.MoveNext
Wend
rs_or.Close
set rs_or = nothing
%>
</tr>
</table>
</tr>
</table>
<table>
<tr>
<td>
<b> Marchés retenus pour le reporting : </b>
</td>
</tr>
<tr>
<table>
<tr>
<%
req_or = "SELECT * FROM Client;"
set rs_or = objConn.Execute(req_or)
while not rs_or.eof
nom_or = rs_or("Libelle_Client")
num_or = rs_or("N°_Client")
%>
<td>
<%=nom_or%>
<input type="checkbox" name="client" value ="<%=num_or%>" >
</td>
<%
rs_or.MoveNext
wend
rs_or.Close
set rs_or = nothing
%>
</tr>
</table>
</tr>
<tr>
<table>
<tr>
<td><b>Requete non renseignée visible ?</b></td>
<td>
<input type = "radio" name="visibilite" value = "1"> Oui
<input type = "radio" name="visibilite" value = "0"> Non
</td>
</tr>
</table>
</tr>
<tr>
<td>
<input type="button" name="soumettre" value="Recharger" onClick="renvoi(this.form);">
</td>
</tr>
</table>
</form>
<script language='JavaScript'>
function renvoi(f){
f.submit();
<%
Session("var_orient")= ""
Session("var_client")= ""
Session("var_vis") = ""
Session("var_orient") = Request.Form("orientation")
Session("var_client") = Request.Form("client")
Session("var_vis") = Request.Form("visibilite")
%>
window.opener.location.href='<%=var_action%>';
self.close();
}
</script>
</body>
</html> |
Partager