<%
IF request.form ("message")="True" THEN
'required fields
Name=request.form("Name")
Phone=request.form("Phone")
email=request.form("email")
if (Name="" or isnull(Name)) or (Phone="" or isnull(Phone)) or (email="" or isnull(email)) then
'if any of those are blank
if (Name="" or isnull(Name)) then response.Write("
""Name"" field is required.")
if (Phone="" or isnull(Phone)) then response.Write("
""Phone"" field is required.")
if (email="" or isnull(email)) then response.Write("
""E-mail"" field is required.")
else
Company_Name = request.Form("Company_Name")
Street=request.form("Street")
City=request.form("City")
State=request.form("State")
Zip=request.form("Zip")
Fax=request.form("Fax")
Contact_Method = request.Form("Contact_Method")
More_Information_On=request.form("More_Information_On")
Comments=request.form("Comments")
if Company_Name="" or isnull(Company_Name) THEN Street="No Company Name Given" END IF
if Street="" or isnull(Street) THEN Street="No Street Given" END IF
IF City="" or isnull(City) THEN City="No City Given" END IF
IF State="" or isnull(State) THEN State="No State Given" END IF
IF Zip="" or isnull(Zip) THEN Zip="No Zip Given" END IF
IF Fax="" or isnull(Fax) THEN Fax="No Fax Given" END IF
IF Contact_Method="" or isnull(Contact_Method) THEN Contact_Method="No 'Contact Method' choice selected" END IF
IF More_Information_On="" or isnull(More_Information_On) THEN More_Information_On="No 'More Information' choice selected" END IF
IF Comments ="" or isnull(Comments) THEN Comments="No Comments" END IF
'build the message body
vtext ="Company Name: " & Company_Name & "
Name: "& Name & "
Street: "& Street & "
City: "& City & "
State: "& State & "
Zip: "& Zip & "
Phone: "& Phone & "
Fax: "& Fax & "
Email: "& email & "
Contact Method: "& Contact_Method & "
More Information On: " & More_Information_On & "
Comments: " & Comments & ""
'response.Write vtext '*Testing output only*
Set Mail = Server.CreateObject("CDONTS.NewMail")
'FROM line is the contactor's email
Mail.From = email
Mail.To = "jrex@lighthouseprinting.net"
Mail.Subject = "Lighthouse Printing Web Form"
Mail.Body = vtext
Mail.BodyFormat = 0
Mail.MailFormat = 0
'send the message, redirect
Mail.Send
Set Mail = nothing
response.redirect("thankyou.htm")
end if
END IF
%>
