<%@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 %> EZNewsletter - Send Mail



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 %>