%@LANGUAGE="VBSCRIPT"%> <% Server.ScriptTimeout = 90 ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="" MM_authFailedURL="login.asp" MM_grantAccess=false MM_Cookies = Request.Cookies("Admin")("name") If MM_Cookies <> "" Then Session("MM_Username") = MM_Cookies End If If Session("MM_Username") <> "" Then If (true Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If objConnOpen objConnAdminOpen If Request("purge") = "yes" Then Set rsNews = Server.CreateObject("ADODB.Recordset") strSQL = "SELECT * FROM newsLetter WHERE confirm = 'no';" rsNews.Open strSQL, objConn, 0, 3, &H0001 If Not rsNews.EOF Then Do While Not rsNews.EOF If DateDiff("y",rsNews("Date"),Now) > 7 then rsNews.delete End If rsNews.MoveNext Loop End If rsNews.Close Set rsNews = Nothing End If If Trim(Request.QueryString("deleteadmin")) = "yes" Then strSQL = "DELETE * FROM admin WHERE adminID = "&Trim(Request.QueryString("id")) objConnAdmin.Execute strSQL Response.Redirect "mail.asp?action=newadmin" End If %>
Send a Newsletter
Add New Admin Add Address Delete Addresse(s) <% If strASPUpload = "yes" Then %> Manage Images <% End If %> Change Login info Log out |
<%
If Trim(Request.Querystring("action")) = "newadmin" Then
showNewAdmin
ElseIf Trim(Request.Form("newadmin")) = "yes" Then
addAdmin
ElseIf Trim(Request.QueryString("action")) = "adminpwd" Then
showAdminPwd
ElseIf Trim(Request.Form("chpwd")) = "yes" Then
changePwd
ElseIf Trim(Request.QueryString("action")) = "addaddy" Then
ShowAddress
ElseIf Trim(Request.Form("addemail")) = "yes" Then
addAddress
ElseIf Trim(Request.QueryString("action")) = "delete" Then
showDelete
ElseIf Trim(Request.Form("delete")) = "yes" Then
deleteAddy
ElseIf Trim(Request.Querystring("action")) = "send" Then
sendMail
ElseIf Trim(Request.QueryString("action")) = "image" Then
showImage
Else
MainContent
End If
%>
|
<% objConnClose objConnAdminClose %> |