<% strBase = "http://www.lexurb.com/section.asp" Dim cn If isObject(Session("mdbDefined")) Then Set cn = Session("mdbDefined") Else Set cn = Server.CreateObject("ADODB.Connection") cn.Open "DSN=lexurb" Set Session("mdbDefined") = cn End If Set cmd = Server.CreateObject("ADODB.Command") Set rs = Server.CreateObject("ADODB.Recordset") %>

lex\'leks\noun(1775): exurb\'ek-zerb\noun(1955): lexurb\leks-zerb\(2003): law; a system, collection or body of law, written or unwritten. a region or settlement which lies outside a city and usually beyond its suburbs, at the edge. the legal edge.
	<% strIndexName = "" strLastDate = "" strStartDate="01/01/2003" strEndDate=day(formatdatetime(now(),vbshortdate)) & "/" & month(formatdatetime(now(),vbshortdate)) & "/" & year(formatdatetime(now(),vbshortdate)) strIndexName = "New Briefs" %> <% rs.Open "SELECT ID, AdditionDate, Index, Issue FROM Articles ORDER BY AdditionDate DESC", cn, adOpenStatic, adLockOptimistic If rs.eof Then response.write "The article you requested cannot be found." Else Do While Not rs.EOF If strLastDate <> rs("AdditionDate").value Then %> <% End If strLastDate = rs("AdditionDate").value %> <% rs.MoveNext Loop End If If rs.state = 1 then rs.close %> <%=strIndexName%>: Release <% if Not IsNull(rs("AdditionDate").value) Then response.write clng(rs("AdditionDate").value) ' MonthName(Month(rs("AdditionDate").value)) & " " & Day(rs("AdditionDate").value) & ", " & Year() %> "><%=rs("Index").value%> - <%=rs("Issue").value%> Terms of Use and Privacy. © Copyright Daniel Urbas 2003-2005. All Rights Reserved.