<%@ Language=VBScript %>
LifeLongLinks
<%
strFlag = request.QueryString("flag")
if strFlag = "Y" then
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPickup = 1
'For CDOSYS, the pickup directory is located at c:\inetpub\mailroot\pickup.
Const strPickup = "c:\inetpub\mailroot\pickup"
'Create the message object.
Set iMsg = CreateObject("CDO.Message")
'Create the configuration object.
Set iConf = iMsg.Configuration
With iConf.Fields
.item("http://schemas.microsoft.com/cdo/configuration/sendusing")= cdoSendUsingPickup
.item("http://schemas.microsoft.com/cdo/configuration/smtpserverpickupdirectory") = strPickup
.Update
End With
'Set the To, From, Subject, and Body properties of the message.
With iMsg
.To = "lifelonglinks@iowa.gov"
.From = trim(Request("txtEmailfrom"))
.Subject = trim(Request("txtSub"))
.TextBody = trim(Request("txtArComments"))
.Send
End With
Set iMsg = Nothing
end if
%>