Discussion :

[bibi2607]

Voila mon probleme:
J'arrive pas à créer une boucle grace a un "for", pour optimiser ce code.
Je ne vous cache pas que l'asp et moi sa fait deux, et que j'ai beaucoup de mal à développer.
Si quelqu'un pouvez m'aider pour cette boucle, je lui en serais très reconnaissant.
Merci

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
 
  <% While ((Repeat1__numRows <> 0) AND (NOT Recordset1.EOF)) %>
  <tr>
    <td><%=(Recordset1.Fields.Item("numhisto").Value)%></td>
    <td><%=(Recordset1.Fields.Item("nummach").Value)%></td>
    <td><%=(Recordset1.Fields.Item("numserie").Value)%></td>
    <td><%=(Recordset1.Fields.Item("nomNB").Value)%></td>
    <td><%=(Recordset1.Fields.Item("NomAV").Value)%></td>
    <td><%=(Recordset1.Fields.Item("dateSauv").Value)%></td>
    <td><%=(Recordset1.Fields.Item("nboctet").Value)%></td>
    <td><%=(Recordset1.Fields.Item("nomDD").Value)%></td>
    <td><%=(Recordset1.Fields.Item("nomVersion").Value)%></td>
    <td><%=(Recordset1.Fields.Item("dateMAJ").Value)%></td>
  </tr>
  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  Recordset1.MoveNext()
Wend
%>

[thor22]

Je ne vois pas le problème de ton code.
Tu veux mettre un "for" pour éviter de répéter plusieurs fois le

Code :

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

<td><%=(Recordset1.Fields.Item("numhisto").Value)%></td>

?

Tu pourrais mettre les noms des champs dans un tableau et faire une boucle dans ce tableau.

[bibi2607]

Voila, c'est tout a fait ce que je veux faire.
Employer un "for" pour éviter, de repéter toute mes lignes.
Mais les algo c'st pas mon truc et j'ai besoins d'un peu d'aide.

[thor22]

Ce n'est pas testé, mais ça devrait marcher:

Code :

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

1
2
3
4
arrChamps = Array("numhisto", "nummach", "numserie","nomNB","NomAV","dateSauv","nboctet","nomDD","nomVersion","dateMAJ")
For i = LBound(arrChamps) To UBound(arrChamps)%>
	<td><%=(Recordset1.Fields.Item(arrChamps(i)).Value)%></td>
Next