<% Option Explicit %>

Talent Agency 22

All Clients

Last Name

First Name

Sex

Skill

<% Dim Connect, OnMenu Set Connect = Server.CreateObject("ADODB.Connection") Connect.Open "TalentAgency" Set OnMenu = Connect.Execute("Select clients.LastName, FirstName, ClientSex, SkillSets.Skill From Clients, ClientSkillsLink, SkillSets Where Clients.ClientID = ClientSkillsLink.ClientID AND ClientSkillsLink.SkillsetsID = Skillsets.SkillsetsID Order By LastName") %> <% do until OnMenu.EOF %> <% OnMenu.MoveNext %> <% loop %>

<%=OnMenu("LastName")%>

<%=OnMenu("FirstName")%>

<%=OnMenu("ClientSex")%>

<%=OnMenu("Skill")%>