<% Dim Connect, sConnString Set Connect = Server.CreateObject("ADODB.Connection") sConnString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _ "DBQ=" & Server.MapPath("alumnidb.mdb") & ";" Connect.Open(sConnString) Dim GetData Set GetData = Connect.Execute("SELECT * FROM qryNameAscend WHERE ClassYear='" & Request("ClassYear") & "'") %> <%If GetData.eof Then%>
No records exist. <%Else%> <%GetData.Requery%>
Name
E-mail
Class
Address
City
<%do while not GetData.EOF%>
<%=GetData("FirstName") + " "%><%=GetData("LastName")%>
<%=GetData("EmailAddress")%>
<%=GetData("ClassYear")%>
<%=GetData("Address")%>
<%=GetData("City")%>
<% GetData.MoveNext %> <% loop %>
<% set GetData = nothing set Connect = nothing %> <%End If%>