<%@ language = "VBScript" %>
<% option explicit %>
<%
if request.Form("validate") then
'############################
'# BEGIN CLIENT NOTIFICATION EMAIL #
'############################
dim mailer, strBody
set mailer = Server.CreateObject("SMTPsvg.Mailer")
mailer.RemoteHost = "mail.localsbar.com"
mailer.FromName = request.Form("name")
mailer.FromAddress = request.Form("email")
' mailer.AddRecipient "Mary Brewer", "mary@picketfence.com"
mailer.AddRecipient "Dave Shaw", "dave@localsbar.com"
mailer.Subject = "Add to Email List"
strBody = "Add the contact below to the localsbar.com email list." & vbCrLf & vbCrLf
strBody = strBody & "User Name: " & request.Form("name") & vbCrLf
strBody = strBody & "User Email: " & request.Form("email") & vbCrLf
mailer.BodyText = strBody
if not mailer.SendMail Then
Response.Write(Mailer.Response)
response.end
end if
'##########################
'# END CLIENT NOTIFICATION EMAIL #
'##########################
' Clear the e-mail variables
strBody = ""
set mailer = nothing
'############################
'# BEGIN USER NOTIFICATION EMAIL #
'############################
dim strUserBody
set mailer = Server.CreateObject("SMTPsvg.Mailer")
mailer.RemoteHost = "mail.localsbar.com"
mailer.FromName = "Dave Shaw"
mailer.FromAddress = "dave@localsbar.com"
' mailer.AddRecipient "Mary Brewer", "mary@picketfence.com"
mailer.AddRecipient request.Form("name"), request.Form("email")
mailer.Subject = "LocalsBar.com Email List"
strUserBody = "Thank you for joining the LocalsBar.com email list. Your subscription will begin shortly." & vbCrLf & vbCrLf
strUserbody = strUserBody & "Enjoy!" & vbCrLf & vbCrLf
strUserbody = strUserBody & "Sincerely," & vbCrLf & "LocalsBar.com Management" & vbCrLf
mailer.BodyText = strUserBody
if not mailer.SendMail Then
Response.Write(Mailer.Response)
response.end
else
response.Redirect ("emaillist_thankyou.htm")
end if
'##########################
'# END USER NOTIFICATION EMAIL #
'##########################
response.redirect ("emaillist_thankyou.htm")
end if
%>
join the local list
Joining the Locals email list will get you email reminders once a week about live music, special events, and private party happenings at Locals in five points.
Note: Your email address will not be distributed to anyone else, under any circumstances.
Join Our Mailing List
all contents copyright® 2003 Locals SC LLC - reproduction of any part of this site is a no-no
