Formulario de Contacto.

Llenando este formulario podrá recibir periodicamente informaciones referentes a nuevos productos, ofertas y novedades de nuestro medio.
<% ' Por acc=nada, pide datos solamente acc=Request.QueryString("acc") if acc="" then acc=Request.Form("accion") if acc="g" then grabar_email else cargar_email end if %>

<% ' Busca los rubros del tipo de articulo 'function EnviarMail(cRemitente,cDestinatario,cAsunto,cCuerpo) ' Dim correo ' set correo = server.createobject("CDONTS.NewMail") ' if cRemitente = empty then cRemitente="contactos" ' correo.from = cRemitente ' correo.to = "fb@grupotad.com" ' correo.subject = cAsunto ' correo.body = cCuerpo ' correo.send ' set correo = nothing 'end function function grabar_email If Request("Submit") <> "" Then Set Mail = Server.CreateObject("Persits.MailSender") ' enter valid SMTP host strHost = "smtp.ertach.com.ar" Mail.Host = strHost Mail.From = Request.form("email") ' From address Mail.FromName = "Trumar Website" Mail.AddAddress "info@trumar.com.ar" Mail.Username = "info@trumar.com.ar" Mail.Password = "alpa0303" Mail.Subject = "Registración" Mail.Body = "Registración efectuada por:" & chr(10)& chr(13) & Request.form("nombre") & " " & Request.form("apellido") & chr(10) & Request.form("profesion") & chr(10) & Request.form("direccion") & ", " & Request.form("localidad") & ", " & Request.form("codpos") & chr(10) & "TE: " & Request.form("telefono") & chr(10) & "E-Mail: " & Request.form("email") & chr(10) & chr(13) & Request.Form("comentario") strErr = "" bSuccess = False On Error Resume Next ' catch errors Mail.Send ' send message If Err <> 0 Then ' error occurred strErr = Err.Description else bSuccess = True End If End If ' Set Mail = Server.CreateObject("Persits.MailSender") ' Mail.From = request("email") ' Mail.Host = "smtp.ertach.com.ar" ' Mail.Username = "info@trumar.com.ar" ' Mail.Password = "alpa0303" ' Mail.Subject = "Trumar Web Site - Registración" ' Mail.Body = "Mail enviado por:" & chr(10) & Request.form("nombre") & " " & Request.form("apellido") & chr(10) & Request.form("profesion") & chr(10) & Request.form("direccion") & ", " & Request.form("localidad") & ", " & Request.form("codpos") & chr(10) & "TE: " & Request.form("telefono") & chr(10) & "E-Mail: " & Request.form("email") & chr(10) & chr(13) & Request.Form("comentario") ' Mail.Send ' asunto="Trumar Web Site - Registración" ' call Mail(REPLACE(Request.Form("email")," ","_"),_ ' "info@trumar.com.ar",asunto,"Mail enviado por:" & chr(10) & Request.form("nombre") & " " & Request.form("apellido") & chr(10) & Request.form("profesion") & chr(10) & Request.form("direccion") & ", " & Request.form("localidad") & ", " & Request.form("codpos") & chr(10) & "TE: " & Request.form("telefono") & chr(10) & "E-Mail: " & Request.form("email") & chr(10) & chr(13) & Request.Form("comentario")) %>


Muchas gracias por registrarse.
Nos mantendremos en contacto con Ud.


<% set Mail=nothing end function %> <% function cargar_email ' ingresa los datos del mail %>

* Datos Obligatorios


*Nombre:
*Apellido: 
*Dirección: 
*Localidad: 
*Cód.Postal: 
*Telefono: 
*E mail: 
Profesión: 
Comentarios: 
Deseo recibir descuentos y novedades   

  
<% end function%>