<%
if IsEmpty(flag) or flag = "" or flag = "menu" then
'----- start "main" -----'
%>
<%
end if
'------ end "confirm" ------'
'----- start "mail" -----'
if flag = "mail" then
name = Request.Form("name")
company = Request.Form("company")
address = Request.Form("address")
city = Request.Form("city")
state = Request.Form("state")
zip = Request.Form("zip")
email = Request.Form("email")
phone = Request.Form("phone")
fax = Request.Form("fax")
message = Request.Form("message")
whoto = "info@flynnhomes.com"
from = "info@flynnhomes.com"
subject = "Form Response From Flynn Homes Website"
body = "Name: " & chr(9) & chr(9) & chr(9) & name & vbCr
if not IsEmpty(company) then
body = body & "Company: " & chr(9) & chr(9) & company & vbCr & vbCr
end if
body = body & "Address: " & chr(9) & chr(9) & address & vbCr
body = body & chr(9) & chr(9) & chr(9) & chr(9) & city & ", " & state & " " & zip & vbCr & vbCr
body = body & "E-mail: " & chr(9) & chr(9) & chr(9) & email & vbCr & vbCr
body = body & "Phone: " & chr(9) & chr(9) & chr(9) & phone & vbCr
body = body & "Fax: " & chr(9) & chr(9) & chr(9) & fax & vbCr & vbCr
body = body & "Message: " & chr(9) & chr(9) & message
set objMail = CreateObject("CDONTS.Newmail")
objMail.Send from, whoto, subject, body
set objMail = nothing
%>
<%
end if
'------ end "mail" ------'
%>
|
