%@LANGUAGE="VBSCRIPT"%> <% Dim tipo_proyecto Dim tipo_proyecto_numRows Set tipo_proyecto = Server.CreateObject("ADODB.Recordset") tipo_proyecto.ActiveConnection = MM_conn_STRING tipo_proyecto.Source = "SELECT * FROM TIPO_PRODUCTO WHERE OCULTAR=0 ORDER BY ORDEN ASC" tipo_proyecto.CursorType = 3 tipo_proyecto.CursorLocation = 2 tipo_proyecto.LockType = 1 tipo_proyecto.Open() tipo_proyecto_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 tipo_proyecto_numRows = tipo_proyecto_numRows + Repeat1__numRows %> <% tipo_proyecto_total = tipo_proyecto.RecordCount dif_y=15 total_tipos=tipo_proyecto_total altura=230-(dif_y*total_tipos) %>
![]() |
|
![]() |
![]() |