<% @LCID = 1034 %> <% if request.Form("EMAILDESTINO") <> "" then Texto = "Estos son los datos de la recomendacion realizada: " For each campo in Request.Form if left(Campo,5)<>"Image" then Texto = Texto & "
" & Campo & ": " & Request.Form(campo) end if Next if MandaEmail("venta@maderasmisiones.com.ar", "venta@maderasmisiones.com.ar", "estudiomate@gmail.com", "", "Nueva recomendacion desde la Web", "", Texto, "", "") and MandaEmail("venta@maderasmisiones.com.ar", request.Form("EMAILDESTINO"), "", "", request.Form("NOMBRE") & " le ha recomendado la web www.maderasmisiones.com.ar", "", "", "http://www.maderasmisiones.com.ar/Ecard/ecard_nuevaweb.html", "") then mensaje = "Gracias por recomendarnos!" else mensaje = "Hubo un problema al enviar su mensaje,
verifique los datos e intente de nuevo." end if end if %> Maderas Misiones S.A.
Maderas Misiones S.A.
 
Recomiende este sitio o algun artículo a sus contactos.
<%if mensaje <>"" then%>



<%=mensaje%>















<%else%>
 
 
 
   
<%end if%>