www.promad.com.mx

<%@LANGUAGE="VBSCRIPT"%> <% Dim ents__idcf ents__idcf = "-1" If (request("id") <> "") Then ents__idcf = request("id") End If %> <% Dim ents Dim ents_numRows Set ents = Server.CreateObject("ADODB.Recordset") ents.ActiveConnection = MM_maq_STRING ents.Source = "SELECT CLAVE, DESCR FROM COTDET WHERE IDMAQUINA=" + strreplace(ents__idcf, "'", "''") + "" ents.CursorType = 0 ents.CursorLocation = 2 ents.LockType = 1 ents.Open() ents_numRows = 0 %> <% Dim eq__vidma eq__vidma = "-1" If (request("id") <> "") Then eq__vidma = request("id") End If %> <% Dim eq Dim eq_numRows Set eq = Server.CreateObject("ADODB.Recordset") eq.ActiveConnection = MM_maq_STRING eq.Source = "SELECT FECHA, CLAVE, MAQUINA, DESCR FROM MAQUINA WHERE IDMAQUINA=" + strreplace(eq__vidma, "'", "''") + "" eq.CursorType = 0 eq.CursorLocation = 2 eq.LockType = 1 eq.Open() eq_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="" imgfld="STATUS" oclt="" 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))%> www.promad.com.mx

<% if not eq.EOF then ' Adv Conditional Region %> <% end if 'not eq.EOF %>

Configuración de Equipo:

<%=(eq.Fields.Item("MAQUINA").Value)%>:<%=(eq.Fields.Item("DESCR").Value)%>:<%=(eq.Fields.Item("FECHA").Value)%>:<%=(eq.Fields.Item("CLAVE").Value)%>:

<%for i=0 to Ubound(head)%> <% if instr(oclt,head(i))<=0 then %> <%end if %> <% next %> <% While ((Repeat1__numRows <> 0) AND (NOT ents.EOF)) %> " > <%for i=0 to Ubound(head)-1%> <% if instr(oclt,head(i))<=0 then %> <% end if %> <% next %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ents.MoveNext() Wend %>

<% if session("ACTIVO")="1" then ' Adv Conditional Region %> <% end if ' session("ACTIVO")="1" %>	<%=head(i) %>
<% if KEYFL<>"" then %> <% end if %>	" ><%IF cpos(i)=imgfld then response.write ("" ) else RESPONSE.WRITE(cval) %>

<% ents.Close() Set ents = Nothing %> <% eq.Close() Set eq = Nothing %>