<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="ADMIN" MM_authFailedURL="login.asp" MM_grantAccess=false If Session("MM_Username") <> "" Then If (false Or CStr(Session("MM_UserAuthorization"))="") Or _ (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then MM_grantAccess = true End If End If If Not MM_grantAccess Then MM_qsChar = "?" If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&" MM_referrer = Request.ServerVariables("URL") if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString() MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer) Response.Redirect(MM_authFailedURL) End If %> <% if (cStr(Request("posted")) <> "") Then Dim objCDO Set objCDO = Server.CreateObject("CDONTS.NewMail") objCDO.From = "crm@promad.com.mx" objCDO.To = request("EMAIL") objCDO.CC = "" objCDO.BodyFormat=0 objCDO.Subject = "Envío de Cuenta de Acceso a Sistema www.promad.com.mx" objCDO.Body = "Saludos " + request("NOMBRE") +"

" + "Aquí esta la información necesaria para accesar al Sistema de Ventas PROMAD.
http://www.promad.com.mx/crm
" + chr(10) + chr(13) + chr(10) + chr(13) + " Por favor memorice sus datos y elimine este correo

" + chr(10) + chr(13) + "Preguntas y soporte support@xnet.com.mx" + chr(10) + chr(13) + chr(10) + chr(13) + "
Usuario:" + request("USUARIO") +"
" + "Password:" + request("PASSWORD") + "

" + "Servicio Proveído por http://xnet.com.mx." objCDO.Send() Set objCDO = Nothing 'Response.Redirect("users.asp") End If %> <% Dim passwf__IDCT passwf__IDCT = "1" if (request("id") <> "") then passwf__IDCT = request("id") %> <% set passwf = Server.CreateObject("ADODB.Recordset") passwf.ActiveConnection = MM_maq_STRING passwf.Source = "SELECT * FROM USUARIOSCRM WHERE IDCLIENTE=" + strreplace(passwf__IDCT, "'", "''") + "" passwf.CursorType = 0 passwf.CursorLocation = 2 passwf.LockType = 3 passwf.Open() passwf_numRows = 0 %> Enviar password <% if request("posted")="" then ' Adv Conditional Region %>
" class="medium">
   

Esta seguro que desea enviar La Contraseña del Usuario <%=(passwf.Fields.Item("NOMBRE").Value)%>
al Correo Electronico:<%=(passwf.Fields.Item("EMAIL").Value)%> "> "> ">

">  
   
<% end if ' not passwf.EOF and REQUEST("submit")="" %> <% if request("posted")<>"" then ' Adv Conditional Region %> Password Enviado. Recuerde que si la direccion de Email que puso en el sistema es incorrecta el correo electronico no llegara a su destino, revise detenidamente la direccion de email si su cliente no recibe el password

Cerrar Ventana <% end if ' request("posted")<>"" %> <% passwf.Close() %>