<%
Dim vUserEmail, vSubject , vMessage 
vUserEmail = Request.Form("UserEMail")
vSubject = Request.Form("Subject")
vMessage  = Request.Form("UserMessage")
%>
<%
Dim myMail
Set myMail=CreateObject("CDO.Message")
myMail.Subject= vSubject
myMail.From= vUserEmail 'pick up users email from variable
myMail.To= "you@you.com" 'Destination email
myMail.Bcc="blind@blind.com" 'use this if you want a bcc
myMail.HTMLBody = vMessage 'message/body
myMail.Send
set myMail=nothing
%>
<%Response.Redirect("thankyou.asp")%>