|
<%
Dim Emfrom
Dim Emsub
Dim Emto
Dim Embody
Emfrom = strEmail
Emsub = strSubject
Emto = strRecipient
Embody = strFullMessage
response.write strRecipient
Dim ObjCdo
Set ObjCdo = Server.CreateObject("CDONTS.NewMail")
ObjCdo.From = Emfrom
ObjCdo.Subject = Emsub
ObjCdo.To = Emto
ObjCdo.body = Embody
ObjCdo.send
Set ObjCdo = nothing
%>
Title
|