<%@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
noe=""
inp=split (request("DBS"),vbcrlf)
for yu=0 to ubound(inp)
Set Cs = Server.CreateObject("ADODB.Recordset")
Cs.ActiveConnection = MM_maq_STRING
Cs.Source = "SELECT * FROM PROSPECTOS WHERE IDDBSCTE='" + strreplace(TRIM(inp(yu)),"'","''") + "' AND VENDEDOR=" + session("IDCLIENTE")
Cs.Open()
'IF NOT Cs.Eof then response.Redirect("cx.asp?pr=Este cliente ya fue asignado a usted u otro vendedor revise su lista de prospectos")
if cs.EOF then 'Evita insertar clientes ya agregados
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(TRIM(inp(yu)),"'","''") + "' "
ents.CursorType = 0
ents.CursorLocation = 2
ents.LockType = 1
ents.Open()
if ents.EOF then noe=noe+","+ inp(yu)
'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(inp(yu),"'","''") + "' ")
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 'Evita clientes ya agregados
next 'para varios
end if
%>
www.promad.com.mx
