<%
SUB sendmail( aFrom, aTo, aSubject, aBody, aFile )
Dim objCDO
Dim iConf
Dim Flds
'UNCOMMENT IF USING EXTERNAL SMTP
' Const cdoSendUsingMethod = _
' "http://schemas.microsoft.com/cdo/configuration/sendusing"
' Const cdoSMTPServer = _
' "http://schemas.microsoft.com/cdo/configuration/smtpserver"
' Const cdoSMTPServerPort = _
' "http://schemas.microsoft.com/cdo/configuration/smtpserverport"
' Const cdoSMTPConnectionTimeout = _
' "http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout"
' Const cdoSMTPAuthenticate = _
' "http://schemas.microsoft.com/cdo/configuration/smtpauthenticate"
' Const cdoBasic = 1
' Const cdoSendUserName = _
' "http://schemas.microsoft.com/cdo/configuration/sendusername"
' Const cdoSendPassword = _
' "http://schemas.microsoft.com/cdo/configuration/sendpassword"
'UNCOMMENT IF USING EXTERNAL SMTP
Const cdoSendUsingPort = 2
Set objCDO = Server.CreateObject("CDO.Message")
Set iConf = Server.CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
' COMMENT THIS BLOCK OUT IF USING EXTERNAL SMTP
With Flds
.Item(cdoSendUsingMethod) = cdoSendUsingPort
.Item(cdoSMTPServer) = "mail-fwd"
.Item(cdoSMTPServerPort) = 25
.Item(cdoSMTPconnectiontimeout) = 10
.Update
End With
' COMMENT THIS BLOCK OUT IF USING EXTERNAL SMTP
'UNCOMMENT IF USING EXTERNAL SMTP AND CHANGE SMTP_SERVER TO YOUR SMTP SERVER
' With Flds
' .Item(cdoSendUsingMethod) = cdoSendUsingPort
' .Item(cdoSMTPServer) = "smtp_server"
' .Item(cdoSMTPServerPort) = 25
' .Item(cdoSMTPConnectionTimeout) = 10
' .Update
' End With
'UNCOMMENT IF USING EXTERNAL SMTP
Set objCDO.Configuration = iConf
objCDO.From = aFrom
objCDO.To = aTo
objCDO.Subject = aSubject
objCDO.TextBody = aBody
If aFile <> "" THEN
' If PDFS are not in this directory, change this - leave trailing slash
path="D:\Webs\wyerl1\whitepapers\"
' CHANGE ABOVE IF NECESSARY
objCDO.AddAttachment(path & aFile)
END IF
' CHANGE THESE VALUES, replace the first address with
' the same value as aTo2 on line 95
If aTo="webmaster@wyerless.net" THEN
objCDO.CC = "seymour@wyerless.net, tony@wyerless.net"
' CHANGE ABOVE
END IF
objCDO.Send
END SUB
' CHANGE THIS: put the address that you want the email to appear
' to be from
aFrom = "requests@wyerless.net"
' CHANGE ABOVE
aTo = TRIM( Request.Form( "email") )
aName = TRIM(Request.Form("name"))
aSubject = "File Request"
aBody = "Here is the file you requested."
aFile = TRIM( Request.Form( "paper") )
title = TRIM( Request.Form("title"))
company = TRIM(Request.Form("company"))
phone = TRIM(Request.Form("phone"))
' CHANGE THIS: main person email is going to
aTo2 = "webmaster@wyerless.net"
' CHANGE ABOVE
aBody2 = aFile & " was requested" & vbNewLine & vbNewLine & "Name: " & aName & vbNewLine & "Email: " & aTo & vbNewLine & "Title: " & title & vbNewLine & "Company: " & company & vbNewLine & "Phone: " & phone
If aTo <> "" THEN
sendMail aFrom, aTo, aSubject, aBody, aFile
sendMail aFrom, aTo2, aSubject, aBody2, ""
Set objCDO = Nothing
Set iConf = Nothing
Set Flds = Nothing
' CHANGE THIS: put in the name of your Thank You page in the quotes
Response.redirect "thankyou.htm"
' CHANGE ABOVE
END IF
%>