<%@ Language=VBScript %> <% Response.Expires=0 DIM Mailer,NombreParaCC,DirParaCC,NombreParaBCC DIM Subject,Body Nombre = trim(request("Nombre")) Telefono = trim(request("Telefono")) 'email = trim(request("email")) 'if email="" then email="info@datamarkets.com.ar" email="info@datamarkets.com.ar" emailUsuario = trim(request("email")) Abonado = trim(request("Abonado")) Comentario = trim(request("Comentario")) if trim(request("SINO"))<> "" then MailTo = "info@datamarkets.com.ar" NombreTo = "info@datamarkets.com.ar" else MailTo = "info@datamarkets.com.ar" NombreTo = "info@datamarkets.com.ar" Abonado="" end if set Mailer=server.CreateObject("CDONTS.NewMail") Mailer.To = MailTo ' like john.doe@comsoltech.com 'Mailer.FromName = Nombre Mailer.From = email 'Mailer.CharSet = 2 NombreParaCC = "" DirParaCC = "" NombreParaBCC = "" DirParaBCC = "" 'Titulo: Solicitud - ADSL 'Nombre y apellido: xxxxxx 'Teléfono: xxxxx 'E-mail: xxxxx (Campo no obligatorio) 'Número de abonado de Datamarkets: XXXXXX (Campo no obligatorio) 'Comentario: xxxxxx (Campo no obligatorio) Subject = "Solicitud Cablemodem - " & Nombre Body = "Nombre y Apellido: " & Nombre & "
Telefono: " & Telefono & "
E-mail: " & emailUsuario & "
Número de abonado de Datamarkets: " & Abonado & "
Comentario: " & Comentario 'Mailer.Priority = 1 'Mailer.AddRecipient NombreTo , MailTo 'Mailer.AddCC NombreParaCC , DirParaCC 'Mailer.AddBCC NombreParaBCC , DirParaBCC Mailer.Subject = Subject 'Mailer.ContentType = "text/html" Mailer.Body = "" & Body & "" Mailer.BodyFormat = 0 ' 0 = HTML, 1 = Plain Mailer.MailFormat = 0 ' 0 = MIME, 1 = Text Mailer.Importance = 1 ' 0 =High, 1 = Medium, 2 = Low Mailer.Send Set Mailer = Nothing Response.Redirect ("gracias.asp") %>