<% norit = request.QueryString("norit") if(norit=8) then nombre = request.QueryString("nombre") tel = request.QueryString("tel") correo = request.QueryString("correo") comentario = request.QueryString("comentario") 'response.Write(nombre&tel&correo&comentario) dim mailFormat,mailTo,mailCc,mailFrom,mailSubject,mailBody,cdoConfig,oMail,cdoMessage Sub MandaEmail(mailTo,mailFrom,mailSubject,mailBody,mailFormat) Dim Mail dim iconf dim flds Set Mail = Server.CreateObject("CDO.Message") 'Configuración del servidor SMTP Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusing") = 2 'Send the message using the network (SMTP over the network). Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserver") = "mail.sensotek.com.mx" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpserverport") = 25 Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpusessl") = False 'Use SSL for the connection (True or False) Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpconnectiontimeout") = 60 'configuración de Cuenta de correo saliente Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/smtpauthenticate") = 1 'basic (clear-text) authentication Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendusername") ="paraformulario@sensotek.com.mx" Mail.Configuration.Fields.Item ("http://schemas.microsoft.com/cdo/configuration/sendpassword") ="123321" Mail.Configuration.Fields.Update Mensaje = trim(mailBody) Destino = trim(mailTo) 'Destino = "navarretetg@gmail.com" Mail.From = Trim(mailFrom) Mail.To = Destino 'Mail.Cc = Trim(mailCc) Mail.Subject = Trim(mailSubject) Mail.TextBody = Mensaje Mail.Send Set Mail = nothing End sub 'cliente mailFormat = 0 mailTo = correo 'mailCc = "juancholin@hotmail.com" mailFrom = "paraformulario@sensotek.com.mx"'"jfalsonso@internetworks.com.mx" 'correoremitente mailSubject = "SENSOTEK" mailBody = "Le agradece" & nombre & vbcrlf & "En breve un asesor de venta se comunicara con usted, Mil Gracias" MandaEmail mailTo, mailFrom, mailSubject, mailBody, mailFormat', mailCc 'spas mailFormat = 0 mailTo = "asesoriayventas@sensotek.com.mx" mailFrom = "paraformulario@sensotek.com.mx"'"jfalsonso@internetworks.com.mx" 'correoremitente mailSubject = "Se ha generado un nuevo registro" mailBody = "Con los siguientes datos" & vbcrlf & "Nombre:" & nombre & "Teléfono:" & tel & "
E-Mail" & correo & vbcrlf & "
Comentario:" & tel MandaEmail mailTo, mailFrom, mailSubject, mailBody, mailFormat', mailCc %>

En breve nos comunicaremos
con usted Mil Gracias

<% end if'termina contacto %>