| 12
 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