<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
 
<!--#include file="Connections/maq.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="ADMIN,VENDEDOR,GERENTE,RESP_ZONA"
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
%>
<!--#include file="Connections/calendario.asp" -->
<%
' *** Edit Operations: declare variables

Dim MM_editAction
Dim MM_abortEdit
Dim MM_editQuery
Dim MM_editCmd

Dim MM_editConnection
Dim MM_editTable
Dim MM_editRedirectUrl
Dim MM_editColumn
Dim MM_recordId

Dim MM_fieldsStr
Dim MM_columnsStr
Dim MM_fields
Dim MM_columns
Dim MM_typeArray
Dim MM_formVal
Dim MM_delim
Dim MM_altVal
Dim MM_emptyVal
Dim MM_i

MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Request.QueryString
End If

' boolean to abort record edit
MM_abortEdit = false

' query string to execute
MM_editQuery = ""
%>
<%
' *** Insert Record: set variables

If (CStr(Request("MM_insert")) = "form2") Then

  MM_editConnection = MM_maq_STRING
  MM_editTable = "CONTACTOS"
  MM_editRedirectUrl = ""
  MM_fieldsStr  = "AHORA|value|TIPO|value|FECHA|value|COTIZACION|value|HORA|value|IDPROSPECTO|value|IDSTATUS|value|EVALUACION|value|IDCLIENTE|value|COMENTARIO|value"
  MM_columnsStr = "AHORA|',none,NULL|TIPO|none,none,NULL|FECHA|',none,NULL|COTIZACION|none,none,NULL|HORA|',none,NULL|IDPROSPECTO|none,none,NULL|IDSTATUS|none,none,NULL|EVALUACION|none,none,NULL|IDCLIENTE|none,none,NULL|COMENTARIO|',none,''"

  ' create the MM_fields and MM_columns arrays
  MM_fields = Split(MM_fieldsStr, "|")
  MM_columns = Split(MM_columnsStr, "|")
  
  ' set the form values
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_fields(MM_i+1) = CStr(Request.Form(MM_fields(MM_i)))
  Next

  ' append the query string to the redirect URL
  If (MM_editRedirectUrl <> "" And Request.QueryString <> "") Then
    If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0 And Request.QueryString <> "") Then
      MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
    Else
      MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
    End If
  End If

End If
%>
<%
' *** Insert Record: construct a sql insert statement and execute it

Dim MM_tableValues
Dim MM_dbValues

