<% strBase = "http://www.lexurb.com/printarticle.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/01-08-03_a
<% 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 "" else ' display record %> <% 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("Result").value <> "" Then %> <% End If %> <% If rs("Legislation").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 %>
The article you requested cannot be found.
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),"
")%>
Result: <%=Replace(rs("Result").value,chr(13),"
")%>
Legislation: <%=Replace(rs("Legislation").value,chr(13),"
")%>
Judge: <%=Replace(rs("Judge").value,chr(13),"
")%>
Attorneys: <%=Replace(rs("Attorneys").value,chr(13),"
")%>
The article you requested cannot be found.
Terms of Use and Privacy. © Copyright Daniel Urbas 2003-2004. All Rights Reserved.
<% if rs.state = 1 then rs.close set rs=nothing %>