" msg_body = msg_body & "

Get An Estimate - Detail

" msg_body = msg_body & "Will your event be inside or outside?" msg_body = msg_body & ""& event_type &"" msg_body = msg_body & " When is your event?" msg_body = msg_body & ""& event_date &" " msg_body = msg_body & " Approximately how many guests will be attending?" msg_body = msg_body & ""& guest_count &" " msg_body = msg_body & " " msg_body = msg_body & "

The Catering

" msg_body = msg_body & " " msg_body = msg_body & " Indicate your desired meal type:" msg_body = msg_body & ""& meal_types &" " if food_detail "" then msg_body = msg_body & " Please provide details regarding your desired food needs:" msg_body = msg_body & ""& food_detail &" " end if msg_body = msg_body & " lndicate your desired service type:" msg_body = msg_body & ""& service_type &" " if service_need "" then msg_body = msg_body & " Please provide details regarding your desired service needs:" msg_body = msg_body & ""& service_need &" " end if msg_body = msg_body & " Will you require on-site or off-site service? " msg_body = msg_body & ""& service_site &" " msg_body = msg_body & " Which of the following best describes your budget and expectations?" msg_body = msg_body & ""& budget &" " msg_body = msg_body & " Be sure to consider food, servers, equipment, etc.   " msg_body = msg_body & " " msg_body = msg_body & "

Event Location

" msg_body = msg_body & " " msg_body = msg_body & " Event Venue:" msg_body = msg_body & ""& venue_type &" " msg_body = msg_body & " Venue Name:" msg_body = msg_body & ""& venue_name &" " if venue_other "" then msg_body = msg_body & " If other, please specify:" msg_body = msg_body & ""& venue_other &" " end if msg_body = msg_body & " Street Address" msg_body = msg_body & ""& venue_address &" " msg_body = msg_body & " City:" msg_body = msg_body & ""& venue_city &" " msg_body = msg_body & " State/Area:" msg_body = msg_body & ""& venue_state &" " msg_body = msg_body & " Zip:" msg_body = msg_body & ""& venue_zip &" " if venue_location "" then msg_body = msg_body & " Use this area to provide any helpful details about the location where your event is to take place:" msg_body = msg_body & ""& venue_location &" " end if msg_body = msg_body & " " msg_body = msg_body & "

Contact Information

" msg_body = msg_body & " " msg_body = msg_body & " Contact Name:" msg_body = msg_body & ""& contact_name &" " if company_name "" then msg_body = msg_body & " Company Name:" msg_body = msg_body & ""& company_name &" " end if msg_body = msg_body & " Phone Number: 1-" msg_body = msg_body & ""& contact_phone &" " if contact_fax "" then msg_body = msg_body & " Fax Number: 1-" msg_body = msg_body & ""& contact_fax &" " end if msg_body = msg_body & " E-mail Address:" msg_body = msg_body & ""& contact_email &" " if contact_time "" then msg_body = msg_body & " When would be the best time of day to contact you?" msg_body = msg_body & ""& contact_time &" " end if msg_body = msg_body & " " msg_body = msg_body & "

Other Information

" msg_body = msg_body & " " msg_body = msg_body & " " if choose_type "" then msg_body = msg_body & " Please indicate your need/intentions for making this request." msg_body = msg_body & ""& choose_type &" " end if if hear_type "" then msg_body = msg_body & " How did you hear about us?" msg_body = msg_body & ""& hear_type &" " end if if hear_other "" then msg_body = msg_body & " Specifics Type (Yahoo, Google?)" msg_body = msg_body & ""& hear_other &" " end if if notes "" then msg_body = msg_body & " Use this area to indicate other information, special requests, notes or comments regarding your event." msg_body = msg_body & ""& notes &" " end if msg_body = msg_body & "" response.Write(msg_body) '// New additition for sending emails 'start constants and variables for CDO mail Const cdoSendUsingMethod = "http://schemas.microsoft.com/cdo/configuration/sendusing" Const cdoSendUsingPort = 2 Const cdoSMTPServer = "http://schemas.microsoft.com/cdo/configuration/smtpserver" Const cdoSMTPServerPort = "http://schemas.microsoft.com/cdo/configuration/smtpserverport" Const cdoSMTPConnectionTimeout = "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout" Const cdoSMTPAuthenticate = "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate" Const cdoBasic = 1 Const cdoSendUserName = "http://schemas.microsoft.com/cdo/configuration/sendusername" Const cdoSendPassword = "http://schemas.microsoft.com/cdo/configuration/sendpassword" Dim objConfig ' As CDO.Configuration Dim objMessage ' As CDO.Message Dim Fields ' As ADODB.Fields 'end constants and variables for CDO mail Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtpout.secureserver.net" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "moreinfo@argosinfotech.com" .Item(cdoSendPassword) = "dada123" .Item(cdoSMTPConnectionTimeout) = 10 .Update End With ' Mail to Site Admin Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .From = "moreinfo@argosinfotech.com" .To = "mpatel@argosinfotech.com" .Subject = "Get An Estimate" .HTMLBody = msg_body .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing ''// End of sending mails ' Thank you mail to client msg_body = "Thank you for your interest. We will get in touch with you very soon" & "

" msg_body = msg_body & "Thanks
Web Admin" Set objConfig = Server.CreateObject("CDO.Configuration") Set Fields = objConfig.Fields With Fields .Item(cdoSendUsingMethod) = cdoSendUsingPort .Item(cdoSMTPServer) = "smtpout.secureserver.net" .Item(cdoSMTPServerPort) = 25 .Item(cdoSMTPAuthenticate) = cdoBasic .Item(cdoSendUserName) = "moreinfo@argosinfotech.com" .Item(cdoSendPassword) = "dada123" .Item(cdoSMTPConnectionTimeout) = 10 .Update End With Set objMessage = Server.CreateObject("CDO.Message") Set objMessage.Configuration = objConfig With objMessage .From = "moreinfo@argosinfotech.com" .To = contact_email .Subject = "CDFW - Thank You" .HTMLBody = msg_body .Send End With Set Fields = Nothing Set objMessage = Nothing Set objConfig = Nothing '// End of sending mails response.Redirect("thanks.html") %>