 |
 |
 |
||||||||
 |
 |
|
||||||||
|
||||||||||
|
||||||||||
 |
|
|||||||||
 |
 |
 |
|
|||||||
|
||||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
 |
|
|||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
|
||||||||
|
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
|
||||||||
 |
 |
|
||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
|
|
|
|
|
|
|
|
|
|
|
 |
|
|||||||
<%
if request.form("key")="pass" then
no=request.form("name")
em=request.form("emailAddr")
co=request.form("coment")
text = "=========== SantaCatalina.org.pe ========"& VBnewline & VBnewline &_
"El Sr:" & no & VBnewline & VBnewline &_
"Desea hacer un comentario" & VBnewline & VBnewline &_
"------------------------------------------------------------" & VBnewline &_
"Datos del Usuario:" & VBnewline &_
"Nombre: " & no & VBnewline &_
"Email:" & em & VBnewline &_
"Comentario:" & co & VBnewline &_
"------------------------------------------------------------" & VBnewline &_
"www.santacatalina.org.pe" & VBnewline &_
"Departamento de Mantenimiento" & VBnewline
' declare a CDO object
dim objCDO
' create a CDO object
set objCDO = Server.CreateObject("CDONTS.NewMail")
' set the properties
objCDO.From = em
objCDO.To = "lgrupp@santacatalina.org.pe"
objCDO.Subject = "Comentario de Santa Catalina"
objCDO.Body = text
' send the email
objCDO.Send
set objCDO = Nothing
' ------ end send mail
%>
<%
else
%>
|
|||||||
