Přehled zaměstnanců firmy podle věku (vzestupně)
<%
' *** otevře spojení do databáze ***
Set DC = Server.CreateObject("ADODB.Connection")
DC.Open Session("firma_ConnectionString")
' *** definice databázového dotazu ***
SQL = "select * from ZAMESTNANCI order by VEK"
' *** provede dotaz ***
Set Q = DC.Execute(SQL)
Do While Not Q.EOF
%>
<% = Q("ID") %> |
<% = Q("JMENO") %> |
<% = Q("PRIJMENI") %> |
<% = Q("POHLAVI") %> |
<% = Q("VEK") %> |
<%
Q.MoveNext
Loop
Set Q = Nothing
' *** uzavře spojení do databáze ***
DC.Close
Set DC = Nothing
%>
Konec výpisu.