<% Response.Buffer = True: Response.Expires = -1 %> OM Data Manager
OM Data Manager

Query:


Resultados:

<% On Error Resume Next If Request.Form("myQuery") <> "" Then myQueryTS = Trim(Request.Form("myQuery")) Set myRSTS = GetConnectionGeneric("db00017", ServerDBName).Execute(myQueryTS) myArrTS = myRSTS.GetRows() %> <% For Each Item In myRSTS.Fields myItemName = Trim(Item.Name) %> <% Next %> <% myRSTS.Close Set myRSTS = Nothing iRecFirst = LBound(myArrTS, 2) iRecLast = UBound(myArrTS, 2) iFieldFirst = LBound(myArrTS, 1) iFieldLast = UBound(myArrTS, 1) myCounter = 1 For myRec = iRecFirst To iRecLast %> <% For myField = iFieldFirst To iFieldLast %> <% Next %> <% myCounter = myCounter + 1 Next End If If Err.Number <> 0 Then Test Err.Description, 0 %>
No.<%= Proper(Replace(myItemName, "_", " ")) %>
<%= myCounter %><%= myArrTS(myField, myRec) %>

Copyright © <%= Year(Date()) %> Soluciones Digitales, S. A., Todos los derechos reservados.