<%
if request("enviar")="1" then
Dim FSO
Dim Filepath
Dim file
Dim TextStream
Dim Archivo
Const ForReading = 1, ForWriting = 2, ForAppending = 3
Const TristateUseDefault = -2, TristateTrue = -1, TristateFalse = 0
'MANDAR MAIL !!!!
on error resume next
Set JMail = Server.CreateObject("JMail.SMTPMail")
JMail.ContentType = "text/html"
JMail.ServerAddress = "mail.teatrodelhistrion.org.ar"
JMail.Sender = "contactos@teatrodelhistrion.org.ar"
JMail.Subject = "Consultas por la Web"
JMail.AddRecipient "contactos@teatrodelhistrion.org.ar"
'cargar de archivo
'**************************************
set FSO = server.createObject("Scripting.FileSystemObject")
Filepath = Server.MapPath("mail/contacto.htm")
if FSO.FileExists(Filepath) Then
set file = FSO.GetFile(Filepath)
Set TextStream = file.OpenAsTextStream(ForReading, TristateUseDefault)
Archivo=""
Do While Not TextStream.AtEndOfStream
Archivo = Archivo & TextStream.readline
Archivo = Archivo & vbCRLF
Loop
Set TextStream = nothing
End If
Set FSO = nothing
Archivo=replace(Archivo, "**NOMBRE**", request("nombre"))
Archivo=replace(Archivo, "**MAIL**", request("email"))
Archivo=replace(Archivo, "**COMENTARIO**", request("comentarios"))
'**************************************
JMail.Body = Archivo
JMail.Priority = 1
JMail.AddHeader "Originating-IP", Request.ServerVariables("REMOTE_ADDR")
JMail.Execute
end if
%>
Contacto con el Grupo
CONTACTO
<% if request("enviar")<>"1" then %>
<% else %>
Su Comentario ha sido enviado exitosamente.
Muchas Gracias.
