not good at this stuff but maybe this
<%
Dim objCDO
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.To = "blah"
objCDO.From = "blah"
objCDO.cc = "blah"
Dim txtSubject
txtSubject = "data from forms here"
objCDO.Subject = "Form results"
objCDO.Body = txtSubject
objCDO.Send