Bonjour à tous,
J'ai une erreur rien ne s'affiche je vois pas d'ou ça peut venir, mon code semble bon:
Merci à vous tout au long de ce développement
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
90
91
92
93
94
95
96
97
98
99
100
101
102 <% if Len(Request.Form("Cmd_semaine")) > 0 Then dim objRecordset dim numero dim i dim j dim objCnx numero=Request.Form("num_semaine") i=2 j=0 dim SQL set objCnx = dbConnect("BNW0001B" , "IUSR_BNW0001B" , "VF85DS" , "") SQL= " SELECT num_dossier , nom_dossier , date_dossier , commentaire, lien FROM JURIDIQUE, PUBLICATION WHERE PUBLICATION.num_publication=JURIDIQUE.num_publication ORDER BY date_dossier DESC " set objRecordset=Server.CreateObject("ADODB.Recordset") objRecordset.Open SQL, objCnx Do While Not objRecordset.EOF %> <table border="1" width="100%" height="1"> <tr> <td width="86%" height="1" valign="top" bordercolor="#008080" bgcolor="#008080"> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="0"><!--webbot bot="SaveResults" endspan --> <p> <input type="text" name="Titre" size="82" value="<%objRecordset(nom_breve)%>" style="color: #FFFFFF; background-color: #008080; border-style: solid; border-color: #000000"></p> </form> </td> <td width="14%" height="1" valign="top"> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="1"><!--webbot bot="SaveResults" endspan --> <p><input type="text" name="date_dossier" size="11" value="<%objRecordset(date_dossier)%>"></p> </form> </td> </tr> <tr> <td width="100%" height="41" valign="top" bgcolor="#C0C0C0" colspan="2"> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="2"><!--webbot bot="SaveResults" endspan --> <p><input type="text" name="Corp" size="113" value="<%objRecordset(commentaire)%>" style="background-color: #C0C0C0; font-family: Arial; font-size: 10 pt"></p> <p> </p> </form> </td> </tr> <tr> <td width="100%" height="9" valign="top" colspan="2"> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="3"><!--webbot bot="SaveResults" endspan --> <p><img border="0" src="images/epinglerouge.gif"><input type="text" name="source" size="111" value="<%objRecordset(source)%>" style="color: #0066FF; font-family: Arial; font-size: 10 pt"></p> </form> </td> </tr> <tr> <td width="86%" height="1001" valign="top" rowspan="2"> <p> </p> <p> <p> <p> </p> <p> </td> <td width="14%" height="3" bgcolor="#008080"> <form method="POST" action="--WEBBOT-SELF--"> <!--webbot bot="SaveResults" startspan U-File="_private/form_results.txt" S-Format="TEXT/CSV" S-Label-Fields="TRUE" --><input TYPE="hidden" NAME="VTI-GROUP" VALUE="4"><!--webbot bot="SaveResults" endspan --> <p><input type="text" name="lien" size="11" value="<%objRecordset(lien)%>" style="background-color: #008080; color: #FFFFFF"></p> </form> </td> </tr> <tr> <td width="14%" height="977"> </td> </tr> </table> <% i=i+1 objRecordset.MoveNext Loop objRecordset.Close Set objRecordset=Nothing end if %>
Partager