<%SUB pageList()%> <% DIM objRS DIM strSQL DIM pid pid = Request.QueryString("sid") Set objRS = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT bmsWebPages.id_bmsPage,bmsWebPages.bmsPageName,bmsWebPages.bmsPageText " & _ "FROM bmsWebPages WHERE bmsWebPages.id_bmsPage = " & pid & ";" objRS.CursorType = 2 objRS.Open strSQL,objConn %>

<% objRS.Close Set objRS = Nothing objConn.Close Set objConn = Nothing %> Page edit page name: "> page content: <%=objRS("bmsPageText")%>

<%END SUB%>