BONSOIR !!!
ma page internet possède un formulaire de recherche composé de 4 listes et d'un champ à saisir et un bouton recherche, je possède également une fonction javascript qui oblige l'utilisateur à ne remplir qu'un champ.
je possède par ailleurs 5 requêtes imposées permettants chacune l'affichage des données en fonction d'un critère
ensuite dans mon formulaire: pour afficher
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ' ALIM DE VARIABLES : à alimenter avec lec critères saisis par l'utilisateur ! ' ================= idx= Request.Form("txtidxajout") typeInclude= Request.Form("listtypeajout") site= Request.Form("listsiteajout") espace= Request.Form("listespaceajout") dateDeb= Request.Form("txtdatedebajout") dateFin= Request.Form("txtdatefinajout") nomFichierHTML= Request.Form("txtnomfichierhtmlajout") nomFichierPDF= Request.Form("txtnomfichierpdfajout") contenuHTML= Request.Form("txtcontenuhtmlajout") guidPDF= Request.Form("txtguidpdfajout") reqSQL="SELECTALL" 'SELECT * FROM AdminPDF if typeInclude<>"" then ReqSQL="SELECTTYPE" 'SELECT * FROM AdminPDF WHERE typeInclude='$typeInclude$' strtype = typeInclude oSQLRech.Setparam "typeInclude", strtype end if if site<>"" then ReqSQL="SELECTSITE" 'SELECT * FROM AdminPDF WHERE site='$site$' strsite = site oSQLRech.Setparam "site", strsite end if if espace<>"" then ReqSQL="SELECTESPACE" 'SELECT * FROM AdminPDF WHERE espace='$espace$' strespace = espace oSQLRech.Setparam "espace", strespace end if if dateDeb<>"" and dateFin<>"" then ReqSQL="SELECTDATES" 'SELECT * FROM AdminPDF WHERE dateDeb>='$dateDeb$' AND dateFin<='$dateFin$' strdated = dateDeb strdatef = dateFin oSQLRech.Setparam "dateDeb", strdated oSQLRech.Setparam "dateFin", strdatef end if ' FICHIER .ini QUI CONTIENT LES REQUÊTES SQL ' ========================================== FichierIni = "ADMINPDF" ' LANCEMENT DE LA REQUÊTE SQL ' =========================== oSQLRech.AddRequest ReqSQL, FichierIni ' EXÉCUTION DE LA REQUETE SQL ' =========================== oSQLRech.DynamicLtnv = oMOM.Execute( oSQLRech.DynamicLtnv,20000) ' RÉSULTAT DE LA REQUETE SQL ' ========================== if bDebug then Response.Write "<br>err.number : " & err.number Response.Write "<br>err.Description : " & err.Description end if if err.number <> 0 then set oSQLDelete = nothing Response.End end if ' EXPLOITATION DES DONNÉES RÉCUPÉRÉES ' =================================== nbRows = oSQLRech.ReturnedRows if bDebug then Response.Write "<br>nbRows : " & nbRows end if
je sais pas si le code est utile mais on ne sait jamais donc je ne sait pas gérer les requetes sur un bouton de recherche
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 for j=1 to nbRows if icouleur mod 2=0 then classcouleur="LIL" else classcouleur="LPL" end if 'Récup d'une colonne de la ligne j idx=oSQLRech.GetRowColValue(j,"IDX") typeInclude=oSQLRech.GetRowColValue(j,"TYPEINCLUDE") site=oSQLRech.GetRowColValue(j,"SITE") espace=oSQLRech.GetRowColValue(j,"ESPACE") dateDeb=oSQLRech.GetRowColValue(j,"DATEDEB") dateFin=oSQLRech.GetRowColValue(j,"DATEFIN") nomFichierHTML=oSQLRech.GetRowColValue(j,"NOMFICHIERHTML") nomFichierPDF=oSQLRech.GetRowColValue(j,"NOMFICHIERPDF") contenuHTML = oSQLRech.GetRowColValue(j,"CONTENUHTML") guidPDF=oSQLRech.GetRowColValue(j,"GUIDPDF") Response.Write"<tr><td class='" & classcouleur & "'>" Response.Write(idx) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(typeInclude) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(site) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(espace) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(dateDeb) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(dateFin) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(nomfichierHTML) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(nomFichierPDF) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(contenuHTML) Response.Write"</td>" Response.Write"<td class='" & classcouleur & "'>" Response.Write(guidPDF) Response.Write"</td>" Response.Write"</td></tr>" icouleur=icouleur+1 next %>
merci bcp !!
Partager