|
|
<%
' Did the user press a SUBMIT button to execute the form? If so get the form variables and verify user access.
if Request.ServerVariables("REQUEST_METHOD") = "POST" then
'Send e-mail
email = "info@graceslo.org"
Body = "Name: " & Request.Form("Name") _
& vbLf & Request.Form("Description")
'Set objSendMail = Nothing
'Send using the Pickup directory on the IIS server.
Dim iMsg
Dim iConf
Dim Flds
Dim strHTML
Const cdoSendUsingPickup = 1
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
' TODO: Replace with path to your pickup directory
' Typically, c:\Inetpub\mailroot\pickup
'Name or IP of remote SMTP server
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") ="localhost"
'Server port
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25
.Update
End With
With iMsg
Set .Configuration = iConf
.To = "prayer@graceslo.org"
.From = email
.Subject = "Directory Update Request"
.TextBody = Body
.Send
End With
' Clean up variables.
Set iMsg = Nothing
Set iConf = Nothing
Set Flds = Nothing
%>
Message Sent.
<%
else
%>
Update your Contact Info
Please fill in all fields completely.
An incomplete form will result in a delayed response.
<% end if %>
|
|