Re,
Essaie ça :
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
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89 <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"> <html xmlns="http://www.w3.org/1999/xhtml"> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" /> <title>Document sans titre</title> </head> <body> <% dim rst dim cnn set cnn = server.CreateObject("ADODB.CONNECTION") set rst= Server.CreateObject("ADODB.Recordset") cnn.open "delibes" 'rst.cursorlocation = aduseclient rst.cachesize = 5 mysql = "select * FROM chanteur" rst.open mysql, "delibes" %> <form name="frmSaisie" method="post" action="recupchanteurpc75.asp?Str_NbLignes=<%=Str_Compteur %>"> <input type="hidden" name="txtCompteur"> <% if not rst.EOF then rst.movefirst %> <table align="center" border="1" width="100%"> <% Str_Compteur = 0 DO while not rst.EOF Str_Compteur = Str_Compteur + 1 ' Gestion de la couleur de la ligne If Bln_Row_Color Then Str_Row_Color = "#BAE2E3" Else Str_Row_Color = "" End If ' Affectation du complément pour changer la couleur de la prochaine ligne Bln_Row_Color = Not Bln_Row_Color %> <tr BGCOLOR="<%=Str_Row_Color %>"> <td> <font face="Arial" color="#0099CC" size="3"> <strong> <%=rst("nom_chanteur")%> <input type="hidden" name="txtChanteur<%=Str_Compteur%>" value="<%=rst("nom_chanteur")%>"> </strong> </font> </td> <td> <div align="center"> <input type="text" name="txtGuitare<%=Str_Compteur%>" title="Modifier" value="<%=rst("guitare")%>"> </div></td> <td> <div align="center"> <input type="text" name="txtChant<%=Str_Compteur%>" title="Modifier" value="<%=rst("chant")%>"> </div></td> </tr> <% rst.MoveNext loop %> </table> <div align="center"> <p align="left"> <% end if rst.Close set rst = Nothing %> </p> <p> </p> <p> </p> </div> <p align="center"> </p> <div align="center"> <input type="submit" name="Submit" value="Envoyer"> </div> </form> <p align="center"> </p> </body> </html>
Partager