Discussion :

[ahage4x4]

Hello,
J'ai une page html avec un grand formulaire plusieurs liste deroulantes, zone de liste etc.....

Je me trouve a 1000 lignes de code et encore je n'ai pas fini.
Les requetes remplissent ces listes deroulantes etc... et il y en a une dizaine.

Des boucles do while j'en ai une trentaine, le code est vraiment illisible, commentaire ou pas, le code se ressemble et c'est fatiguant.

Ma question est la suivante: Voila un bout de code, rien d'important ne le lisez pas il sert a creer une zone de liste dynamiquement:

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
<% 
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
'''''''''''''Dessine une zone de liste dynamiquement a partir de la requete listeregions'''''''''''
''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''''
		  response.write("<select multiple name=selectREGION  size=5 style='width:190px'>")
    'Pour chaque bailleur de la liste s'il appartient a la requete sql5 on le met en selected	
			'S'assurer que RS5 n'est pas vide avant de continuer, si vide faire autre algo
		if not (RS5.EOF and RS5.BOF ) then
			While not RSbailleurs.EOF
			  signal = false
 
				    RS5.movefirst	
					While not RS5.EOF
 
						if  RSbailleurs(1)=RS5(1) then 
		   				'Si le ID ds RSregions se trouve ds la liste RS5  mettre signal = true
						signal = true
		   				end if
		  				RS5.MoveNext
					  Wend
 
 
				  if signal = true then 
		  			response.write("<OPTION SELECTED VALUE=RSbailleurs(1) >" & RSbailleurs(0) & "</OPTION>" )
		  			else  
		   			response.write("<OPTION VALUE=RSbailleurs(1)>" & RSbailleurs(0) & "</OPTION>")
		  		  end if
		      RSbailleurs.MoveNext
		  Wend
	................................

Est ce possible de mettre ce code dans un objet , cad dans mon document HTML, je mettrai au lieu de tout ce code FONCTION_QUI_RETOURNE_CET_OBJET()
Dans la fonction il y aura RETURN LIST_DEROULANTE.

Est ce que je me suis fait comprendre ? Ca structure bcp le code !!
Je sens que vous allez me dire que c'est possible que avec le ASP.NET

Voila, Merci

[malbaladejo]

Je ne comprend très bien ce que tu veux mais tu peux très bien découper ton code asp en fonction voir meme en class.
Il est a mon avis meme tres conseiller de le faire.

[amar00]

ça peut se faire via une fonction tout court.
Et ça ne prendra qu'une ligne de code.
Maintenant c'est vrai que si on souhaite faire du générique, il y aura pas mal d'argument :
ObjetConnection,RequeteSqlPourAlimenterLaListe,NomDuChampPourText,NomDuChampPOurValue,IdAselectionner....
Bref pas très pratique à la relecture, à moins de laisser en commentaire juste au dessus de la ligne d'appel, la "signature" de la fonction.
C'est ce que j'utilise et ma fois ça fait gagner pas mal de place.

Maintenant en implémentation objet j'imagine qu'il faudrait une ligne pour définir chaque propriété de l'objet en question et là pas moyen de gagner de la place...

[ahage4x4]

Hello,
Apres ce beau week end (j'espere pour vous aussi), je me remets au boulot.

Je veux bien voir une fonction qui me retourne une liste deroulante remplie et prete ! J'en ai besoin, le code que j'ai posté se repete 15 fois sur ma page HTML, donc pour la personne qui viendra apres moi .

Voila, Bonne semaine a tous.

[Gwenn]

Salut

un truc dans le genre :

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
Function Get_themes()
Dim oConnx
Dim oRsTheme
Dim StrSQL
 
 
			Response.write "<select name=""art_th_id"" id=""art_th_id"">"					
			Set oConnx = Server.CreateObject("ADODB.CONNECTION")
			Set oRsTheme = Server.CreateObject("ADODB.RECORDSET")
			oConnx.Open db_store
			StrSQL = "SELECT * FROM THEME"				
			oRsTheme.Open StrSQL, oConnx
			If Not oRsTheme.EOF Then
				Do While Not oRsTheme.EOF 
					If iArt_th_id = oRsTheme("th_id") then 
					Response.write "<option value=""" & oRsTheme("th_id") & """ selected=""selected"" >" & oRsTheme("th_lib") & "</option>"
					Else
					Response.write "<option value=""" & oRsTheme("th_id") & """>" & oRsTheme("th_lib") & "</option>"			
					End If
				oRsTheme.Movenext	
				Loop
			End If
			oRsTheme.Close
			Set oRsTheme = Nothing
			oConnx.Close
			Set oConnx = Nothing
			Response.write "</select>"
End Function

Code :

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

Call Get_themes()

[ahage4x4]

Code :

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

Call Get_themes()

Merci Gwenn je comprends, oui c'est utile et ca facilite la comprehension du code.
Pourquoi ce CALL ? je croyais qu'on l'utilise pour les procedures

[Gwenn]

tu as tout a fait raison, mais une fonction qui ne retourne pas de résultat est une procédure

[ahage4x4]

Donc je peux mettre mon code dans un include par exemple. Et dans mon Html je mets call mafonction et hop sa s'affiche. et hop resolu

Merci !!