<%
Const cdoSendUsingMethod        = _
 "http://schemas.microsoft.com/cdo/con...tion/sendusing"
Const cdoSendUsingPort          = 1
Const cdoSMTPServer             = _
 "http://schemas.microsoft.com/cdo/con...ion/smtpserver"
Const cdoSMTPServerPort         = _
 "http://schemas.microsoft.com/cdo/con...smtpserverport"
Const cdoSMTPConnectionTimeout  = _
 "http://schemas.microsoft.com/cdo/con...nectiontimeout"
Const cdoSMTPAuthenticate       = _
 "http://schemas.microsoft.com/cdo/con...tpauthenticate"
Const cdoBasic                  = 1
Const cdoSendUserName           = _
 "http://schemas.microsoft.com/cdo/con...n/sendusername"
Const cdoSendPassword           = _
 "http://schemas.microsoft.com/cdo/con...n/sendpassword"
Dim objConfig  ' As CDO.Configuration
Dim objMessage ' As CDO.Message
Dim Fields     ' As ADODB.Fields
' Get a handle on the config object and it's fields
Set objConfig = Server.CreateObject("CDO.Configuration")
Set Fields = objConfig.Fields
' Set config fields we care about
With Fields
 .Item(cdoSendUsingMethod)       = cdoSendUsingPort
 .Item(cdoSMTPServer)            = "mail.covelli.com"
 .Item(cdoSMTPServerPort)        = 24
 .Item(cdoSMTPConnectionTimeout) = 10
 .Item(cdoSMTPAuthenticate)      = cdoBasic
 .Item(cdoSendUserName)          = "molly.kinsey@covelli.com"
 .Item(cdoSendPassword)          = "*******"
 .Update
End With
Set objMessage = Server.CreateObject("CDO.Message")
Set objMessage.Configuration = objConfig
With objMessage
 .To       = "chris.galati@covelli.com"
 .From     = "molly.kinsey@covelli.com"
 .Subject  = "SMTP Relay Test"
 .TextBody = "SMTP Relay Test Sent @ " & Now()
 .Send
End With
Set Fields = Nothing
Set objMessage = Nothing
Set objConfig = Nothing
response.write "Mail sent successfully"
Response.write("<script language=javascript> window.setTimeout ('window.location=""http://www.panera-tampa.com/index.html""',5000)</script>")
%>