David Rair's practice focuses on
the representation of commercial banks, savings
banks, diversified financial services companies,
finance companies, insurance and securities intermediaries
and mortgage lenders in consumer credit regulation
and transactions, privacy, commercial financing
transactions, deposit products, Internet banking
products and services, and federal and state regulatory
matters.
Areas of Expertise |
|
- Financial Services
- State and Federal Consumer Credit and Mortgage
Lending Regulatory Compliance
- Banking, Insurance and Securities Regulatory
Matters
- Bank Holding Company Matters
- Asset Based and Commercial Real Estate Lending
- Secured Transactions
- Corporate and Commercial Transactions
<%
'Open the database connection object
'Start using a DSN-less connection
dim objConn
Set objConn = server.CreateObject("ADODB.connection")
objConn.ConnectionString = "DRIVER={Microsoft Access Driver (*.mdb)};" & _
"DBQ=" & Server.Mappath("CRY.mdb")
objConn.Open
%>
<%
'Change attorney name here
dim strAttorney
strAttorney = "David Rair"
'Create the SQL statement variable
dim strSQL
strSQL = "SELECT * FROM bullets WHERE Attorney = '" & strAttorney & "' ORDER BY Category, ID"
'strSQL = "SELECT * FROM bullets WHERE Attorney = """ & strAttorney & """ ORDER BY Category;"
'response.write ("strSQL = " & strSQL)
'Open the record set
dim objRS
Set objRS = Server.CreateObject("ADODB.Recordset")
objRS.Open strSQL, objConn, 1
'List results
if not objRS.eof then
if objRS("Category") = 1 then
response.write ("Professional and Community Involvement
| |
")
'-----
'Go to the last Category 1 and start working my way back...
Do while (objRS("Category") = 1)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
objRS.movePrevious
'Start Listing
'-----
Do while (objRS("Category") = 1)
response.write ("- " & objRS("Bullet") & "
")
if objRS("Sub1") <> "" then
response.write ("")
response.write ("- " & objRS("Sub1") & "
")
if objRS("Sub2") <> "" then
response.write ("- " & objRS("Sub2") & "
")
end if
if objRS("Sub3") <> "" then
response.write ("- " & objRS("Sub3") & "
")
end if
if objRS("Sub4") <> "" then
response.write ("- " & objRS("Sub4") & "
")
end if
if objRS("Sub5") <> "" then
response.write ("- " & objRS("Sub5") & "
")
end if
response.write (" ")
end if
objRS.movePrevious
if objRS.bof then
Exit Do
end if
Loop
response.write (" ")
end if
end if
'-----
'Go to the next category
if not objRS.eof then
objRS.moveNext
Do while (objRS("Category") = 1)
objRS.moveNext
Loop
end if
'-----
if not objRS.eof then
if objRS("Category") = 2 then
response.write ("Speeches and Seminars
| |
")
'-----
'Go to the last Category 2 and start working my way back...
Do while (objRS("Category") = 2)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
objRS.movePrevious
'Start Listing
'-----
Do while (objRS("Category") = 2)
response.write ("- " & objRS("Bullet") & "
")
if objRS("Sub1") <> "" then
response.write ("")
response.write ("- " & objRS("Sub1") & "
")
if objRS("Sub2") <> "" then
response.write ("- " & objRS("Sub2") & "
")
end if
if objRS("Sub3") <> "" then
response.write ("- " & objRS("Sub3") & "
")
end if
if objRS("Sub4") <> "" then
response.write ("- " & objRS("Sub4") & "
")
end if
if objRS("Sub5") <> "" then
response.write ("- " & objRS("Sub5") & "
")
end if
response.write (" ")
end if
objRS.movePrevious
if objRS.bof then
Exit Do
end if
Loop
response.write (" ")
end if
end if
'-----
'Go to the next category
if not objRS.eof then
objRS.moveNext
Do while (objRS("Category") = 2)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
end if
'-----
if not objRS.eof then
if objRS("Category") = 3 then
response.write ("Articles and Publications
| |
")
'-----
'Go to the last Category 3 and start working my way back...
Do while (objRS("Category") = 3)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
objRS.movePrevious
'Start Listing
'-----
Do while (objRS("Category") = 3)
response.write ("- " & objRS("Bullet") & "
")
if objRS("Sub1") <> "" then
response.write ("")
response.write ("- " & objRS("Sub1") & "
")
if objRS("Sub2") <> "" then
response.write ("- " & objRS("Sub2") & "
")
end if
if objRS("Sub3") <> "" then
response.write ("- " & objRS("Sub3") & "
")
end if
if objRS("Sub4") <> "" then
response.write ("- " & objRS("Sub4") & "
")
end if
if objRS("Sub5") <> "" then
response.write ("- " & objRS("Sub5") & "
")
end if
response.write (" ")
end if
objRS.movePrevious
if objRS.bof then
Exit Do
end if
Loop
response.write (" ")
end if
end if
'-----
'Go to the next category
if not objRS.eof then
objRS.moveNext
Do while (objRS("Category") = 3)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
end if
'-----
if not objRS.eof then
if objRS("Category") = 4 then
response.write ("Honors and Awards
| |
")
'-----
'Go to the last Category 4 and start working my way back...
Do while (objRS("Category") = 4)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
objRS.movePrevious
'Start Listing
'-----
Do while (objRS("Category") = 4)
response.write ("- " & objRS("Bullet") & "
")
if objRS("Sub1") <> "" then
response.write ("")
response.write ("- " & objRS("Sub1") & "
")
if objRS("Sub2") <> "" then
response.write ("- " & objRS("Sub2") & "
")
end if
if objRS("Sub3") <> "" then
response.write ("- " & objRS("Sub3") & "
")
end if
if objRS("Sub4") <> "" then
response.write ("- " & objRS("Sub4") & "
")
end if
if objRS("Sub5") <> "" then
response.write ("- " & objRS("Sub5") & "
")
end if
response.write (" ")
end if
objRS.movePrevious
if objRS.bof then
Exit Do
end if
Loop
response.write (" ")
end if
end if
'-----
'Go to the next category
if not objRS.eof then
objRS.moveNext
Do while (objRS("Category") = 4)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
end if
'-----
if not objRS.eof then
if objRS("Category") = 5 then
response.write ("Other
| |
")
'-----
'Go to the last Category 5 and start working my way back...
Do while (objRS("Category") = 5)
objRS.moveNext
if objRS.eof then
Exit Do
end if
Loop
objRS.movePrevious
'Start Listing
'-----
Do while (objRS("Category") = 5)
response.write ("- " & objRS("Bullet") & "
")
if objRS("Sub1") <> "" then
response.write ("")
response.write ("- " & objRS("Sub1") & "
")
if objRS("Sub2") <> "" then
response.write ("- " & objRS("Sub2") & "
")
end if
if objRS("Sub3") <> "" then
response.write ("- " & objRS("Sub3") & "
")
end if
if objRS("Sub4") <> "" then
response.write ("- " & objRS("Sub4") & "
")
end if
if objRS("Sub5") <> "" then
response.write ("- " & objRS("Sub5") & "
")
end if
response.write (" ")
end if
objRS.movePrevious
if objRS.bof then
Exit Do
end if
Loop
response.write (" ")
end if
end if
%>
|
|
|
<%
'--------------------------
'ALWAYS PUT THIS AT THE END
'--------------------------
'close the record set
objRS.close
set objRS = Nothing
'close the connection object
objConn.Close
Set objConn = Nothing
%>
|
|
