%@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
%>
![]() ![]() |
|
|
|
|
![]() |
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. |
|
|
|
||
|
|
||