<%@LANGUAGE="VBSCRIPT"%> <% Dim MATERIALES Dim MATERIALES_cmd Dim MATERIALES_numRows Set MATERIALES_cmd = Server.CreateObject ("ADODB.Command") MATERIALES_cmd.ActiveConnection = MM_Bases_STRING MATERIALES_cmd.CommandText = "SELECT * FROM MATERIALES_GENERAL" MATERIALES_cmd.Prepared = true Set MATERIALES = MATERIALES_cmd.Execute MATERIALES_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 30 Repeat1__index = 0 MATERIALES_numRows = MATERIALES_numRows + Repeat1__numRows %> GOME-Gerencia Operativa de Mantenimiento y Emergencias

materiales

<% While ((Repeat1__numRows <> 0) AND (NOT MATERIALES.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 MATERIALES.MoveNext() Wend %>
Número Domicilio Solicitante Estado
" target="_blank"><%=(MATERIALES.Fields.Item("MAT_NUM").Value)%> <%=(MATERIALES.Fields.Item("EDI_DOMICILIO").Value)%> <%=(MATERIALES.Fields.Item("MAT_SOLICITANTE").Value)%> <%=(MATERIALES.Fields.Item("MAT_ESTADO").Value)%>

 

<% MATERIALES.Close() Set MATERIALES = Nothing %>