Houck & Associates - Contact US - Marketing & Graphic Design, Web Consulting, Web Feasibility & Marketing Studies, Web Site Development & Design, Online Applications, E-commerce, Online Surveys, Online Customer Service, Presentations & Training

<%@LANGUAGE="VBSCRIPT"%> <% if Request.Form("FFSubmitted") = "yes" then Dim BodyString Dim objCDO Dim RedirectURL Dim FormFields Dim arrFormFields FormFields = "firstname~lastname~email~title~business~organization~mailaddress~city~state~zip~country~phone~url~needs~howheard~comments" If FormFields <> "" Then arrFormFields = split(FormFields,"~") End If Set objCDO = Server.CreateObject("CDO.Message") objCDO.From = "contact@houckassociates.com" objCDO.To = "houck@houckassociates.com" objCDO.Cc ="" objCDO.Bcc = "hkassoc1@earthlink.net" objCDO.Subject = "Contact Us form" BodyString = Replace("values below:","~","
" )& "
" If FormFields <> "" Then For Each item In arrFormFields BodyString = BodyString & item & ": " & Request.Form(item) & "
" Next End If objCDO.HTMLBody = BodyString SET CDOConf = server.CreateObject("CDO.Configuration") CDOConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" CDOConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 CDOConf.Fields.item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 ' CdoSendUsing enum value = 2 CDOConf.fields.update Set objCDO.Configuration = CDOConf objCDO.Send Set objCDO = Nothing set CDOConf= Nothing RedirectURL = "th-contact.asp" If RedirectURL <> "" then If Request.QueryString <> "" Then response.redirect(RedirectURL & "?" & Request.QueryString) else response.redirect(RedirectURL) end If end if end if %> <% MM_EditAction = CStr(Request("URL")) If (Request.QueryString <> "") Then MM_EditAction = MM_EditAction & "?" & Request.QueryString End If %> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "inquire@houckassociates.com" MailSubject = "Contact Us - Houck & Associates" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition() if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) else 'To Entries set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"hkassoc1@earthlink.net") set WA_MailObject = WAUE_AddRecipient(WA_MailObject,"houck@houckassociates.com") MailTo = gAddRecipient end if 'Attachment Entries 'BCC Entries MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,0) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody + "Vales entered:" + VbCrLf MailBody = MailBody + "" + VbCrLf MailBody = MailBody + "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("firstname")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("lastname")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("email")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("title")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("business")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("organization")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("mailaddress")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("city")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("state")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("zip")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("country")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("phone")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("url")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("numberemployees")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("needs")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("howheard")) & "" + VbCrLf MailBody = MailBody + "" & cStr(Request.Form("comments")) & ""'EndlineNoBreak 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method")="POST") AND (InStr(cStr(Request.ServerVariables("HTTP_REFERER")), Request.ServerVariables("SERVER_NAME")&Request.ServerVariables("URL"))<>0)) then 'WA Universal Email object="CDONTS NewMail" 'Send Loop Once Per Entry 'Send Mail All Entries WA_Universal_Email_1_SendMail("") if (""<>"") then Response.Redirect("") end if end if %> Houck & Associates - Contact US - Marketing & Graphic Design, Web Consulting, Web Feasibility & Marketing Studies, Web Site Development & Design, Online Applications, E-commerce, Online Surveys, Online Customer Service, Presentations & Training

Contact Us

For more information about our services or to contact us, please complete the following form.

The more completely this form is filled out, the more efficiently we will be able to respond to your comments and/or questions. Please give details in the Comments section.

Your full name and email address must be completed for this form to function.

If you do not want to send this form via the Internet, you may telephone us at (703) 823-5824

Please be assured that all of the information you give will be held in the strictest confidence. Click here for our Privacy Policy Statement.

Thank you for contacting us. We will respond shortly.

<%response.write(FormatDateTime(date(),vblongdate))%>