<%
if Trim(Request("btnSubmit")) <> "" Then
strFeedback = request("txtFeedback")
strCName = request ("txtCName")
strName = request("txtName")
strEmail = request ("txtEmail")
Const cdoSendUsingPickup = 1 'Send message using the local SMTP service pickup directory.
Const cdoSendUsingPort = 2 'Send the message using the network (SMTP over the network).
Const cdoAnonymous = 0 'Do not authenticate
Const cdoBasic = 1 'basic (clear-text) authentication
Const cdoNTLM = 2 'NTLM
strMsg= "Thank you for your Feedback / Comments regarding World Affairs Journal"
strText = "
" &_
"
Feedback/ Comments
" & strFeedback & "
" &_
"
Company Name
" & strCName & "
" &_
"
Name
" & strName & "
" &_
"
Email
" & strEmail & "
" &_
"
"
Set myMail=CreateObject("CDO.Message")
myMail.Subject = "Feedback / Comments regarding World Affairs Journal"
myMail.From = strEmail
myMail.To = "contact@worldaffairsjournal.com"
myMail.HtmlBody = strText
'==This section provides the configuration information for the remote SMTP server.
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
'Name or IP of Remote SMTP Server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "smtp.gmail.com"
'Type of authentication, NONE, Basic (Base64 encoded), NTLM
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = cdoBasic
'Your UserID on the SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendusername") = "contact@worldaffairsjournal.com"
'Your password on the SMTP server
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/sendpassword") = "password"
'Server port (typically 25)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 465
'Use SSL for the connection (False or True)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = True
'Connection Timeout in seconds (the maximum time CDO will try to establish a connection to the SMTP server)
myMail.Configuration.Fields.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60
myMail.Configuration.Fields.Update
'==End remote SMTP server configuration section==
myMail.Send
set myMail=Nothing
end if
%>
