<%@ LANGUAGE="VBSCRIPT" %>
<%
' ###########################################################
' # Formulario para realizar envio de mails desde la web. #
' # Ejemplo utilizando componente CDONTS en ASP. #
' ###########################################################
Option Explicit
On Error Resume Next
Sub WriteHTML(strInput)
Response.Write(Server.HTMLEncode(strInput) & "
")
End Sub
Sub RedirectHTML(strInput)
Response.Redirect(strInput)
End Sub
%>
<%
Dim objMsg, strFrom, strTo, strReplyTo, strBody, strSubject
Dim lngImportance, lngMsgFormat, lngMsgEncode
' Se indica a que direccion se va a enviar el mail.
strFrom = Trim(Request.Form("email"))
strTo = "info@valcore.com.ar"
' Aca levanto todos los campos que quiero y los guardo en variables de igual nombre.
' Si posee mas campos, copie la estructura y coloquele un nombre de referencia.
' Estos campos ya se acomodan automaticamente uno bajo el otro para ser enviados en el mail.
' El metodo de envio utilizado es: POST.
strReplyTo = Trim(Request.Form("email"))
strSubject = "Presupuesto / Consultas on-line"
strBody = ""
strBody = strBody & ""
strBody = strBody & ""
strBody = strBody & """"
strBody = strBody & " Formulario desde el website www.valcore.com.ar "
strBody = strBody & ""
strBody = strBody & ""
strBody = strBody & "
"
strBody = strBody & "Apellido: " & Trim(Request.Form("apellido")) & "
"
strBody = strBody & "Nombre: " & Trim(Request.Form("nombre")) & "
"
strBody = strBody & "Empresa: " & Trim(Request.Form("empresa")) & "
"
strBody = strBody & "Cargo: " & Trim(Request.Form("cargo")) & "
"
strBody = strBody & "Dirección: " & Trim(Request.Form("direccion")) & "
"
strBody = strBody & "Código Postal: " & Trim(Request.Form("cp")) & "
"
strBody = strBody & "País: " & Trim(Request.Form("pais")) & "
"
strBody = strBody & "Provincia: " & Trim(Request.Form("provincia")) & "
"
strBody = strBody & "Telé/Fax: " & Trim(Request.Form("telefono")) & "
"
strBody = strBody & "E-Mail: " & Trim(Request.Form("email")) & "
"
strBody = strBody & "Comentarios: " & Trim(Request.Form("comentarios")) & "
"
strBody = strBody & "
"
strBody = strBody & "
"
strBody = strBody & ""
' Aca empieza el mail
' Se crea el objeto del mail
' Se declara direccion a la que se envia, subject, direccion de respuesta.
Set objMsg = Server.CreateObject("CDONTS.NewMail")
If Len(Trim(strReplyTo)) > 0 Then
objMsg.Value("Reply-To")=strReplyTo
End If
If Len(Trim(strFrom)) = 0 Then
strFrom = "Usuario-sin-email@valcore.com.ar"
End If
objMsg.From = strFrom
objMsg.To = strTo
objMsg.Subject = "Envio de formulario"
objMsg.BodyFormat = 0
objMsg.MailFormat = 0
objMsg.Body = strBody
objMsg.Send
Set objMsg = Nothing
' Aca se redirecciona a una pagina de salida del mail o agradecimiento.
RedirectHTML("e-gracias.htm")
%>