<% submit=request.form("submit") fname=request.form("fname") address=request.form("address") city=request.form("city") fstate=request.form("fstate") zip=request.form("zip") email=request.form("email") phone=request.form("phone") comments=request.form("comments") If (fname = "") OR (address = "") OR (city = "") OR (fstate = "") OR (zip = "") OR (phone = "") Then form_ok = false Else form_ok = true mailbody="Online Form Submission

" mailbody=mailbody & fname & "
" mailbody=mailbody & address & "
" mailbody=mailbody & city & ", " & fstate & ", " & zip & "

" mailbody=mailbody & "Email: " & email & "
" mailbody=mailbody & "Phone: " & phone & "

" mailbody=mailbody & "Comments:
" & comments Dim MyMail Set MyMail = Server.CreateObject("CDO.Message") MyMail.From = "user@countryclipper.com" MyMail.To = "countryclipper@countryclipper.com" MyMail.Subject = "Online Form Submission" MyMail.HTMLBody = mailbody MyMail.Send Set MyMail = Nothing End If %> Shivvers Mfg. Inc. - Country Clipper
Contact Us    

Country Clipper Division of Shivvers Mfg. Inc.
613 W. English | Corydon, IA 50060
Phone: 1-800-344-8237 or 641-872-2544
Fax: 641-872-1593
E-Mail: countryclipper@countryclipper.com
<% If form_ok = true Then %>

Your comments have been submitted. Thank You.

<% Else %>
<% If submit <> "" Then %> <% End If %>
  *Please fill in all required fields.
   
Contact Form:
 *Designates required fields
Name:
 *
E-Mail:
Address:
 *
City:
 *
State:
 *
Zip:
 *
Phone:
 *
Comments:
 
<% End If %>