<% If IsObject(Session("cest_conn")) Then Set conn = Session("cest_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "cest","","" Set Session("cest_conn") = conn End If %> <% If IsObject(Session("CEST10test1_rs")) Then Set rs = Session("CEST10test1_rs") Else sql = "SELECT CEST10.Type, CEST10.First_Name, CEST10.Last_Name FROM CEST10 " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 End If %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>
CEST10test1
Type First_Name Last_Name
<%=Server.HTMLEncode(rs.Fields("Type").Value)%>
<%=Server.HTMLEncode(rs.Fields("First_Name").Value)%>
<%=Server.HTMLEncode(rs.Fields("Last_Name").Value)%>