|
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, ok
Dim knt, f, emsg, mail_to, r, o, c, other, html, html_end, txt, etxt
Dim greetings, part1, part2, part3
Dim member_info
justadd = 8
justread = 1
justwrite = 2
error = 0
knt = 0
ok = 0
mail_to = "[email protected]"
part1 = ""
part2 = ""
greetings = ""
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("Name")
IF txt = "" THEN
etxt = etxt & "- Blank Name<br>"
END IF
txt = Request.Form("Tel")
IF txt = "" THEN
etxt = etxt & "- Blank Telephone number<br>"
END IF
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
part1 = "<br><br>" & Request.Form("Name") & "<br>" & Request.Form("Tel") & "<br>" & Request.Form("Email") & "<br><br>"
'PART3
part3 = "Warm regards." & "<br><br>"
part3 = part3 & "ANTITRUST RESEARCH FOUNDATION" & "<br>"
part3 = part3 & "2801 New Mexico Avenue, N.W. - Suite 1024" & "<br>"
part3 = part3 & "Washington, DC 20007-3939" & "<br>"
greetings = ""
greetings = greetings & "EVENT DETAILS" & "<br>"
greetings = greetings & "------------------------------------------------------------" & "<br>"
greetings = greetings & "Location: Scalia Law School, 3301 Fairfax Drive, Arlington" & "<br>"
greetings = greetings & "Date: Friday, Jan 19, 2018" & "<br>"
greetings = greetings & "Time: 9:00am - 4:30pm" & "<br>"
html = ""
knt = 0
txt = ""
'----------------------------------------
'
'----------------------------------------
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = "ANTITRUST RESEARCH FOUNDATION"
Mailer.FromAddress= mail_to
Mailer.RemoteHost = "smtp.rcn.com"
'Mailer.AddRecipient "Edwin Rockefeller", "[email protected]"
Mailer.AddRecipient "Sheldon Richman", "[email protected]"
'Mailer.AddRecipient "Producer", "[email protected]"
Mailer.AddRecipient Request.Form("Name"), Request.Form("Email")
Mailer.Subject = Request.Form("Name") & " - You registered for the Friday, Jan 19, 2018 - What's Ahead in Antitrust? event."
Mailer.BodyText = "<html><body><table><tr><td>" & part1 & "<br><br>" & greetings & "<br><br>" & part3 & "</td></tr></table></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 "http://antitrustresearchfoundation.org"
else
Response.Write "<p>Please click Back-Space on your browser and review each entry:</p>"
Response.Write "<br>" & etxt
End if
%>