<%@LANGUAGE="VBSCRIPT"%> <% ' *** Edit Operations: declare variables Dim MM_editAction Dim MM_abortEdit Dim MM_editQuery Dim MM_editCmd Dim MM_editConnection Dim MM_editTable Dim MM_editRedirectUrl Dim MM_editColumn Dim MM_recordId Dim MM_fieldsStr Dim MM_columnsStr Dim MM_fields Dim MM_columns Dim MM_typeArray Dim MM_formVal Dim MM_delim Dim MM_altVal Dim MM_emptyVal Dim MM_i MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME")) If (Request.QueryString <> "") Then MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString) End If ' boolean to abort record edit MM_abortEdit = false ' query string to execute MM_editQuery = "" %> <% ' *** Mail form as HTML format SYS *** If (CStr(Request("FX_sendForm")) = "form1") Then names = "" top = "
" body = "
" exclude = "B1,B1.x,B1.y,FX_sendForm,MM_insert,MM_update" reqArray = split(CStr(Request.Form),"&") For i=0 To UBound(reqArray) name = Left(reqArray(i),InStr(reqArray(i),"=")-1) if (InStr(exclude,name) = 0) Then if (InStr(names,name & ",") = 0) Then body = body & UCase(name) & ": " & CStr(Request.Form(name)) & "
" names = names & name & "," End If End If Next bottom = "
" message = Replace(top & body & bottom, "\r\n", vbCrLf) ' send all set objCDO = Server.CreateObject("CDO.Message") set objConf = Server.CreateObject("CDO.Configuration") set Flds = objConf.Fields Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "localhost" Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 Flds.Update objCDO.Configuration = objConf objCDO.From = CStr(Request.Form("email")) objCDO.To = "info@catholicwebservices.com" objCDO.Cc = "" objCDO.Bcc = "" objCDO.Subject = "Quote request from Catholic Web Services" objCDO.HTMLBody = message objCDO.Send set objCDO = Nothing ' redirecting body = Server.URLEncode(Replace(body, "\r\n", "
")) redirect = "GQSuccess.htm" If (redirect <> "") Then Response.Redirect(redirect) End If End If %> Catholic Web Services - Get A Quote

 

Thank you for your interest in our services.

Please take a moment to briefly provide us with some information about your website needs along with any comments or questions you may have. We will review your inquiry and contact you shortly to discuss a no-obligation quote.

Your name:

Company or group name (if applicable):


Your email address:

Phone number (XXX-XXX-XXXX):

When is the best time to contact you?
(mornings, afternoons, evenings)

Do you prefer to be contacted by
Phone           Email

In which time zone are you located?
HST
AST
PST
MST
CST
EST
*Other:
                       (We accept international clients!)

Which of our services is of interest to you?
(check all that apply)
Website design from scratch
Website design on an existing site
Database/Active Server Pages
Build a Web Store
        How many products to start?
Shopping cart hosting
Email list maintenance
Site backup services
Real Audio / Real Video file production
Site design technical assistance
Other:



Comments:




                             

 

      Home    Our Portfolio What Our Customers Say   Price List      Get a quote    Contact us