<%
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")
%>