<%
Dim objMail
strWho = Request ("UserName")
strTo = Request("UserEmail")
strFrom = Request.ServerVariables("SERVER_NAME")
Set objMail = CreateObject("CDONTS.NewMail")
objMail.From = strFrom
objMail.To = strTo
objMail.Subject = "Mail Works!!!"
objMail.Body = "Dear " & strWho & ". This e-mail was generated by server using CDO for NTS(CDONTS)."
objMail.importance = cdoHigh
objMail.Send
Set objMail = nothing
%>
confirm
Mail sent
- Please check your "Mail Box".