home *** CD-ROM | disk | FTP | other *** search
/ Chip 2002 April / Chip_2002-04_cd1.bin / chplus / asp / dil3_ASP2.txt < prev    next >
Text File  |  1999-04-10  |  952b  |  45 lines
  1. <HTML>
  2. <HEAD>
  3. <META NAME="GENERATOR" Content="Microsoft Visual InterDev 1.0">
  4. <META HTTP-EQUIV="Content-Type" content="text/html; charset=windows-1250">
  5. <TITLE>P°ehled zam∞stnanc∙ firmy</TITLE>
  6. </HEAD>
  7. <BODY>
  8.  
  9. <H3>P°ehled zam∞stnanc∙ firmy podle v∞ku (vzestupn∞)</H3>
  10. <TABLE BORDER=1 CELLPADDING=5 CELLSPACING=0>
  11. <%
  12.     
  13. ' *** otev°e spojenφ do databßze ***    
  14. Set DC = Server.CreateObject("ADODB.Connection")
  15. DC.Open Session("firma_ConnectionString")
  16.     
  17. ' *** definice databßzovΘho dotazu ***    
  18. SQL = "select * from ZAMESTNANCI order by VEK"
  19.     
  20. ' *** provede dotaz ***    
  21. Set Q = DC.Execute(SQL)
  22. Do While Not Q.EOF
  23. %>
  24. <TR>
  25. <TD><% = Q("ID") %></TD>
  26. <TD><% = Q("JMENO") %></TD>
  27. <TD><% = Q("PRIJMENI") %></TD>
  28. <TD><% = Q("POHLAVI") %></TD>
  29. <TD><% = Q("VEK") %></TD>
  30. </TR>
  31. <%
  32. Q.MoveNext
  33. Loop
  34. Set Q = Nothing
  35.     
  36. ' *** uzav°e spojenφ do databßze ***    
  37. DC.Close
  38. Set DC = Nothing
  39. %>
  40. </TABLE>
  41. <BR>
  42. Konec v²pisu.
  43. </BODY>
  44. </HTML>
  45.