Discussion :

[ahage4x4]

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

[NeHuS]

Hmmm sait on jamais : etant donné que tes fonctions sont ecrites en javascript je pense que call tafonction() n'est pas la bonne solution...

essaye comme ça juste pour savoir :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
<% ouvrirBase()
 initialiserListes()
<td valign="top" height="149" width="212"><%Get_Listeclients()%></td>
terminateListes()
fermerBase()%>

les call c'est pour les sub ( vbscript)

[ahage4x4]

Nehus merci pour ta reponse,
en fait mes fonctions sont du VBscript, et call peut appeler une fonction qui ne retourne rien donc une procedure.

[NeHuS]

re ahage ce n'est pas tres logique tu nous parles de procedures alors que t'utilises la syntaxe de fonction....

met

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 sub toto()
end sub

plutot que

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
 function toto()
end function

normalement la fonction retourn quelque chose !!! grr

[ahage4x4]

Ok Nehus, si ca te fait plaisir mais une fonction qui ne retourne rien est une procedure bref... Je vais le faire tout a l'heure. Je te tiens au courant. Merci

[ahage4x4]

C'est bon, ca ne marchait pas car les variables qui sont appelées ne sont pas des variables globales. il suffit de les declarer dans le fichier include.

Voila, merci Nehus

Anthony