<%@ Language=VBScript %> <% Response.Buffer=True %>
<% dim strAction dim Page if isempty(Request("Action")) then strAction="browse" else strAction=lcase(Request("action")) end if if isempty(Request("Page")) then Page=1 else if isnumeric(request("page")) then Page=clng(Request("Page")) else Page=1 end if end if select case strAction case "browse" Browse case "addentry" AddEntry case "submitentry" submitentry CASE "reply" reply case "replyentry" replyentry case "edit" edit case "deleteentry" deleteentry end select ' password wrong %>