<%@LANGUAGE="VBSCRIPT"%> <% ' *** Restrict Access To Page: Grant or deny access to this page MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE" 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 %> <% 'Ingresa DBS como prospecto segun ID a Cliente if request("inp")<>"" then Set ents = Server.CreateObject("ADODB.Recordset") ents.ActiveConnection = MM_dbslnk_STRING ents.Source = "SELECT CLIENTES.ACUNO, CLIENTES.ASTN1, CLIENTES.ACUNM, CLIENTES.ACUNM2, CLIENTES.ACUAD1, CLIENTES.ACUAD2, CLIENTES.ACUAD3, CLIENTES.AZIPC9, CLIENTES.APHNO, CLIENTES.AEXLCN, CLIENTES.ACUSTS FROM CLIENTES WHERE ACUNO='" + strreplace(request("DBS"),"'","''") + "' " ents.CursorType = 0 ents.CursorLocation = 2 ents.LockType = 1 ents.Open() if ents.EOF then response.Redirect("es.asp?cmd=" +"SELECT CLIENTES.ACUNO, CLIENTES.ASTN1, CLIENTES.ACUNM, CLIENTES.ACUNM2, CLIENTES.ACUAD1, CLIENTES.ACUAD2, CLIENTES.ACUAD3, CLIENTES.AZIPC9, CLIENTES.APHNO, CLIENTES.AEXLCN, CLIENTES.ACUSTS FROM CLIENTES WHERE ACUNO='" + strreplace(request("DBS"),"'","''") + "' ") if not ents.EOF then MM_dbValues ="'" + ents("ACUNO") + "'," MM_dbValues =MM_dbValues + "'" + ents("ASTN1") + "'," MM_dbValues =MM_dbValues + "'" + ents("ACUNM") + ents("ACUNM2")+ "'," MM_dbValues =MM_dbValues + "'" + ents("ACUAD1") + ents("ACUAD2") + ents("ACUAD3") + "'," MM_dbValues =MM_dbValues + "'" + ents("AZIPC9") + "'," MM_dbValues =MM_dbValues + "'" + ents("APHNO") + "'," MM_dbValues =MM_dbValues + "'" + ents("AEXLCN") + "'," + session("IDCLIENTE") MM_editQuery = "insert into PROSPECTOS (IDDBSCTE,ZONA,COMPANIA,DIRECCION,CODIGOPOSTAL,TELEFONO,RFC,VENDEDOR) VALUES (" & MM_dbValues & ")" MM_abortEdit=false If (Not MM_abortEdit) Then ' execute the insert Set MM_editCmd = Server.CreateObject("ADODB.Command") MM_editCmd.ActiveConnection = MM_maq_STRING MM_editCmd.CommandText = MM_editQuery MM_editCmd.Execute MM_editCmd.ActiveConnection.Close response.Redirect("prosp.asp") End if end if 'fin ents.oof end if %> www.promad.com.mx
 
" method="post" name="sf" onSubmit="MM_validateForm('DBS','','R');return document.MM_returnValue">
a)Escriba un Nombre:
Seleccione un cliente de el listado que aparece arriba y presione Ingresar.