<%
If Request.Form("btnSend").Count > 0 Then
Set objMessage = CreateObject("CDO.Message")
objMessage.Subject = Request.Form("subject")
objMessage.Sender = Request.Form("From")
objMessage.To = Request.Form("To")
objMessage.TextBody = Request.Form("message")
objMessage.Send
Response.Redirect("Sent.html")
End If
%>
Send email with CDO