<%@LANGUAGE="VBSCRIPT"%> <% If Request("Submit") <> "" then Dim objCDO,insertStr,aAdminEmail 'aAdminEmail= "buddy@tjco.net" aAdminEmail= "sales@debonairebanquet.com" insertStr = "New contact information:.

" & _ "Name: " & Request("txtName") & "
" & _ "Address: " & Request("txtAddress") & "
" & _ "City: " & Request("txtCity") & "
" & _ "State: " & Request("txtState") & "
" & _ "Zip: " & Request("txtZip") & "
" & _ "Email: " & Request("txtEmail") & "
" & _ "Phone: " & Request("txtPhone") & "
" & _ "Number of Guests: " & Request("txtNumGuests") & "
" & _ "Event Type: " & Request("txtEventType") & "
" & _ "Comments: " & Request("txtComments") & "
" Set objCDO = Server.CreateObject("CDO.Message") objCDO.From = "sales@debonairebanquet.com" objCDO.To = aAdminEmail objCDO.CC = "debraorf@debonairebanquet.com,sales.debonairebanquet@bluetie.com" objCDO.Subject = "You have a new contact from debonairebanquet.com" objCDO.HTMLBody = insertStr objCDO.Send() Set objCDO = Nothing Response.Redirect("thanks.html") End If %> Debonaire Banquet and Conference Center | Parties and Events

Contact Form
Name:
E-Mail:
Phone:
Type of Event:
How Many Guests?
Comments:

 

3515 North Lindbergh Boulevard St. Ann, Missouri 63074p: 314.291.3515f: 314.291.3516sales@debonairebanquet.com