<% ' %> <% main() Sub main() Dim admin admin = Request("admin") If admin = "" Then admin = Session(DBName & "AdminPC") End If Session(DBName & "AdminPC") = admin %> <% = AppTitle %>
"> <% = HtmlDesign(7) %>
<% = HtmlFooter %> <% End Sub %>