<% strBase = "http://www.lexurb.com/article.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") %> Lexurb.com <% If Request.QueryString("ID") <> "" And IsNumeric(Request.QueryString("ID")) = True Then rs.Open "SELECT * FROM Articles WHERE ID=" & Request.QueryString("ID"), cn, adOpenStatic, adLockOptimistic If rs.eof Then response.write "The article you requested cannot be found." else ' display record %>
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.
<% If rs("Index").value <> "" Then %> <% End If %> <% If rs("Issue").value <> "" Then %> <% End If %> <% If rs("StyleOfCause").value <> "" Then %> <% End If %> <% If rs("Facts").value <> "" Then %> <% End If %> <% If rs("Analysis").value <> "" Then %> <% End If %> <% If rs("KeyText").value <> "" Then %> <% End If %> <% If rs("Comments").value <> "" Then %> <% End If %> <% If rs("Result").value <> "" Then %> <% End If %> <% If rs("Legislation").value <> "" Then %> <% End If %> <% If rs("Authorities").value <> "" Then %> <% End If %> <% If rs("Judge").value <> "" Then %> <% End If %> <% If rs("Attorneys").value <> "" Then %> <% End If %> <% end if else response.write "" end if %>
"> Send to a friend | "> Printer-Friendly
New Briefs

Index:

<%=Replace(rs("Index").value,chr(13),"
")%>
Issue: <%=Replace(rs("Issue").value,chr(13),"
")%>
Style of cause: <%=Replace(rs("StyleOfCause").value,chr(13),"
")%>
Facts: <%=Replace(rs("Facts").value,chr(13),"
")%>
Analysis: <%=Replace(rs("Analysis").value,chr(13),"
")%>
Key text:

(translation)

<%=Replace(rs("KeyText").value,chr(13),"
")%>
Comments: <%=Replace(rs("Comments").value,chr(13),"
")%>
Result: <%=Replace(rs("Result").value,chr(13),"
")%>
Legislation: <%=Replace(rs("Legislation").value,chr(13),"
")%>
Authorities: <%=Replace(rs("Authorities").value,chr(13),"
")%>
Judge: <%=Replace(rs("Judge").value,chr(13),"
")%>
Attorneys: <%=Replace(rs("Attorneys").value,chr(13),"
")%>
Top  
The article you requested cannot be found.
Terms of Use and Privacy. © Copyright Daniel Urbas 2003-2005. All Rights Reserved.
<% if rs.state = 1 then rs.close set rs=nothing %>