|
Server : Apache/2.4.62 System : FreeBSD fbsdweb2.web.rcn.net 14.1-RELEASE FreeBSD 14.1-RELEASE releng/14.1-n267679-10e31f0946d8 GENERIC amd64 User : www ( 80) PHP Version : 8.3.8 Disable Function : NONE Directory : /domains/conceptlabs1/ |
Upload File : |
<%
'''''''''''''''''''''''''''''''''''''''''''''''''''''
' Freeware from Seiretto.com
' available at http://asp.thedemosite.co.uk
' DON'T forget to change the mail_to email address below!!!
' and thats all you need to change.
''''''''''''''''''''''''''''''''''''''''''''''''''''
Dim error, justadd, justread, justwrite, newline
Dim knt, f, emsg, mail_to, r, o, c, other, html, html_end, txt, etxt
Dim text01, text02, text03, text04, text05, text06, text07, text08, text09, text10
Dim member_info
justadd = 8
justread = 1
justwrite = 2
error = 0
knt = 0
mail_to = "[email protected]"
newline = vbCrLF
hline = vbNewLine
emsg = ""
'For Each f In Request.Form
' If Request.Form(f) = "" Then
' error = 0
' End If
'Next
Response.Write "EMAIL -->" & Request.Form("Email") & "<br><br>"
Response.Write "OPTION -->" & Request.Form("PICK1") & "<br><br>"
'----------------------------------------
' Checking input values
'----------------------------------------
etxt = ""
txt = Request.Form("Email")
IF txt = "" THEN
etxt = etxt & "- Blank Email Address <br>"
END IF
txt = Request.Form("Email")
IF inStr(txt,"@") = 0 THEN
etxt = etxt & "- Incomplete Email Address <br>"
END IF
txt = Request.Form("Email")
IF inStr(txt,".") = 0 THEN
etxt = etxt & "- No period (.) found in Email Address <br>"
END IF
'----------------------------------------
' if values are clean then continue
'----------------------------------------
if etxt = "" THEN
'----------------------------------------
' check out where to start
'----------------------------------------
txt = Request.Form("PICK1")
if instr(txt,"Forever") > 0 then
html = ""
knt = 0
txt = ""
'----------------------------------------
'
'----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "cli - Unsubscribe"
Mailer.FromAddress= mail_to
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "Help Desk", "[email protected]"
Mailer.Subject = "Unsubscribe - " & Request.Form("Email") & "-" & Request.Form("PICK1")
Mailer.BodyText = "<html><body>Delete this person asap!</body></html>"
Mailer.ContentType = "text/html"
if Mailer.SendMail then
Response.Write "Mail sent...<br><br>"
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
response.redirect "a_thanks.html"
else
html = ""
knt = 0
txt = ""
'----------------------------------------
'
'----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "cli - Reminder for future services"
Mailer.FromAddress= mail_to
Mailer.RemoteHost = "smtp.rcn.com"
Mailer.AddRecipient "Help Desk", "[email protected]"
Mailer.Subject = "Reminder - " & Request.Form("Email") & "-" & Request.Form("PICK1")
Mailer.BodyText = "<html><body>Communicate the following services at a later date.</body></html>"
Mailer.ContentType = "text/html"
if Mailer.SendMail then
Response.Write "Mail sent...<br><br>"
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
response.redirect "a_thanks.html"
end if
else
Response.Write "<p>Please click Back-Space on your browser and complete the following field:</p>"
Response.Write "<br>" & etxt
End if
%>