Pardini & Associates: Publications

<%@LANGUAGE="VBSCRIPT"%> <% Dim rsCurrent Dim rsCurrent_numRows Set rsCurrent = Server.CreateObject("ADODB.Recordset") rsCurrent.ActiveConnection = MM_padela_nl_STRING rsCurrent.Source = "SELECT ed_id, edi_title FROM ediciones WHERE boletype = 'adm' AND current = 1 ORDER BY ord_date DESC" rsCurrent.CursorType = 0 rsCurrent.CursorLocation = 2 rsCurrent.LockType = 1 rsCurrent.Open() rsCurrent_numRows = 0 %> <% Dim rsPast Dim rsPast_numRows Set rsPast = Server.CreateObject("ADODB.Recordset") rsPast.ActiveConnection = MM_padela_nl_STRING rsPast.Source = "SELECT ed_id, edi_title FROM ediciones WHERE boletype = 'adm' AND current = 0 ORDER BY ord_date DESC" rsPast.CursorType = 0 rsPast.CursorLocation = 2 rsPast.LockType = 1 rsPast.Open() rsPast_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsPast_numRows = rsPast_numRows + Repeat1__numRows %> Pardini & Associates: Publications


http://www.padela.com

	Panama Admiralty Law Report Latest Issue: "><%=(rsCurrent.Fields.Item("edi_title").Value)%> Past Issues: <% While ((Repeat1__numRows <> 0) AND (NOT rsPast.EOF)) %> "><%=(rsPast.Fields.Item("edi_title").Value)%> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rsPast.MoveNext() Wend %>

<% rsCurrent.Close() Set rsCurrent = Nothing %> <% rsPast.Close() Set rsPast = Nothing %>