<%
dateToday = FormatDateTime(now(), vbGeneralDate)
strTo = Request.Form("recipient")
strFrom = Request.Form("realname")
strSubject = Request.Form("excercise")
strBody = Request.Form("score")
Response.Write strFrom & " = " & strBody
strBody = dateToday & " " & strFrom & " = " & strBody
Dim objCDOMail
Set objCDOMail = Server.CreateObject("CDONTS.NewMail")
objCDOMail.From = strFrom
objCDOMail.To = strTo
objCDOMail.Subject = strSubject
objCDOMail.Body = strBody
objCDOMail.Send
Set objCDOMail = Nothing
%>
Tus resultados fueron enviados al profesor
Gracias por participar
cerrar