<% Dim Section Section="Contact" 'All code property of Diversified Technologies Group '--05/18/05--- Dim oPage, PostPage, ClearBtn, SendBtn, MailTo, Mandatory, ErrorCount, FormFieldCount 'On Error Resume Next 'Set page variables PostPage = "contact.asp" ClearBtn= "Clear Form" SendBtn = "Submit Form" MailTo = "darlenerob@cox.net" MustFill = "*" 'number of error checks to perform ErrorCount = 20 ReDim ErrorMsg(ErrorCount) 'Clear out error counter ErrorCount = 0 'Number fields on Form 'FormFieldCount = 14 'Save Form values First = Request.Form("First") Last = Request.Form("Last") Email = Request.Form("Email") Phone = Request.Form("Phone") Address1 = Request.Form("Address1") Address2 = Request.Form("Address2") City = Request.Form("City") State = Request.Form("State") Zip = Request.Form("Zip") Comments = Request.Form("Comments") 'Save form button FormButton = Request.Form("Action") 'Set default if just press "return" If Request.ServerVariables("REQUEST_METHOD") = "POST" and FormButton = "" Then FormButton = SendBtn End If 'If clear is selected, clear form SELECT CASE FormButton CASE ClearBtn First = "" Last = "" Email = "" Phone = "" Address1 = "" Address2 = "" City = "" State = "" Zip = "" Comments = "" 'if send is selected CASE SendBtn if First = "" then ErrorCount = ErrorCount + 1 ErrorMsg(ErrorCount) = "You must enter your name." end if if Email = "" then ErrorCount = ErrorCount + 1 ErrorMsg(ErrorCount) = "You must enter your email address. " end if I = InStr(1, Email, "@", 1) if Email <> "" and I = 0 then ErrorCount = ErrorCount + 1 ErrorMsg(ErrorCount) = "Your e-mail address must include an @ to be valid. " end if 'make sure they put something after the "@" if Email <> "" and I > 0 then If Mid(Email, I + 1, 1) = "" Then ErrorCount = ErrorCount + 1 ErrorMsg(ErrorCount) = "Invalid or incomplete e-mail address." End If end if 'if no errors Select Case ErrorCount Case 0 Dim imsg, Message Set imsg = Server.CreateObject("CDO.Message") Set objConfig = Server.CreateObject("CDO.Configuration") Set Confi = objConfig.Fields Confi("http://schemas.microsoft.com/cdo/configuration/sendusing") = 1 Confi("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = "C:\inetpub\mailroot\pickup" Confi.Update Set imsg.Configuration = objConfig Message = "Contact Form Submission on " & Date & " at " & Time & vbCrLf & vbCrLf & _ "First Name: " & First & vbCrLf & _ "Last Name: " & Last & vbCrLf & _ "Email: " & Email & vbCrLf & _ "Phone: " & Phone & vbCrLf & _ "Address: " & Address1 & vbCrLf & Address2 & vbCrLf & _ "City:" & City & vbCrLf & _ "State: " & State & vbCrLf & _ "Zip Code: " & Zip & vbCrLf & vbCrLf & _ "Comments: " & Comments & vbCrLf imsg.From = Email imsg.To = MailTo imsg.Subject = "Contact from newenglandseating.com" imsg.TextBody = Message imsg.Send Set imsg = Nothing Set objConfig = nothing Select Case err Case 0 ErrorCount = -1 CASE ELSE ErrorCount = 1 ErrorMsg(ErrorCount) = Err.number & " - " & Err.description End Select End Select End Select %> New England Seating - restaurant booth, seating and furniture manufacturer

New England Seating Company

New England Seating Company, LLC
138 Haven Street
New Haven, CT 06513


Ph (203) 776-1116
Fx (203) 907-4028

New England Seating Compay LLC
138 Haven Street
New Haven, CT 06513

 

Ph (203) 776-1116
Fx (203) 907-4028

Restaurant Booth and Restaurant Seating Image New England Seating Company, LLC
138 Haven St.
New Haven, CT 06513

(203) 776-1116

info@newenglandseating.com

To request more information, please fill out the form below:

<% 'End of hide for check End If %>
<% SELECT CASE ErrorCount 'Check ErrorCount (0 = initial, -1 = Success, > 0 is # of errors CASE 0 'First Time through ' Response.Write "

Or just fill out the form below and click on the submit button. Your request will be sent directly to us.
" CASE -1 'Success event Response.Write "Thank you for contacting us!" CASE ELSE 'Form has errors Response.Write "Form error - please correct the following:

    " 'loop through error array For i = 1 to ErrorCount If ErrorMsg(i) <> "" Then Response.Write "
  • " & ErrorMsg(i) & "
    • " End If Next Response.Write "
" 'End of checking ErrorCount END SELECT 'Hide form if Success event... If ErrorCount <> -1 Then %>
First Name:
Last Name:
Email:
Phone:
Address:
 
City:
State:
Zip:
Comments:
    
 

Contact Us

 

New England Seating Company, LLC
138 Haven St.
New Haven, CT 06513

(203) 776-1116

info@newenglandseating.com


Home | Restaurant Booths | Restaurant Seating | Restaurant Chairs | Restaurant Tables | Banquette Seating | About Us | Photo Gallery | FAQ | Contact

Website By: Diversified Technologies Group 2007