Bonjour a tous,
J'ai une base de données avec une dizaine de page asp. Le problème c'est que quand j'ai commencé le travail en ASP j'etais entrain d'apprendre mon premier langage serveur et c'etait la galère, du coup j'ai négligé la structure de mon code par exemple j'appelle l'ouverture de ma connexion des dizaines de fois au lieu de faire une procedure et de l'appeler, bref bcp de redondance de code. La j'ai presque fini le boulot et je veux bien rearranger le code, car il est illisible. Je ne veux pas m'y mettre aux Classes, car je n'ai pas le temps et j'avous que j'ai trouvé un peu compliqué.

J'ai un exemple et si vous pouvez m'expliquer si c'est bon ou pas je vous serai reconnaissant.
Dans le fichier Gestion.asp :
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
<!-- #include file="include/connectionDB.asp" -->
<!-- #include file="include/objetscreation.asp" -->
Dans connectionDB.asp:
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
unction ouvrirBase()
  Set Conn = Server.CreateObject("ADODB.Connection")
  Conn.Open "bdProjet"
 end function
 
function initialiserListes()
  	listepays="SELECT DescriptionF,ID_pays FROM Pays order by DescriptionF asc"
    listeregions="SELECT DescriptionF,ID_region FROM Region order by DescriptionF asc"
    listebailleurs="SELECT DescriptionF ,ID_bailleur FROM Bailleur order by DescriptionF asc"
    listeclients="SELECT DescriptionF,ID_client FROM Client order by DescriptionF asc" 
 
  Set RSpays = Conn.Execute(listepays) 'Requete d'enumeration de toute la liste des pays
  Set RSregions = Conn.Execute(listeregions) 'Requete d'enumeration de toute la liste des regions
  Set RSbailleurs = Conn.Execute(listebailleurs) 'Requete d'enumeration de toute la liste des bailleurs
  Set RSclients = Conn.Execute (listeclients) 'Requete d'enumeration de toute la liste des clients
 
  end function
 
function terminateListes() 
 
   RSbailleurs.close
   RSresponsables.close
   RSclients.close
   RSmcp.close
   RSmcs.close
 
  end function   
 
  function fermerBase()
   Conn.close
  end function
 
Puis dans mon fichier objetscreation.asp ce qui m'interesse est le suivant:
''Dessine une zone de liste dynamiquement a partir de la requete listeclients
		  response.write("<select multiple name=selectCLIENT  size=5 style='width:190px'>")
 
 
		 	'Si aucun pays n'a ete indiqué, remplir par la liste des pays complete
		 		While not RSclients.EOF
			    response.write("<OPTION VALUE='"&RSclients(1)&"'>" & RSclients(0) & "</OPTION>")
		  	    RSclients.MoveNext
		 		Wend
		  response.write("</select>")
    response.write( "</div>" )
 
end function
Dans mon fichier gestion.asp , je veux afficher cette liste de clients. Rien ne se passe. et je n'ai pas de message d'erreurs. Voila comment j'appelle mes procedures:

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
<%call ouvrirBase()%>
<%call initialiserListes()%>
<td valign="top" height="149" width="212"><%call Get_Listeclients()%></td>
<%call terminateListes()%>
<%call fermerBase()%>
Voila désolé pour le long post, mais il y a quelquechose qui m'echappe.

Merci a vous