<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% On Error Resume Next %> <%= WebsiteTitle %>
 
| Main Admin menu | View Website
 
 
Existing content select and edit
 
<% querya = "SELECT Content.Contentid, Content.ContentName, Content.ContentBody "_ &"FROM Content "_ ' a test Set RSconna = conn.execute(querya) %> <%do until RSconna.EOF%> <% Response.Write RSconna("Contentid") & " " & RSconna("ContentName") %> &Action=EditContent">Edit Name and details
<% RSconna.movenext loop RSconna.close set RSconna = nothing %>
 
 
 
<%= end_conna() %>