<% 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