<% if request.form("pasa") <> "" then dim promo If trim(request("check1")) = "" Then promo= " No deseo recibir promociones diariamente. " Else promo= " Deseo recibir promociones diariamente. " End If dim sbody Set objCDOMail = Server.CreateObject("CDONTS.NewMail") nombre=Request.Form("nombre") apellido=Request.Form("apellido") email=Request.Form("email") telefono=Request.Form("telefono") empresa=Request.Form("empresa") fax=Request.Form("fax") comentarios=Request.Form("comentarios") sbody = sbody & "Nombre:" &nombre & vbCrLf sbody = sbody & "Apellido:" &apellido & vbCrLf sbody = sbody & "Email:" &email & vbCrLf sbody = sbody & "Teléfono:" &telefono & vbCrLf sbody = sbody & "Empresa:" &empresa & vbCrLf sbody = sbody & "Fax:" &fax & vbCrLf sbody = sbody & "Comentarios:" &comentarios & vbCrLf sbody = sbody & "Promosiones:" &promo & vbCrLf sAsunto ="Marcale SRL." sDest="marcale@sion.com" sfrom="Formulario de la pagina " objCDOMail.From = sfrom objCDOMail.To = sDest objCDOMail.Subject = sAsunto objCDOMail.Body = sbody objCDOMail.Send 'Response.End ' SEBA, ENTRE COMILLAS COLOCA DIRECCIÓN DE LA PAGINA DE AGRADECIMIENTOS QUE VOS QUIERAS. response.redirect "HTTP://www.marcalesrl.com.ar/agradecimiento.htm" End If %> Marcale SRL ..:: Contáctenos ::.
     
Nombre
Apellido
E-mail
Teléfono
Empresa
Fax
Comentarios
Deseo recibir periodicamente ofertas y promociones.
Home  
Equipos  
Insumos  
Servicio técnico  
Mercado  
 
   
Home | Equipos | Insumos | Servicio técnico | Mercado | Contáctenos