<% Session.timeout = 5 If IsObject(Session("Alumni1_conn")) Then Set conn = Session("Alumni1_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "Alumni1","Carlosl","cl0702" objConn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("/GWStaffList.mdb") Set Session("Alumni1_conn") = conn End If %> <% If IsObject(Session("CL_No_GED_or_HS_Diploma_ToCall_4_4_06_rs")) Then Set rs = Session("CL_No_GED_or_HS_Diploma_ToCall_4_4_06_rs") Else sql = "SELECT " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("CL_No_GED_or_HS_Diploma_ToCall_4_4_06_rs") = rs End If %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>

CL_No_GED_or_HS-Diploma_ToCall_4-4-06

FullName	Address	City	State	Zip	AlumStatus	EdStatAtLastContact	HighestEdAchievedPostGrad	HomePhone	OtherPhone
<%=Server.HTMLEncode(rs.Fields("FullName").Value)%>	<%=Server.HTMLEncode(rs.Fields("Address").Value)%>	<%=Server.HTMLEncode(rs.Fields("City").Value)%>	<%=Server.HTMLEncode(rs.Fields("State").Value)%>	<%=Server.HTMLEncode(rs.Fields("Zip").Value)%>	<%=Server.HTMLEncode(rs.Fields("AlumStatus").Value)%>	<%=Server.HTMLEncode(rs.Fields("EdStatAtLastContact").Value)%>	<%=Server.HTMLEncode(rs.Fields("HighestEdAchievedPostGrad").Value)%>	<%=Server.HTMLEncode(rs.Fields("HomePhone").Value)%>	<%=Server.HTMLEncode(rs.Fields("OtherPhone").Value)%>