.: Dr. Morales y Asoc :.

<%@ LANGUAGE = VBScript%><% response.buffer=true%> .: Dr. Morales y Asoc :. <% StrSendMail = Request.Form("StrSendMail") If StrSendMail = "true" Then UsrEmail="contactenos@toc.com" LstDistrto="omorales@moralestoc.com" 'LstDistrto="carlos@euphorianet.com" LstDistrCC= TxtMail MailSubject="Contacto" MsgBody = "Nombre: " + Request.Form("TxtNombre") + String(1,Chr(10)) MsgBody = MsgBody + "Empresa: " + Request.Form("TxtEmpresa") + String(1,Chr(10)) MsgBody = MsgBody + "Puesto: " + Request.Form("TxtPuesto") + String(1,Chr(10)) MsgBody = MsgBody + "Info Empleados: " + Request.Form("TxtInfoEmp") + String(1,Chr(10)) MsgBody = MsgBody + "Total: " + Request.Form("TxtTotal") + String(1,Chr(10)) MsgBody = MsgBody + "Direccion: " + Request.Form("TxtDireccion") + String(1,Chr(10)) MsgBody = MsgBody + "TelŽfono: " + Request.Form("TxtTelefono") + String(1,Chr(10)) MsgBody = MsgBody + "Ciudad: " + Request.Form("TxtCiudad") + String(1,Chr(10)) MsgBody = MsgBody + "Estado: " + Request.Form("TxtEstado") + String(1,Chr(10)) MsgBody = MsgBody + "EMail: " + Request.Form("TxtEMail") + String(1,Chr(10)) MsgBody = MsgBody + "Comentarios: " + Request.Form("TxtComentarios") + String(2,Chr(10)) Call SendEmail(UsrEmail,LstDistrTo,LstDistrCC,MailSubject,MsgBody) %> <% End if %>

Nombre:

"> *

Empresa:

"> *

Puesto:

"> *

Giro de la Empresa

# Total de Empleados:

Telefono:

"> *

Dirección:

Ciudad:

Estado:

Cuenta de Mail:

"> *

Comentarios:

Nuestras oficinas están ubicadas en : LAZARO GARZA AYALA #178 COL. LA MONTAÑA
GARZA GARCIA N.L. C.P. 66240 MEXICO. TEL: 52 (8) 338-35-22 FAX: 52 (8) 338-35-23

E-MAIL: omorales@moralestoc.com