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
|
<HTML>
<HEAD>
<meta http-equiv="content-type" content="text/html;charset=iso-8859-1">
<% 'déclaration
dim StrSQL, strSQL2, i, nblign, indice
dim paramBase : paramBase= Request("base")
dim paramTable : paramTable= Request("table")
%>
<SCRIPT language="javascript">
function selec(ligne) {
window.alert('test=<%=indice%>')
}
</script>
</HEAD>
<title>Affichage des enregistrements</title>
<BODY Link = "blue" ALink = "blue" vLink = "blue">
Response.Write "<table border=1 cellpadding=2 cellspacing=0 bordercolor='black'>"
indice=1
while not rs.eof
response.write"<tr onclick='selec(this)'>"
response.write "<td><b>"&indice&"</b></td>"
for i=0 to rs.Fields.Count-1
on error resume next
data = rs(i)
Mycheck = VarType(data)
trimData=trim(data)
if isnull(data)=true or data="" or trimData="" then
Response.Write "<td NOWRAP><font size=2> </font></td>"
else
if error = 0 then
if Mycheck = 2 or Mycheck = 3 or Mycheck = 4 or Mycheck = 6 or Mycheck = 14 then
Response.Write "<td NOWRAP align=right><font size=2>"&data&"</font></td>"
else
Response.Write "<td NOWRAP align=left><font size=2>"&data&"</font></td>"
end if
else
Response.Write "<td><font size=1>Erreur!</font></td>"
end if
end if
next
response.write"</tr>"
rs.movenext
nblign=nblign+1
indice=indice+1
wend
Response.Write "</table><br>"
rs2.close
rs.Close
set rs=nothing
Response.Write "Il y a <b>"& Nblign &"</b> enregistrement(s)."
else
response.write "La table <b>"+paramTable+"</b> ne contient aucun enregistrement<br><br>"
end if %>
<% objConn.Close
set objConn=nothing
end if
end if
end if
%>
</BODY>
</HTML> |
Partager