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
| A.asp
<%
A = Request.Form("A")
'Creation de l'objet**********************************
Set cmdquery = Server.CreateObject("SConnect.Connect")
cmdquery.OpenC(Application("chargeur_ConnectionString"))
'************************************************
sql = "info_chargeur '" & A & "',1"
'Response.Write sql
set cli=cmdquery.GetRecordset(sql)
%>
<center><h1><u>NOM<font color=blue><%=A%></font></u></h1>
<br></br>
<table border=1 bordercolor="black" cellspacing=0 cellpadding=3>
<tr>
<td bgcolor="green"><b><font color=white>Nom</font></b></td>
</tr>
<%i = 0
while not cli.eof%>
<tr <%if i mod 2 then%>bgcolor="silver"<%else%>bgcolor="ivory"<%end if%>>
<td><%=cli("Nom")%></td>
</tr> <%cli.movenext
i = i + 1
wend
%>
</table>
</center>
</html>
</body>
B.asp
B = Request.Form("B")
'Creation de l'objet**********************************
Set cmdquery = Server.CreateObject("SConnect.Connect")
cmdquery.OpenC(Application("chargeur_ConnectionString"))
'************************************************
sql = "info_chargeur '" & B & "',2"
'Response.Write sql
set cli=cmdquery.GetRecordset(sql)
%>
<center><h1><u>NOM<font color=blue><%=B%></font></u></h1>
<br></br>
<table border=1 bordercolor="black" cellspacing=0 cellpadding=3>
<tr>
<td bgcolor="green"><b><font color=white>Nom Table 2</font></b></td>
</tr>
<%i = 0
while not cli.eof%>
<tr <%if i mod 2 then%>bgcolor="silver"<%else%>bgcolor="ivory"<%end if%>>
<td><%=cli("Nom")%></td>
</tr> <%cli.movenext
i = i + 1
wend
%>
</table>
</center>
</html>
</body> |
Partager