 |
 |
 |
||||||||
 |
 |
|
||||||||
|
||||||||||
|
||||||||||
 |
|
|||||||||
 |
 |
 |
|
|||||||
|
||||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
 |
|
|||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
|
||||||||
|
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
 |
|
||||||||
 |
 |
|
||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
 |
|
|||||||||
|
|
|
|
|
|
|
|
|
|
|
 |
|
|||||||
|
<%
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 = "comentarios@santacatalina.org.pe"
'objCDO.Subject = "Comentario de Santa Catalina"
'objCDO.Body = text
' send the email
'objCDO.Send
'set objCDO = Nothing
' ------ end send mail
On Error Resume Next
Set Mail = Server.CreateObject("Persits.MailSender")
Mail.From = "comentarios@santacatalina.org.pe"
response.write em & " " response.write text Mail.AddAddress "comentarios@santacatalina.org.pe" Mail.Subject = "Comentario de la Web" Mail.Body = text Mail.Host = "MAIL.SANTACATALINA.ORG.PE" Mail.Username = "comentarios@santacatalina.org.pe" Mail.Password = "coment" Mail.Send If Not err.number=0 Then Response.write "ERROR: " & err.Description err.Clear end if Set Mail = Nothing %> <% else %>
|
|||||||
