<%@ Language=VBScript%>
<%
dim oMail
dim Texto
dim Error
Error=0
if Request.QueryString("modo")="ENVIAR" then
Error=10
if trim(Request.Form("nombre"))="" then
Mensaje="Debe ingresar su nombre"
Error=1
elseif trim(Request.Form("direccion"))="" then
Mensaje="Debe ingresar su direccion"
Error=1
elseif trim(Request.Form("asunto"))="" then
Mensaje="Debe ingresar un mensaje"
Error=1
else
Error=10
Mensaje="Gracias por su mensaje nos pondremos en contacto a la brevedad"
set oMail=createobject("CDONTS.NewMail")
Texto="Nombre: " & Request.Form("nombre") & vbcrlf & _
"Direccion: " & Request.Form("direccion") & vbcrlf & _
"Telefono: " & Request.Form("telefono") & vbcrlf & _
"Fax: " & Request.Form("fax") & vbcrlf & _
"Email: " & Request.Form("mail") & vbcrlf & vbcrlf & _
"Asunto: " & Request.Form("asunto") & " "
oMail.From="info@mbr.com.uy"
oMail.To="mbrltda@adinet.com.uy;info@mbr.com.uy"
oMail.Subject="Formulario ingeniería"
oMail.Body=Texto
oMail.Send
set oMail=Nothing
end if
end if
%>
principal
