%@LANGUAGE="VBSCRIPT"%>
<%
Dim msgFrom
Dim msgSub
Dim msgTo
Dim msgBody
'ADDING FROM-ADDRESS TO THE MAIL
if(Request.Form("fromEml") <> "") then msgFrom = Request.Form("fromEml")
'ADDING NAME TO THE MESSAGE BODY
if(Request.Form("id") <> "") then msgBody = (msgBody & "Name :" & Request.Form("id") & "
")
'ADDING COMMENTS TO THE MESSAGE BODY
if(Request.Form("cmts") <> "") then msgBody = (msgBody & "Comments :" & Request.Form("cmts") & "
")
Dim ObjCdo
Set ObjCdo = Server.CreateObject("CDONTS.NewMail")
ObjCdo.From = msgFrom
ObjCdo.Subject = msgSub
ObjCdo.To = msgTo
ObjCdo.body = msgBody
ObjCdo.send
Set ObjCdo = nothing
%>
|
|||||||||||||||||||
|