|
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/leone10/save-pub/test/ |
Upload File : |
<% Option Explicit %>
<%
dim fullname, company, address, city, state, zip
dim phone, email
dim question
dim FromEmail
Dim Mailer
dim recipient
fullname = trim(Request.form("fullname"))
company = trim(Request.form("company"))
address = trim(Request.form("address"))
city = trim(Request.form("city"))
state = trim(Request.form("state"))
zip = trim(Request.form("zip"))
phone = trim(Request.form("phone"))
email = trim(Request.form("email"))
question = trim(Request.form("question"))
if email <> "" then
else
email = "[email protected]"
end if
dim SubmitDate
SubmitDate=Date()
' format the body of mail sent to Leone Landscape & Construction
dim strBody
strBody = "<HTML><BODY>"
strBody=strBody & "<TABLE width=550>"
strBody=strBody & "<TD align=center><font color='#333333' face='verdana' size=5><b>Contact<br><br></font></TD><tr>"
strBody=strBody & "<TD><table width=550><td width=100><font face='verdana' size=2><B>Submit Date:</B></TD>"
strBody=strBody & "<TD width=450><font face='verdana' size=2>" & SubmitDate & "</TD><tr>"
strBody=strBody & "<td colspan=2><p><hr size=1 width=550 color='#333333'><p></td>"
strBody=strBody & "<TR>"
strBody=strBody & "<TD><font face='verdana' size=2><B>Name:</B></TD><TD><font face='verdana' size=2>" & fullname & "</TD>"
strBody=strBody & "<TR><TD><font face='verdana' size=2><B>Address:</B></TD><TD><font face='verdana' size=2>" & address & "</TD>"
strBody=strBody & "<TR><TD><font face='verdana' size=2> </TD><TD><font face='verdana' size=2>"
strBody=strBody & city & ", " & state & " " & zip & "</td>"
strBody=strBody & "<TR><TD><font face='verdana' size=2><B>Phone:</B></TD><TD><font face='verdana' size=2>" & phone & "</TD>"
strBody=strBody & "<TR><TD><font face='verdana' size=2><B>Email:</B></TD><TD><font face='verdana' size=2>" & email & "</TD>"
strBody=strBody & "</TABLE><tr>"
strBody=strBody & "<table width=550>"
strBody=strBody & "<TR><TD width=100 valign=top><font face='verdana' size=2><B>Question or<br> comment: </B></TD><td valign=top><font face='verdana' size=2>" & question & "</TD><tr>"
strBody=strBody & "</table></td></TABLE>"
strBody=strBody & "</BODY></HTML>"
recipient="[email protected]"
Set Mailer = Server.CreateObject("SMTPsvg.Mailer")
Mailer.FromName = fullname
Mailer.FromAddress= email
Mailer.RemoteHost = "smtp.rcn.com"
mailer.AddRecipient "", recipient
Mailer.Subject = "Contact - Leone Landscaping & Construction"
Mailer.ContentType="Text/HTML"
Mailer.BodyText = strBody
if Mailer.SendMail then
Response.Write "Form information submitted..."
Response.redirect("contactresp.asp")
else
Response.Write "Mail send failure. Error was " & Mailer.Response
end if
set Mailer = nothing
' FromEmail = Email
' if FromEmail = "" then
' FromEmail = "[email protected]"
' end if
' MyCDONTSMail2.From= FromEmail
' MyCDONTSMail2.To=
' MyCDONTSMail2.Subject=""
' MyCDONTSMail2.BodyFormat=0
' MyCDONTSMail2.MailFormat=0
' MyCDONTSMail2.Body=strBody
' MyCDONTSMail2.Send
' set MyCDONTSMail2=nothing
%>