<% 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 %>
Company Name:
Name:
Street:
City:   ST:        Zip:  
Phone:
Fax:
E-mail:

Which method do you prefer to be contacted?
>Phone
>Fax
>E-mail

What would you like more information on?
0 then response.Write("Checked") end if%>>Labels: blank to 8 colors
>1 to 4 color printing
> Thermal Transfer Printers: sales, supplies & service
>Promotional Items
>Banners
>Apparel
>Other, please type in the comments box below.

Please type any comments or questions in the box below.





Products and Services          News and Specials          Contact Lighthouse Printing          Home
Lighthouse Printing
8940 W. 192nd St. Unit C.
Mokena, IL 60448
Ph: 708-479-7776
Fx:708-479-7778
web site contents ©2006


web site design by The Inertia Group, Inc.