<%@ Language=VBScript %> <% 'WRITTEN BY Jamie Smith -- 10/99-11/99 'ON ERROR RESUME NEXT OPTION EXPLICIT DIM RS %>

<%If Request("DATA") = "TRUE" Then%> <%End If%>

For the largest list of contacts fill in only one fields. Each field will narrow the results of the search.
Major	Select one <% Set RS=Conn.execute("Select * from Majors order by major") While NOT RS.EOF Response.Write ""&RS("Major")&"" RS.MoveNext Wend %>
Occupation	Select one <% Set RS=Conn.execute("Select * from Occupations ORDER BY Occupation") While NOT RS.EOF Response.Write ""&RS("Occupation")&"" RS.MoveNext Wend %>
Profession	Select one <% Set RS=Conn.execute("Select * from Professions order by Title") While NOT RS.EOF Response.Write ""&RS("Title")&"" RS.MoveNext Wend %>
Employer
Job Title
Job Description