<%
if request.ServerVariables("HTTP_METHOD") = "POST" then
Dim iMsg
Dim iConf
Dim Flds
Const cdoSendUsingPort = 2
set iMsg = CreateObject("CDO.Message")
Set iConf = CreateObject("CDO.Configuration")
Set Flds = iConf.Fields
Flds.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = cdoSendUsingPort
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "apdwbnt01.athenet.net"
Flds.Item("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 10
Flds.Update
Set iMsg.Configuration = iConf
iMsg.Subject = request("name") & " has sent a feedback for the Roaster's Guild web site."
iMsg.From = request("email")
body = request("comments") & "
