<%
	Dim objMail
	Set objMail = Server.CreateObject("CDONTS.NewMail")

'these are the variables
    FromVar = Request.Form("Email")
	FromName = Request.Form("Name")
    ToVar = Request.Form("recipient")
    SubjectVar = Request.Form("subject")
	For Each x In Request.Form 
    message = message & x & ": " & Request.Form(x) & CHR(10) 
	Next

	
	'BodyVar = "Name: "&FromName& vbCrLf
    BodyVar = message
	
	
'from to etc
    objMail.From = FromVar
    objMail.Subject = SubjectVar
    objMail.To = ToVar
    objMail.Body = BodyVar 
    objMail.Send


  set objMail = nothing


%>