<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim PROSPECTOS Dim PROSPECTOS_numRows Set PROSPECTOS = Server.CreateObject("ADODB.Recordset") PROSPECTOS.ActiveConnection = MM_maq_STRING PROSPECTOS.Source = "SELECT * FROM PROSPS ORDER BY COMPANIA" PROSPECTOS.CursorType = 0 PROSPECTOS.CursorLocation = 2 PROSPECTOS.LockType = 1 PROSPECTOS.Open() PROSPECTOS_numRows = 0 %> <% Dim eqs__IDCT eqs__IDCT = "1" If (session("IDCLIENTE") <> "") Then eqs__IDCT = session("IDCLIENTE") End If %> <% Dim eqs Dim eqs_numRows Set eqs = Server.CreateObject("ADODB.Recordset") eqs.ActiveConnection = MM_maq_STRING eqs.Source = "SELECT DISTINCT(COTS.IDMAQUINA), DESCR FROM COTS, MAQUINA WHERE COTS.IDMAQUINA=MAQUINA.IDMAQUINA " eqs.CursorType = 0 eqs.CursorLocation = 2 eqs.LockType = 1 eqs.Open() eqs_numRows = 0 %>

" method="post" name="flt" id="flt"> Filtrar por Cliente <% While (NOT PROSPECTOS.EOF) %> " <%If (Not isNull(Request("IDPROSPECTO"))) Then If (CStr(PROSPECTOS.Fields.Item("IDDBSCTE").Value) = CStr(Request("IDPROSPECTO"))) Then Response.Write("SELECTED") : Response.Write("")%> >(<%=(PROSPECTOS.Fields.Item("IDDBSCTE").Value)%>)<%=LEFT(PROSPECTOS.Fields.Item("COMPANIA").Value,35)%>(<%=(PROSPECTOS.Fields.Item("USERNAM").Value)%>) <% PROSPECTOS.MoveNext() Wend If (PROSPECTOS.CursorType > 0) Then PROSPECTOS.MoveFirst Else PROSPECTOS.Requery End If %>

" method="post" name="flt2" id="flt2"> Filtrar por Equipo <% While (NOT eqs.EOF) %> " <%If (Not isNull(Request("IDMAQUINA"))) Then If (CStr(eqs.Fields.Item("IDMAQUINA").Value) = CStr(Request("IDMAQUINA"))) Then Response.Write("SELECTED") : Response.Write("")%> ><%=(eqs.Fields.Item("DESCR").Value)%> <% eqs.MoveNext() Wend If (eqs.CursorType > 0) Then eqs.MoveFirst Else eqs.Requery End If %>

<% PROSPECTOS.Close() Set PROSPECTOS = Nothing %> <% eqs.Close() Set eqs = Nothing %>