%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% pagina = "dir_anteriores"%> <%classifica = 0 + request("classifica")%> <%if classifica > 0 then complemento = "where id_diretoria = "&classifica%> <% Dim diretoria Dim diretoria_numRows Set diretoria = Server.CreateObject("ADODB.Recordset") diretoria.ActiveConnection = MM_iabsp_STRING diretoria.Source = "SELECT * FROM Dir_anteriores "&complemento&" ORDER BY periodo ASC" diretoria.CursorType = 0 diretoria.CursorLocation = 2 diretoria.LockType = 1 diretoria.Open() diretoria_numRows = 0 %> <% Dim rs_periodos Dim rs_periodos_numRows Set rs_periodos = Server.CreateObject("ADODB.Recordset") rs_periodos.ActiveConnection = MM_iabsp_STRING rs_periodos.Source = "SELECT * FROM periodos " rs_periodos.CursorType = 0 rs_periodos.CursorLocation = 2 rs_periodos.LockType = 1 rs_periodos.Open() rs_periodos_numRows = 0 %>
|
|||||||||||||||||||||||||||||||||