%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim condiva Dim condiva_numRows Set condiva = Server.CreateObject("ADODB.Recordset") condiva.ActiveConnection = MM_BIOGENOMIC_STRING condiva.Source = "SELECT * FROM iva" condiva.CursorType = 0 condiva.CursorLocation = 2 condiva.LockType = 1 condiva.Open() condiva_numRows = 0 %> <% Dim ganancias Dim ganancias_numRows Set ganancias = Server.CreateObject("ADODB.Recordset") ganancias.ActiveConnection = MM_BIOGENOMIC_STRING ganancias.Source = "SELECT * FROM ganancias" ganancias.CursorType = 0 ganancias.CursorLocation = 2 ganancias.LockType = 1 ganancias.Open() ganancias_numRows = 0 %>
|
|||||
<% condiva.Close() Set condiva = Nothing %> <% ganancias.Close() Set ganancias = Nothing %>