<%
else
Dim boolEmailSent, iMsg, iConf, Flds, strErr
Const cdoSendUsingPickup = 1
Const cdoSendUsingPort = 2
boolEmailSent=False
set iMsg = CreateObject("CDO.Message")
set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' Set the CDOSYS configuration fields to use the local smtp server using the pickup method
' Pickup Method (use internal SMTP server)
With Flds
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPickup
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory")="c:\inetpub\mailroot\pickup"
.Update
End With
' Apply the settings to the message.
With iMsg
Set .Configuration = iConf
.To = "lcpolice@ci.lacenter.wa.us"
.From = "lcpolice@ci.lacenter.wa.us"
.Subject = "Web Site Survey"
.HTMLBody = "How would you rate the quality of service provided by the La Center Police Department?"+Request("QualityOfService")+"