<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% if Session("adminLogged") <> true Then response.redirect("login.asp") end if strCommand = request.QueryString("cmd") strEditorView = request.QueryString("view") if strEditorView = "" Then editorInclude = "pad" else editorInclude = strCommand & "_" & strEditorView end if %> <% if strEditorView = "new" or strEditorView = "edit" Then %> <% else %> <% end if %>

blogs settings polls SIMPLEBLOG 3.0 <% if strCommand = "bloglist" Then %> <% if strCommand = "bloglist" and strEditorView = "new" Then %> create entry <% else %> create entry <% end if %> <% if strCommand = "bloglist" and strEditorView = "calendar" Then %> find entry by date <% else %> find entry by date <% end if %> <% end if %> <% if strCommand = "settings" Then %> <% if strCommand = "settings" and strEditorView = "global" Then %> Global settings <% else %> Global settings <% end if %> <% if strCommand = "settings" and strEditorView = "users" Then %> users [+ add user] <% else if strCommand = "settings" and strEditorView = "useradd" Then %> users [+ add user] <% else %> users <% end if end if %> <% end if %> <% if strCommand = "polls" Then %> <% if strCommand = "polls" and strEditorView = "add" Then %> new poll <% else %> new poll <% end if %> <% end if %> Find this application useful? You can throw money my way easily using the Paypal donate button below, I really wouldn't mind at all. If not, then just enjoy the app and feel free to delete this message.   <% Select Case editorInclude %> <% Case "pad" %> <% Case "bloglist_new" %> <% Case "bloglist_edit" %> <% Case "bloglist_calendar" %> <% Case "settings_global"%> <% Case "settings_users"%> <% if request.QueryString("edit") <> "" Then %> <% else %> <% end if %> <% Case "settings_useradd"%> <% Case "polls_list"%> <% Case "polls_add"%> <% end select %> <% if request.QueryString("blogDate") <> "" Then %> <% end if %>