%
sub SendMail()
Dim strTo
Dim strFrom
Dim strSubject
Dim strBody
Dim objCDOMail
Dim smtp, oConfig, oFields
strFrom = Request.Form("Email")
strTo = "info@xumba.com"
strBody = "Customer contact information
"
strBody = strBody & "Company: " & Request.Form("Company") & "
"
strBody = strBody & "Contact Name: " & Request.Form("Name") & "
"
strBody = strBody & "Telephone: " & Request.Form("Telephone") & "
"
strBody = strBody & "Fax: " & Request.Form("Fax") & "
"
strBody = strBody & "Email: " & Request.Form("Email") & "
"
strBody = strBody & "Comments:" & "
" & Request.Form("FeedBack")
strSubject = "Contact Information"
'Response.Write strBody
'Response.End
'======================================================
'Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
'objCDOMail.From = sFrom
'objCDOMail.To = sTo
'objCDOMail.Subject = strSubject
'objCDOMail.Body = strBody
'objCDOMail.BodyFormat = 1
'objCDOMail.Importance = 2
'objCDOMail.Send()
'Set objCDOMail = Nothing
'======================================================
'=======================================================
Set smtp = Server.CreateObject("CDO.Message")
Set oConfig = Server.CreateObject("CDO.Configuration")
Set oFields = oConfig.Fields
With oFields
.Item("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2
.Item("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.xumba.com"
.Update
End With
Set smtp.Configuration = oConfig
smtp.From = strFrom
smtp.To = strTo
smtp.Subject = strSubject
smtp.HTMLBody = strBody
'smtp.TextBody = strBody
smtp.Send()
Set smtp = nothing
Set oFields = Nothing
Set oConfig = Nothing
'=========================================================
Response.Redirect("contactconfirm.htm")
end sub
%>