<%objRS.MoveFirst
cont=0
While Not objRS.EOF%>
<%For X = 0 To objRS.Fields.Count - 1%>
<% 'COLORES DE FONDO%>
<% if x = 0 then %>
<%if cont = 0 then%>
|
<%else%>
<%if cont = 1 then%>
|
<%else%>
<%if cont = 4 or cont = 5 then%>
|
<%else%>
|
<%end if%>
<%end if%>
<%end if%>
<% end if%>
<%if x = 1 then %>
<%if cont = 0 then%>
<%IF (objRS.Fields.Item(X).Value) = 1 THEN %>
|
<%end if%>
<%IF (objRS.Fields.Item(X).Value) = 2 THEN %>
|
<%end if%>
<%end if%>
<%if cont > 0 and cont < 4 then%>
|
<%end if%>
<%if cont >= 4 then%>
|
<%end if%>
<%end if%>
<% 'TIPOS DE LETRA,TAMAÑO%>
<%if x = 1 then%>
<%if cont = 0 then%>
<%end if%>
<%if cont = 1 or cont = 2 then%>
<%end if%>
<%if cont >= 3 then%>
<%if objRS.Fields.Item(X).Value > 0 then%>
<%else%>
<%end if%>
<%end if%>
<%end if%>
<%if x = 0 then%>
<%if cont = 0 then%>
<%else%>
<%if cont = 1 then%>
<%else%>
<%end if%>
<%end if%>
<%end if%>
<%' ENVIA INFORMACION%>
<%if x = 0 then%>
<%Response.write(objRS.Fields.Item(X).Value) %>
<%end if%>
<%if x = 1 then%>
<%if cont = 0 then%>
<%IF (objRS.Fields.Item(X).Value) = 1 THEN %>
AL ALZA
<%END IF%>
<%IF (objRS.Fields.Item(X).Value) = 2 THEN %>
A LA BAJA
<%END IF%>
<%end if%>
<%if cont = 1 or cont = 2 then%>
<%Response.write(formatNumber(round(CSng(objRS.Fields.Item(X).Value)),0,0,0,-1)) %>
<%end if%>
<%if cont = 3 then%>
<%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),1) & " %") %>
<%end if%>
<%if cont >= 4 and cont <= 5 then%>
<%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),0) & " %") %>
<%end if%>
<%end if%>
|
<%Next%>
<%objRS.MoveNext%>
<% cont = cont + 1%>
<%Wend%>
Nota: Ver comentario abajo |
<%
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.ActiveConnection = objConn
objRS.CursorType = 3 'Static cursor.
objRS.LockType = 2 'Pessimistic Lock.
objRS.Source = "Select * from panorama2"
objRS.Open%>
<%objRS.MoveFirst
cont=0
While Not objRS.EOF%>
<%For X = 0 To objRS.Fields.Count - 1%>
<% 'COLORES DE FONDO%>
<% if x = 0 then %>
<%if cont = 0 then%>
|
<%else%>
<%if cont=1 then%>
|
<%else%>
<%if cont = 4 or cont = 5 then%>
|
<%else%>
|
<%end if%>
<%end if%>
<%end if%>
<% end if%>
<%if x = 1 then %>
<%if cont = 0 then%>
<%IF (objRS.Fields.Item(X).Value) = 1 THEN %>
|
<%end if%>
<%IF (objRS.Fields.Item(X).Value) = 2 THEN %>
|
<%end if%>
<%end if%>
<%if cont > 0 and cont < 4 then%>
|
<%end if%>
<%if cont >= 4 then%>
|
<%end if%>
<%end if%>
<% 'TIPOS DE LETRA,TAMAÑO%>
<%if x = 1 then%>
<%if cont = 0 then%>
<%end if%>
<%if cont = 1 or cont = 2 then%>
<%end if%>
<%if cont >= 3 then%>
<%if objRS.Fields.Item(X).Value > 0 then%>
<%else%>
<%end if%>
<%end if%>
<%end if%>
<%if x = 0 then%>
<%if cont = 0 then%>
<%else%>
<%if cont = 1 then%>
<%else%>
<%end if%>
<%end if%>
<%end if%>
<%' ENVIA INFORMACION%>
<%if x = 0 then%>
<%Response.write(objRS.Fields.Item(X).Value) %>
<%end if%>
<%if x = 1 then%>
<%if cont = 0 then%>
<%IF (objRS.Fields.Item(X).Value) = 1 THEN %>
AL ALZA
<%END IF%>
<%IF (objRS.Fields.Item(X).Value) = 2 THEN %>
A LA BAJA
<%END IF%>
<%end if%>
<%if cont = 1 or cont = 2 then%>
<%Response.write(formatNumber(round(CSng(objRS.Fields.Item(X).Value)),0,0,0,-1)) %>
<%end if%>
<%if cont = 3 then%>
<%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),1) & " %") %>
<%end if%>
<%if cont >= 4 and cont <= 5 then%>
<%Response.write(Round(FormatNumber(CSng(objRS.Fields.Item(X).Value)*100,,0,0,-1),0) & " %") %>
<%end if%>
<%end if%>
|
<%Next%>
<%objRS.MoveNext%>
<% cont = cont + 1%>
<%Wend%>
Fuente
www.StrikeOption.com
|