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 !!