سلام
				<%

Dim objNewMail

Set objNewMail = Server.CreateObject("CDONTS.NewMail")

objNewMail.From = request("T1")

objNewMail.To   ="komeil_22818@yahoo.com"

objNewMail.Subject = request("T2")

objNewMail.Body    =request("S1")

objNewMail.Send

Set objNewMail = Nothing



%>