CeMPro - Contacto

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% function WA_Universal_Email_1_SendMail(RecipientEmail) dim MailObject, MailAttachments, MailBCC, MailCC, MailTo, MailBodyFormat, MailBody, MailImportance, MailFrom, MailSubject MailAttachments = "" MailBCC = "" MailCC = "" MailTo = "" MailBodyFormat = "" MailBody = "" MailImportance = "" MailFrom = "" & cStr( Request.Form("email")) & "" MailSubject = "Solicitud de Información" 'Global Variables gAddBCC = "" gAddCC = "" gAddRecipient = "" gBodyFormat = "" gSetImportance = "" set WA_MailObject = WAUE_Definition("localhost","25","","contacto@cempro.com.mx","EU05RTG73") if (RecipientEmail <> "") then set WA_MailObject = WAUE_AddRecipient(WA_MailObject,RecipientEmail) MailTo = gAddRecipient gAddRecipient = "" else 'To Entries end if 'Attachment Entries 'BCC Entries set WA_MailObject = WAUE_AddBCC(WA_MailObject,"veraliah.bueno@cempro.com.mx") MailBCC = gAddBCC 'CC Entries MailCC = gAddCC 'Body Format set WA_MailObject = WAUE_BodyFormat(WA_MailObject,1) MailBodyFormat = gBodyFormat 'Set Importance set WA_MailObject = WAUE_SetImportance(WA_MailObject,"3") MailImportance = gSetImportance 'Start Mail Body MailBody = MailBody & "Solicito Información:" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Nombre: " MailBody = MailBody & Request.Form("nombre") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Correo: " MailBody = MailBody & Request.Form("email") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Empresa: " MailBody = MailBody & Request.Form("empresa") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Teléfono: " MailBody = MailBody & Request.Form("telefono") MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "" & vbCrlf & "" MailBody = MailBody & "Comentarios: " MailBody = MailBody & Request.Form("comentarios") MailBody = MailBody & "" 'End Mail Body set WA_MailObject = WAUE_SendMail(WA_MailObject,MailAttachments,MailBCC,MailCC,MailTo,MailImportance,MailFrom,MailSubject,MailBody) set WA_MailObject = nothing end function %> <% if ((Request.ServerVariables("Request_Method") = "POST")) then 'WA Universal Email object="CDOSYS" 'Send Loop Once Per Entry WA_Universal_Email_1_SendMail("contacto@cempro.com.mx") 'Send Mail All Entries if ("mailok.asp"<>"") then Response.Redirect("mailok.asp") end if end if %> CeMPro - Contacto CEMPRO CeMPro - Centro Mexicano de Protección y Fomento de los Derechos de Autor

Información de Contacto

CENTRO MEXICANO DE PROTECCIÓN Y FOMENTO DE LOS DERECHOS DE AUTOR, S.G.C.
Av. Cuauhtémoc 1486 Despacho 601-A, Col. Santa Cruz Atoyac, Deleg. Benito Juárez
C.P. 03310 México, D.F.

Teléfono y Fax (55) 56013528 y (55) 56049856

Correo Electrónico

info@cempro.com.mx

Desea más información ¡Escríbanos!

Seleccione un destinario:

Nombre:

Correo electrónico:

Empresa:

Teléfono:

Comentarios:

Contacto