<%
dim strMsgInfo: strMsgInfo = ""
for i = 1 to Request.Form.Count
strMsgInfo = strMsgInfo & Request.Form.Key(i) & " - " & Request.Form.Item(i) & " " & vbCrLf
next
sendUrl="http://schemas.microsoft.com/cdo/configuration/sendusing"
smtpUrl="http://schemas.microsoft.com/cdo/configuration/smtpserver"
' Set the mail server configuration
Set objConfig=CreateObject("CDO.Configuration")
objConfig.Fields.Item(sendUrl)=2 ' cdoSendUsingPort
objConfig.Fields.Item(smtpUrl)="relay-hosting.secureserver.net"
objConfig.Fields.Update
' Create and send the mail
Set objMail=CreateObject("CDO.Message")
' Use the config object created above
Set objMail.Configuration=objConfig
objMail.From="member@mighty8th.org"
objMail.ReplyTo="member@mighty8th.org"
objMail.To="member@mighty8th.org"
objMail.Subject="Web Inquiry"
objMail.HTMLBody=strMsgInfo
if (objMail.Send = 0) then
set objMail = nothing
response.Redirect ("thankyou.htm")
else
set objMail = nothing
response.Redirect ("join.htm")
end if
%>
