<%
'En general el escript puede enviar datos ingresados directamente o dinámicamente desde los parametros de imput
If Request.form("de") <> "" Then
Dim objCDO, texto
Set objCDO = Server.CreateObject("CDONTS.NewMail")
objCDO.mailFormat = 0
objCDO.bodyFormat = 0
objCDO.From = request.form("de")
'Destinatario del correo
objCDO.To = request.form("para")
'Copia Oculta del correo
'objCDO.CC = "sumail@sudominio.cl"
'Este es asunto del mail
objCDO.Subject = " Suscripción Torat Jaim"
'Si agrega mas campos en su formulario debe modificar esta sección
texto = texto & "Datos ingresados:
" & vbCrLf
texto = texto & "______________________________________
" & vbCrLf
texto = texto & "
" & vbCrLf
texto = texto & "Nombre: " & request.form("Nombre") & "
"& vbCrLf
texto = texto & "Email: " & request.form("de") & "
" & vbCrLf
texto = texto & "Direccion: " & request.form("Direccion") & "
" & vbCrLf
'texto = texto & "Nombre: " & request.form("Nombre") & "
" & vbCrLf
texto = texto & "Teléfono: " & request.form("Telefono") & "
" & vbCrLf
texto = texto & "comentarios: " & request.form("comentarios") & "
" & vbCrLf
texto = texto & "
" & vbCrLf
objCDO.Body = texto
objCDO.Send()
Set objCDO = Nothing
'Escriba el mensaje que verla el usuario despues de enviar el mail
Response.Write("Se envió el mail correctamente")
End If
%>
Formulario generico de envio de mail
<%If Request.form("de") = "" Then%>
Ahora, usted puede recibir
un comentario e la Parashá de la semana en su computador, simplemente suscribiéndose a
la lista "Torat Jaim".
Estos comentarios
son realizados por Ariel Foigel, Jazán de la Comunidad Israelita de Santiago de Chile, y son enviados D's mediante los días jueves de cada semana.
<% End If%>