<%=Session("SiteName")%> - Send HTML Email

<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If '** VARIABLES Dim strloadmessage Dim strloadsubject Dim strcount Dim strsubmit Dim strcontinue Dim rs Dim sql If Request("action") = "load_message" Then Set rs = conn.execute("Select * From " & tbl_prefix & "saved_messages Where save_name = '" & Request("fld_load_message") & "'", adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If strloadmessage = rs("message") strloadsubject = rs("subject") rs.Close Set rs = nothing End If If Request("action") = "delete_saved" Then conn.execute"Delete From " & tbl_prefix & "saved_messages Where save_name = '" & Request("delete_saved") & "'", , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If End If %> <%=Session("SiteName")%> - Send HTML Email

MailerPro Administration

Send Email Options

Tracking Options

','htmleditor.asp');" CLASS="NavOff" ; nowrap> Online Help

HTML Editor

<% If Request("action") = "delete" Then conn.execute "Delete From " & tbl_prefix & "temp_send", , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If conn.execute "Delete From " & tbl_prefix & "save_details", , adExecuteNoRecords If err <> 0 Then Response.Write"" err.clear Response.End End If End If Set rs = conn.execute("Select Count(email) As total From " & tbl_prefix & "temp_send", adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If strcount = rs("total") rs.Close Set rs = nothing Set rs = conn.execute("Select * From " & tbl_prefix & "temp_send", adOpenForwardOnly, adLockReadOnly) If err <> 0 Then Response.Write"" err.clear Response.End End If If Not rs.EOF Then strcontinue = 1 strsubmit = 1 %>

WARNING: Previous email as not been completed, still <%=strcount%> records left. Click Continue to complete email or Delete to delete.

<% rs.close Set rs = nothing End If %>

Load Saved Message

<% If strcontinue = 1 Then %> <% End If %> <% '** ASSURING THAT ALL DATABASE CONNECTIONS ARE CLOSED On Error Resume Next rs.close Set rs = nothing rsfun.Close Set rsfun = nothing conn.close Set conn = nothing on error goto 0 %>