If (CStr(Request("MM_insert")) <> "") Then

  ' create the sql insert statement
  MM_tableValues = ""
  MM_dbValues = ""
  For MM_i = LBound(MM_fields) To UBound(MM_fields) Step 2
    MM_formVal = MM_fields(MM_i+1)
    MM_typeArray = Split(MM_columns(MM_i+1),",")
    MM_delim = MM_typeArray(0)
    If (MM_delim = "none") Then MM_delim = ""
    MM_altVal = MM_typeArray(1)
    If (MM_altVal = "none") Then MM_altVal = ""
    MM_emptyVal = MM_typeArray(2)
    If (MM_emptyVal = "none") Then MM_emptyVal = ""
    If (MM_formVal = "") Then
      MM_formVal = MM_emptyVal
    Else
      If (MM_altVal <> "") Then
        MM_formVal = MM_altVal
      ElseIf (MM_delim = "'") Then  ' escape quotes
        MM_formVal = "'" & strreplace(left(MM_formVal,2048),"'","''") & "'"
      Else
        MM_formVal = MM_delim + left(MM_formVal,2048) + MM_delim
      End If
    End If
    If (MM_i <> LBound(MM_fields)) Then
      MM_tableValues = MM_tableValues & ","
      MM_dbValues = MM_dbValues & ","
    End If
    MM_tableValues = MM_tableValues & MM_columns(MM_i)
    MM_dbValues = MM_dbValues & MM_formVal
  Next
  MM_editQuery = "insert into " & MM_editTable & " (" & MM_tableValues & ") values (" & MM_dbValues & ")"

  If (Not MM_abortEdit) Then
    ' execute the insert
    Set MM_editCmd = Server.CreateObject("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_editConnection
    MM_editCmd.CommandText = MM_editQuery
	'response.Redirect("es.asp?cmd="+MM_editQuery)
    MM_editCmd.Execute
	MM_editQuery="UPDATE PROSPECTOS SET STATUS=" + request("IDSTATUS") + ",ULTIMOAC='" + CSTR(date()) + "' WHERE IDCLIENTE=" + request("IDPROSPECTO")
    MM_editCmd.CommandText = MM_editQuery
    MM_editCmd.Execute


    MM_editCmd.ActiveConnection.Close

    If (MM_editRedirectUrl <> "") Then
      Response.Redirect(MM_editRedirectUrl)
    End If
  End If

End If
%>
<%
Dim ents__IDVDDOR
ents__IDVDDOR = "-1"
If (request("IDCLIENTE") <> "") Then 
  ents__IDVDDOR = request("IDCLIENTE")
End If
%>
<%
Dim ents__varcte
ents__varcte = ""
If (request("id")<> "") Then 
  ents__varcte = " IDPROSPECTO=" + request("id")  + " and "
End If
%>
<%
Dim ents__cfecha
ents__cfecha = "01/01/04"
If (dtCurrentDate <> "") Then 
  ents__cfecha = dtCurrentDateMy
End If
%>
<%
Dim ents
Dim ents_numRows

Set ents = Server.CreateObject("ADODB.Recordset")
ents.ActiveConnection = MM_maq_STRING
ents.Source = "SELECT PROSPECTOS.COMPANIA,CONTACTOS.IDX,CONTACTOS.IDCOT, CONTACTOS.IDCONTACTO, TIPOC.NOMBRE AS TIPO, CONTACTOS.FECHA as ""FECHA<BR>MM-DD-AA"", CONTACTOS.COMENTARIO, CONTACTOS.COTIZACION, CONTACTOS.HORA, STATUS.NOMBRE AS STATUS, CONTACTOS.EVALUACION  FROM (STATUS INNER JOIN (TIPOC INNER JOIN CONTACTOS ON TIPOC.IDTIPO = CONTACTOS.TIPO) ON STATUS.IDSTATUS = CONTACTOS.IDSTATUS ) INNER JOIN PROSPECTOS ON CONTACTOS.IDPROSPECTO = PROSPECTOS.IDCLIENTE WHERE  " + strreplace(ents__varcte, "'", "''") + "  CONTACTOS.FECHA='" + strreplace(ents__cfecha, "'", "''") + "' AND CONTACTOS.IDCLIENTE=" + strreplace(ents__IDVDDOR, "'", "''") + " ORDER BY CONTACTOS.IDCONTACTO DESC"
ents.CursorType = 0
ents.CursorLocation = 2
ents.LockType = 1
ents.Open()

ents_numRows = 0
%>
<%
Dim tp
Dim tp_numRows

Set tp = Server.CreateObject("ADODB.Recordset")
tp.ActiveConnection = MM_maq_STRING
tp.Source = "SELECT NOMBRE, IDTIPO  FROM TIPOC"
tp.CursorType = 0
tp.CursorLocation = 2
tp.LockType = 1
tp.Open()

tp_numRows = 0
%>
<%
Dim st
Dim st_numRows

Set st = Server.CreateObject("ADODB.Recordset")
st.ActiveConnection = MM_maq_STRING
st.Source = "SELECT *  FROM STATUS"
st.CursorType = 0
st.CursorLocation = 2
st.LockType = 1
st.Open()

st_numRows = 0
%>
<%
Dim PROSPECTOS__IDVDDOR
PROSPECTOS__IDVDDOR = "-1"
If (request("IDCLIENTE") <> "") Then 
  PROSPECTOS__IDVDDOR = request("IDCLIENTE")
End If
%>
<%
Dim PROSPECTOS
Dim PROSPECTOS_numRows

Set PROSPECTOS = Server.CreateObject("ADODB.Recordset")
PROSPECTOS.ActiveConnection = MM_maq_STRING
PROSPECTOS.Source = "SELECT NOMBRE, IDCLIENTE, IDDBSCTE,COMPANIA  FROM PROSPECTOS  WHERE VENDEDOR=" + strreplace(PROSPECTOS__IDVDDOR, "'", "''") + "  ORDER BY COMPANIA"
PROSPECTOS.CursorType = 0
PROSPECTOS.CursorLocation = 2
PROSPECTOS.LockType = 1
PROSPECTOS.Open()

PROSPECTOS_numRows = 0
%>
<%
Dim av
Dim av_numRows

Set av = Server.CreateObject("ADODB.Recordset")
av.ActiveConnection = MM_maq_STRING
av.Source = "SELECT * FROM AVISOS"
av.CursorType = 0
av.CursorLocation = 2
av.LockType = 1
av.Open()

av_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 30
Repeat1__index = 0
ents_numRows = ents_numRows + Repeat1__numRows
%>
<% 
dim SZ()
dim DT()
dim head()
dim cpos()
KEYFL="IDX"
imgfld="COTIZACION"
oclt="IDCONTACTO,EVALUACION,IDCOT,IDX"
redim SZ(ents.Fields.Count)
redim DT(ents.Fields.Count)
redim head(ents.Fields.Count)
redim cpos(ents.Fields.Count)

			for n=0 to ents.Fields.Count-1

                               SZ(n)= cstr(ents.Fields.Item(n).DefinedSize )

							   DT(n)= cstr(ents.Fields.Item(n).Type )
								head(n)=cstr(ents.Fields.Item(n).name)
								cpos(n)=cstr(ents.Fields.Item(n).name)


            next %>
			<%rem  response.Redirect("es.asp?cmd="+cpos(4))%>
<html>
<head>
<title>www.promad.com.mx</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<link rel="stylesheet" href="styles/regular.css" type="text/css">
<script type=text/javascript>
function noe() {
  return !(window.event && window.event.keyCode == 13); }
</script>
<script language="JavaScript">
<!--
<!--
function MM_reloadPage(init) {  //reloads the window if Nav4 resized
  if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
    document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
  else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);

// -->

function MM_goToURL() { //v3.0
  var i, args=MM_goToURL.arguments; document.MM_returnValue = false;
  for (i=0; i<(args.length-1); i+=2) eval(args[i]+".location='"+args[i+1]+"'");
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_validateForm() { //v4.0
  var i,p,q,nm,test,num,min,max,errors='',args=MM_validateForm.arguments;
  for (i=0; i<(args.length-2); i+=3) { test=args[i+2]; val=MM_findObj(args[i]);
    if (val) { nm=val.name; if ((val=val.value)!="") {
      if (test.indexOf('isEmail')!=-1) { p=val.indexOf('@');
        if (p<1 || p==(val.length-1)) errors+='- '+nm+' must contain an e-mail address.\n';
      } else if (test!='R') { num = parseFloat(val);
        if (isNaN(val)) errors+='- '+nm+' must contain a number.\n';
        if (test.indexOf('inRange') != -1) { p=test.indexOf(':');
          min=test.substring(8,p); max=test.substring(p+1);
          if (num<min || max<num) errors+='- '+nm+' must contain a number between '+min+' and '+max+'.\n';
    } } } else if (test.charAt(0) == 'R') errors += '- '+nm+' is required.\n'; }
  } if (errors) alert('The following error(s) occurred:\n'+errors);
  document.MM_returnValue = (errors == '');
}
//-->
</script>
</head>
<body bgcolor="#FFFFFF" text="#000000" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
<!--#include file="menu.asp" -->
<table width="100%" border="0" cellspacing="0" cellpadding="0" leftMargin=0 topMargin=0 marginheight="0" marginwidth="0">
  <tr> 
    <td>&nbsp; </td>
  </tr>
  <tr> 
    <td> <table border="0" cellspacing="0" cellpadding="0" height="208">
        <tr> 
          <td width="623" align="left" valign="top" class="grbllines"> <DIV id=theFormDiv> 
              <table width="100%" border="0" cellpadding="0" cellspacing="10" class="arialsmall">
                <tr>
                  <td colspan="2" class="header3"><a href="manual/manual.asp?v=agenda" target="_blank"><img src="images/help.gif" width="23" height="23" border="0" align="right"></a>Avisos:<br>
                    <% if not av.Eof  then ' Adv Conditional Region %> <%=(av.Fields.Item("TEXTO1").Value)%> <% end if 'not av.Eof %> </td>
                </tr>
                <tr> 
                  <td colspan="2" class="header3">AGENDA DE TRABAJO <%=SESSION("NOMBRE") %><span class="contenido"> (<%=session("email") %>)&nbsp; </span></td>
                </tr>
                <tr> 
                  <td colspan="2" class="inset"> <form action="<%=MM_editAction%>" method="post" name="form2" onSubmit="MM_validateForm('FECHA','','R','COMENTARIO','','R');return document.MM_returnValue">
                      <table align="center" class="arialsmall">
                        <tr valign="baseline"> 
                          <td width="80" align="right" nowrap><div align="center">TIPO</div></td>
                          <td width="93"><div align="center">STATUS</div></td>
                          <td width="245"><div align="left"><span class="contenido"> 
                              PROSPECTO 
                              <input name="Button" type="button" class="invisible" onClick="MM_goToURL('parent','nprosp.asp');return document.MM_returnValue" value="Agregar Prospectos">
                              <input name="FECHA" type="hidden" class="arialsmall" value="<%=dtCurrentDateMy %>" size="15">
                              </span></div></td>
                          <td width="245">HORA:FECHA (<%=dtCurrentDate %>)</td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"><select name="TIPO" class="arialsmall">
                              <%
While (NOT tp.EOF)
%>
                              <option value="<%=(tp.Fields.Item("IDTIPO").Value)%>"><%=(tp.Fields.Item("NOMBRE").Value)%></option>
                              <%
  tp.MoveNext()
Wend
If (tp.CursorType > 0) Then
  tp.MoveFirst
Else
  tp.Requery
End If
%>
                            </select> </td>
                          <td><span class="contenido"> 
                            <select name="IDSTATUS" class="arialsmall" id="select" style="display:none">
                              <%
While (NOT st.EOF)
%>
                              <option value="<%=(st.Fields.Item("IDSTATUS").Value)%>" <%If (Not isNull("2")) Then If (CStr(st.Fields.Item("IDSTATUS").Value) = CStr("2")) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(st.Fields.Item("NOMBRE").Value)%></option>
                              <%
  st.MoveNext()
Wend
If (st.CursorType > 0) Then
  st.MoveFirst
Else
  st.Requery
End If
%>
                            </select>
                            <br>
                            </span> </td>
                          <td><span class="contenido"> 
                            <select name="IDPROSPECTO" id="IDPROSPECTO">
                              <%
While (NOT PROSPECTOS.EOF)
%>
                              <option value="<%=(PROSPECTOS.Fields.Item("IDCLIENTE").Value)%>" <%If (Not isNull(Request("ID"))) Then If (CStr(PROSPECTOS.Fields.Item("IDCLIENTE").Value) = CStr(Request("ID"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(PROSPECTOS.Fields.Item("COMPANIA").Value)%></option>
                              <%
  PROSPECTOS.MoveNext()
Wend
If (PROSPECTOS.CursorType > 0) Then
  PROSPECTOS.MoveFirst
Else
  PROSPECTOS.Requery
End If
%>
                            </select>
                            </span></td>
                          <td><select name="HORA" id="HORA">
                              <% for yu=1 to 24 %>
                              <option value="<%=cstr(yu)+":00" %>" <%if yu=8 then response.Write("selected") %>><%=cstr(yu)+":00" %></option>
                              <% next %>
                            </select></td>
                        </tr>
                        <tr> 
                          <td nowrap align="right" valign="top">COMENTARIO: </td>
                          <td colspan="3" valign="baseline"> <textarea name="COMENTARIO" cols="50" rows="5"></textarea> 
                          </td>
                        </tr>
                        <tr valign="baseline"> 
                          <td nowrap align="right"><input type="hidden" name="COTIZACION" value="0" size="32"> 
                            <input type="hidden" name="MM_insert" value="form2"> 
                          </td>
                          <td><input name="currentDate" type="hidden" id="currentDate" value="<%=request("currentDate") %>"> 
                            <span class="contenido"> 
                            <input type="hidden" name="IDCLIENTE" value="<%=request("IDCLIENTE") %>" size="32">
                            <input name="AHORA" type="hidden" id="AHORA" value="<%=dtCurrentDateMy+ " " + formatdatetime(NOW,4) %>">
                            </span> </td>
                          <td><div align="right"> 
                              <% if NOT PROSPECTOS.EOF  then ' Adv Conditional Region %>
                              <input name="submit" type="submit" class="arialsmall" value="Ingresar Cita de HOY">
                              <% end if 'NOT PROSPECTOS.EOF %>
                            </div></td>
                          <td>&nbsp;</td>
                        </tr>
                      </table>
                    </form></td>
                </tr>
                <tr> 
                  <td colspan="2" class="header3">Resumen de Contactos</td>
                </tr>
                <tr> 
                  <td colspan="2" class="inset"><TABLE CELLPADDING=0 CELLSPACING=0 WIDTH=600 BORDER=0>
                      <TR> 
                        <TD CLASS="fondotbl"> <TABLE CELLSPACING=1 CELLPADDING=1 BORDER=0 WIDTH=600>
                            <TR HEIGHT=30px> 
                              <TD CLASS="names" HEIGHT=30px COLSPAN=7> <form action="<%=request.ServerVariables("URL") %>" name="pageForm">
                                  <div align="center"> 
                                    <p><A HREF="<%=request.ServerVariables("URL") %>?currentDate=<%= strPrevMonth %>&idcliente=<%=request("idcliente") %>">&laquo; 
                                      Anterior</A>&nbsp; &nbsp; 
                                      <SELECT NAME="currentDate" CLASS="menu" onChange="pageForm.submit()">
                                        <% For counter = 1 to 12 %>
                                        <OPTION VALUE="<%= DateSerial(Year(dtCurrentDate), counter, 1) %>" <% If (DatePart("m", dtCurrentDate) = counter) Then Response.Write "SELECTED"%>><%= MonthName(counter) & " " & Year(dtCurrentDate) %></OPTION>
                                        <% Next %>
                                      </SELECT>
                                      &nbsp; <a href="<%=request.ServerVariables("URL") %>?currentDate=<%= strNextMonth %>&idcliente=<%=request("idcliente") %>">Siguiente 
                                      &raquo;</a> </p>
                                  </div>
                                </form>
                                &nbsp;</TD>
                            </TR>
                            <!-- Writing the days of the week for headers -->
                            <TR VALIGN="TOP" ALIGN="CENTER"> 
                              <% For iDay = vbSunday To vbSaturday %>
                              <TD WIDTH="14%" class="otrodia"><%= WeekDayName(iDay, True) %>.</TD>
                              <% Next %>
                            </TR>
                            <%
   
    For iWeek = 1 To iRows
      Response.Write "<TR VALIGN=TOP>"
      For iDay = 1 To iColumns
	' Checks to see if there is a day this month on the date being written
	If aCalendarDays((iWeek-1)*7 + iDay) > 0 then
	  dtOnDay = DateSerial(Year(dtCurrentDate), Month(dtCurrentDate), aCalendarDays((iWeek-1)*7 + iDay))

	  ' Checks to see if the day being printed is today
	  If dtOnDay = dtToday Then
	    Response.Write "<TD HEIGHT=55 CLASS='hoy'>"
 	  Else
   	    Response.Write "<TD HEIGHT=55 CLASS='otrodia'>"
 	  End If

	  ' Checks to see the type of calendar (editable or non-editable)
 	   If (bolEditable) then
   	    strPage = "contactosdt.asp?idcliente="+request("idcliente")+"&currentDate=" & dtOnDay
 	  Else
   	    strPage = "contactosdt.asp?"+request("id")+"&currentDate=" & dtOnDay
	  End If
dtOnDayMy=cstr(datepart("yyyy",dtOnDay))+"/" +cstr(datepart("m",dtOnDay))+"/" +cstr(datepart("d",dtOnDay))
	  ' Checks for a message on the day being written
	  Set objRS = Server.CreateObject("ADODB.Recordset")
	  strSQL = "SELECT CONTACTOS.IDX,CONTACTOS.IDCOT, CONTACTOS.IDCONTACTO, TIPOC.NOMBRE AS TIPO, CONTACTOS.FECHA, CONTACTOS.COMENTARIO, CONTACTOS.COTIZACION, CONTACTOS.HORA, STATUS.NOMBRE AS STATUS, CONTACTOS.EVALUACION  FROM STATUS INNER JOIN (TIPOC INNER JOIN CONTACTOS ON TIPOC.IDTIPO = CONTACTOS.TIPO) ON STATUS.IDSTATUS = CONTACTOS.IDSTATUS  WHERE " + ents__varcte + " CONTACTOS.FECHA= '" & dtOnDayMy & "' AND CONTACTOS.IDCLIENTE=" + strreplace(ents__IDVDDOR, "'", "''") + " ORDER BY CONTACTOS.IDCONTACTO DESC"
	  objRS.ActiveConnection = MM_maq_STRING
	  objRS.source = strSQL
	  objRS.open
	  
	  If NOT objRS.EOF Then 
	    dailyMsg = objRS("COMENTARIO")
	   Else 
	    dailyMsg = ""
		
	  End If
	  Set objRS = Nothing

	  ' Checks to see if the message is too long to be displayed in the mini date box
          If (Trim(dailyMsg) = Trim(Left(dailyMsg, intCharToShow))) Then
	  Else 
	     dailyMsg = Trim(Left(dailyMsg, intCharToShow-4)) & " ..."
          End If

 	  Response.Write ("<A HREF=""" & strPage & """ class=""ligacd"">&nbsp;" & aCalendarDays((iWeek-1)*7 + iDay) & "<BR>&nbsp;&nbsp;" & FormatStr(dailyMsg) & "</A>")
	Else 
	  Response.Write ("<TD HEIGHT=50 CLASS='noesdia'>&nbsp;")
	End IF

	Response.Write "</TD>"
      Next
      Response.Write "</TR>"
    Next

    
%>
                          </TABLE></TD>
                      </TR>
                    </TABLE></td>
                </tr>
                <tr> 
                  <td colspan="2" class="header2">Contactos del Dia de Hoy</td>
                </tr>
                <tr> 
                  <td colspan="2" class="inset"> <table width="100%"  border="0" cellpadding="1" cellspacing="1" class="arialsmall">
                      <TR class="header2"> 
                        <td> <% if session("ACTIVO")="1" then ' Adv Conditional Region %> <% end if ' session("ACTIVO")="1" %> </td>
                        <%for i=0 to Ubound(head)%>
                        <% if instr(oclt,head(i))<=0  then %>
                        <td><%=head(i) %></td>
                        <%end if %>
                        <% next %>
                      </tr>
                      <% 

While ((Repeat1__numRows <> 0) AND (NOT ents.EOF)) 

%>
                      <TR class="<%

If (Repeat1__numRows Mod 2) Then

	Response.Write("inset")

Else

	Response.Write("arialsmall")

End IF

%>" > 
                        <td bgcolor="#DDDDDD"> 
                          <% if ents("COTIZACION")="1"  then ' Adv Conditional Region %> <a href="listcots.asp?idc=<%=ents(KEYFL) %>" target="_blank"><img src="images/det.gif" width="36" height="22" border="0"></a> 
                          <% end if 'ents("COTIZACION")="1" %> </td>
                        <%for i=0 to Ubound(head)-1%>
                        <% if instr(oclt,head(i))<=0  then %>
                        <td bgcolor="<%

If (i Mod 2) Then

	Response.Write("#EEEEEE")

Else

	Response.Write("#DDDDDD")

End IF

%>" ><%IF cpos(i)=imgfld then response.write ("<img src=""images/" +cstr(ents(cpos(i))) + ".gif"" border=""0"" align=""middle"">"  ) else RESPONSE.WRITE(ents(cpos(i))) %></td>
                        <% end if %>
                        <% next %>
                      </tr>
                      <tr> 
                        <td bgcolor="#666666" height="2" colspan="<%=Ubound(head)+2 %>"></td>
                      </tr>
                      <% 

  Repeat1__index=Repeat1__index+1

  Repeat1__numRows=Repeat1__numRows-1

  ents.MoveNext()

Wend

%>
                    </table></td>
                </tr>
                <tr> 
                  <td >&nbsp;</td>
                  <td> </td>
                </tr>
              </table>
            </div></td>
          <td width="58" align="center" valign="top" bgcolor="#000000"> <div align="center"><br>
              <img src="images/solocat.gif" width="50" height="32"><br>
              <br>
            </div></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
  <tr> 
    <td>&nbsp;</td>
  </tr>
</table>
</body>
</html>
<%
ents.Close()
Set ents = Nothing
%>
<%
tp.Close()
Set tp = Nothing
%>
<%
st.Close()
Set st = Nothing
%>
<%
PROSPECTOS.Close()
Set PROSPECTOS = Nothing
%>
<%
av.Close()
Set av = Nothing
%>