|
|
<%@ language=VBScript %>
<%
dim firstname
dim lastname
dim phone
dim subject
dim email
dim content
firstname = request.form("FirstName")
lastname = request.form("LastName")
phone = request.form("Phone")
subject = request.form("email_subject")
email = request.form("email_from")
content = request.form("comments")
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
if email <> vbnullstring then
send_messages
Response.write "The following message has been sent
"
Response.write "Name : " & FirstName & " " & LastName & "
"
Response.Write "Phone: " & Phone & "
"
Response.Write "Email: " & Email & "
"
Response.Write "Subject: " & Subject & "
"
Response.write "
" & content
response.end
else
response.write "Please enter a valid Email address
"
end if
end if
private Sub send_messages()
dim mail
dim html
set mail = Server.CreateObject("CDONTS.Newmail")
html = vbnullstring
html = html & "Name : " & FirstName & " " & LastName & "
"
html = html & "Phone: " & Phone & "
"
html = html & "
" & content
mail.Subject= subject
mail.from=email
mail.to="info@jandsinspections.com"
mail.BodyFormat=0
mail.MailFormat=0
mail.Body=html
mail.Send
set mail=nothing
end sub
%>
|
|
|
|
