<%@ Language=VBScript %> <% Option Explicit Response.Buffer = true Response.Expires = -1000 %>
<% if request.form("search") <> "" OR session("strSQL") <> "" then %>

 

Your search for "<%=Request("SearchTerms")%>" found these Settlements:

 

<% Dim SearchTerms Dim strQuery Dim Settlements Dim StartDate Dim EndDate If Request("StartDate") <> "" Then StartDate = CDate(Request("StartDate")) else If Request("StartDate") = "" Then StartDate = CDate("1/1/1000") If Request("EndDate") <> "" Then EndDate = CDate(Request("EndDate")) else If Request("EndDate") = "" Then EndDate = CDate("1/1/9999") SearchTerms = Request("SearchTerms") strQuery = "SearchTerms=" & SearchTerms & "&StartDate=" & StartDate & "&EndDate=" & EndDate 'connection settings file Private objConnect Private connectStr Private strSql Private objRS Private arRS Private recCount Set objConnect = Server.CreateObject("ADODB.Connection") connectStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("/Bullwinkle/Rescue.mdb") objConnect.mode = 3 objConnect.ConnectionTimeout = 1 objConnect.CommandTimeout = 1 objConnect.Open(connectStr) Private curSTART, curEND, nextPage, Pos1 curSTART = Request.QueryString("Cursor") If curSTART = "" Then curSTART = 0 End If curEND = curSTART + Page_Size '-- navigation variables Const Page_Size = 10 'this is where you set the # of records displayed per page Dim CaseName,CaseNameSQL, TOCID, TOCIDSQL, CaseID, CaseIDSQL dim CaseNum, caseNumSql, Defendant, DefendantSQL Dim Court, courtSQL, AttnyFees, AttnyFeesSQl, minAmount, MaxAmount Dim Penalties, PenaltiesSQL, Restitution, RestitutionSQL dim LumpSum, LumpSumSQL, FilingDate, FilingDateSQL Dim strWhereSQL, strFullSQL, strDateSQL, strSearchSQL CaseNum= request.form("CaseNum") if len(CaseNum) > 0 then caseNumSql = " (Cases.[Case No] LIKE '%"& CaseNum &"%') " if strFullSQL = "" then strFullSQL = caseNumSql else strFullSQL = strFullSQL & " AND " & caseNumSql end if end if CaseName = request.form("CaseName") if len(CaseName) > 0 then CaseNameSQL = " (Cases.[Short Name] LIKE '%"& CaseName &"%') " if strFullSQL = "" then strFullSQL = CaseNameSQL else strFullSQL = strFullSQL & " AND " & CaseNameSQL end if end if CaseID = request.form("CaseID") if len(CaseID) > 0 then CaseIDSQL = " (Cases.[Case ID] LIKE '%"& CaseID &"%') " if strFullSQL = "" then strFullSQL = CaseIDSQL else strFullSQL = strFullSQL & " AND " & CaseIDSQL end if end if ' TocID = request.form("TocID") ' if len(TocID) > 0 then ' TocIDsql = " (Cases.TocID LIKE '%"& TocID &"%') " ' if strFullSQL = "" then ' strFullSQL = TocIDsql ' else ' strFullSQL = strFullSQL & " AND " & TocIDsql ' end if ' end if Court = request.form("Court") if len(Court) > 0 then CourtSQL = " (Cases.court LIKE '%"& Court &"%') " if strFullSQL = "" then strFullSQL = CourtSQL else strFullSQL = strFullSQL & " AND " & CourtSQL end if end if Defendant = request.form("Defendant") if len(Defendant) > 0 then DefendantSQL = " (tblDefendant_Populator.Defendant LIKE '%"& Defendant &"%') " if strFullSQL = "" then strFullSQL = DefendantSQL else strFullSQL = strFullSQL & " AND " & DefendantSQL end if end if If Request.form("StartDate") <> "" AND Request.form("EndDate") <> "" then StartDate = CDate(Request.form("StartDate")) EndDate = CDate(Request.form("EndDate")) strDateSQL = " (Cases.[File Date] BETWEEN #" & StartDate &"# AND #" & EndDate & "#) " if strFullSQL = "" then strFullSQL = strDateSQL else strFullSQL = strFullSQL & " AND " & strDateSQL end if end if If Request.form("min_attny") <> "" AND Request.form("max_attny") <> "" then MinAmount = int(Request.form("min_attny")) MaxAmount = int(Request.form("max_attny")) AttnyFeesSQl = " (tblSettlementDetails.zAtty_Fees < " & MaxAmount & " AND tblSettlementDetails.zAtty_Fees > " & MinAmount & ")" if strFullSQL = "" then strFullSQL = AttnyFeesSQl else strFullSQL = strFullSQL & " AND " & AttnyFeesSQl end if end if If Request.form("min_Penalties") <> "" AND Request.form("max_Penalties") <> "" then MinAmount = int(Request.form("min_Penalties")) MaxAmount = int(Request.form("max_Penalties")) PenaltiesSQL = " (tblSettlementDetails.zPenalties < " & MaxAmount & " AND tblSettlementDetails.zPenalties > " & MinAmount & ")" if strFullSQL = "" then strFullSQL = PenaltiesSQL else strFullSQL = strFullSQL & " AND " & PenaltiesSQL end if end if If Request.form("min_restitution") <> "" AND Request.form("max_restitution") <> "" then MinAmount = int(Request.form("min_restitution")) MaxAmount = int(Request.form("max_restitution")) RestitutionSQL = " (tblSettlementDetails.zRestitution < " & MaxAmount & " AND tblSettlementDetails.zRestitution > " & MinAmount & ")" if strFullSQL = "" then strFullSQL = RestitutionSQL else strFullSQL = strFullSQL & " AND " & RestitutionSQL end if end if If Request.form("min_lumpsum") <> "" AND Request.form("max_lumpsum") <> "" then MinAmount = int(Request.form("min_lumpsum")) MaxAmount = int(Request.form("max_lumpsum")) LumpSumSQL = " (tblSettlementDetails.zInLieu < " & MaxAmount & " AND tblSettlementDetails.zInLieu > " & MinAmount & ")" if strFullSQL = "" then strFullSQL = LumpSumSQL else strFullSQL = strFullSQL & " AND " & LumpSumSQL end if end if strQuery = "SearchTerms=" & SearchTerms & "&StartDate=" & StartDate & "&EndDate=" & EndDate if SearchTerms <> "" then strSearchSQL = " Cases.[Short Name] LIKE '%"& SearchTerms &"%' "&_ " OR Cases.[Case No] LIKE '%"& SearchTerms &"%' "&_ " OR tblDefendant_Populator.Defendant LIKE '%"& SearchTerms &"%' "&_ " OR Cases.Court LIKE '%"& SearchTerms &"%'"&_ " OR tblSettlementDetails.zAtty_Fees LIKE '%"& SearchTerms &"%'"&_ " OR tblSettlementDetails.zPenalties LIKE '%"& SearchTerms &"%'"&_ " OR tblSettlementDetails.zRestitution LIKE '%"& SearchTerms &"%'"&_ " OR tblSettlementDetails.zInLieu LIKE '%"& SearchTerms &"%'"&_ " OR Cases.[File Date] LIKE '%" & SearchTerms & "%' " if strFullSQL = "" then strFullSQL = strSearchSQL else strFullSQL = strFullSQL & " AND " & strSearchSQL end if end if if strFullSQL = "" then strWhereSQL = "" else strWhereSQL = " WHERE (Cases.Status = 'Pending/Settlements' OR Cases.Status = 'Settled' ) AND " & strFullSQL end if if len(moCursorPos) > 0 then strSQL = session("strSQL") else strSQL =" SELECT Cases.[Short Name], Cases.TocID, Defendant,"&_ " Cases.[Case No], Cases.Court, zAtty_Fees,"&_ " zPenalties, zRestitution, zInLieu"&_ " FROM (Cases RIGHT JOIN tblDefendant_Populator "&_ " ON Cases.[Case ID] = tblDefendant_Populator.[Case ID]) "&_ " RIGHT JOIN tblSettlementDetails ON "&_ " tblDefendant_Populator.DefPop_ID = tblSettlementDetails.DefPop_ID"&_ " " & strWhereSQL &_ " ORDER BY Cases.[Short Name]" session("strSQL") = strSQL end if '-- Column indexes Const cShortName = 0 Const cToc = 1 Const cDef = 2 Const cCaseNum = 3 Const cCourt = 4 Const cAttyFees = 5 Const cPenalty = 6 Const cRest = 7 Const cLump = 8 Set objRS = objConnect.Execute(strSql) If objRS.eof Then recCount = 0 Else arRS = objRS.GetRows recCount = UBound(arRS, 2) + 1 IF curEND > recCount Then curEND = recCount End If objRS.close Set objRS = Nothing objConnect.Close %> <% If recCount = 0 Then Response.Write "
" Response.Write "No Records Were Found. Try Another Search." End If %> <% Private iCounter, tmpUrl, tmpNext, tmpPrev Private tmpLast Private tmpFirst Private iPage Private iPgCount Private iPgNum Private rsPageSizer iPage = 1 iPgCount = cInt(recCount/Page_Size) iPgNum = cInt(curSTART/Page_Size) If recCount - curEND < (10 * Page_Size) Then rsPageSizer = recCount - curEND Else rsPageSizer = (9 * Page_Size) End If '-- display results If recCount > 0 Then Response.Write "
" Response.Write curSTART+1 & " to " & curEND & " of " & recCount & ". Page : " For iCounter = curSTART To curEND + rsPageSizer Step Page_Size tmpUrl = "settlement_advSearch.asp?" & strQuery & "&cursor=" & iCounter If rsPageSizer < (Page_Size * 10) Then If iPgNum >= iPage Then tmpNext = "settlement_advSearch.asp?" & strQuery & "&cursor=" & curSTART + 0 End If End If If iPgNum >= iPgCount Then tmpNext = "settlement_advSearch.asp?" & strQuery & "&cursor=" & curSTART + 0 Else tmpNext = "settlement_advSearch.asp?" & strQuery & "&cursor=" & curSTART + Page_Size End If If curSTART < 1 Then tmpPrev = "settlement_advSearch.asp?" & strQuery & "&cursor=" & iCounter Else tmpPrev = "settlement_advSearch.asp?" & strQuery & "&cursor=" & iCounter - Page_Size End If If Cstr(iCounter) = Cstr(curSTART) and Cstr(curSTART) > 1 Then Response.Write" " & "Previous" & " " Response.write " " & (iPage+iPgNum) & "" Else Response.Write" " & (iPage+iPgNum) & " " End If tmpLast = "settlement_advSearch.asp?" & strQuery & "&cursor=" & (iPgCount * Page_Size) iPage = iPage + 1 Next If curEND < RecCount Then Response.Write" " & "Next" & " " Else Response.Write "" End If If recCount > 60000 Then Response.Write" " & "Last "& " " End If Response.Write "
" %> <% Private iCount For iCount = curStart to curEnd - 1 %> <% Dim x x = x xor true if x = true then Response.Write "" Else Response.Write "" End If %> <% ' Dim Varattfees Varattfees =arRS(cAttyFees,iCount) If VarType(Varattfees) = 1 Then Varattfees = "" else If VarType(Varattfees) = 6 Then attfees = FormatCurrency(arRS(cAttyFees,iCount),2) %> <% Next '-- no results end if else %>

Case Name

 Defendant

Case No

Atty Fees

Penalties

 Restitution Lump Sum
<% Response.Write arRS(cShortName, iCount) %> <%= "" & arRS(cDef, iCount) & "" %> <%=arRS(cCaseNum, iCount) %> <% If IsNumeric(arRS(cAttyFees, iCount))Then Response.Write FormatCurrency(arRS(cAttyFees, iCount)) Else Response.Write ("") End If %> <% If IsNumeric(arRS(cPenalty, iCount))Then Response.Write FormatCurrency(arRS(cPenalty, iCount)) Else Response.Write ("") End If %> <% If IsNumeric(arRS(cRest, iCount))Then Response.Write FormatCurrency(arRS(cRest, iCount)) Else Response.Write ("") End If %> <% If IsNumeric(arRS(cLump, iCount))Then Response.Write FormatCurrency(arRS(cLump, iCount)) Else Response.Write ("") End If %>
Case Number:
Case Name:
(will return any listings that contain this text in the case name)
Court:
(will return any listings that contain this text in the court name)
Defendant:
(will return any listings that contain this text in the defendant name)
Attorney Fees:
(enter a dollar amount
ex: 1000)		 to
  (minimum Amount)          (maximum amount)
Penalties:
(enter a dollar amount
ex: 1000) 		to
  (minimum Amount)          (maximum amount)
Restitution:
(enter a dollar amount
ex: 1000) 		to
  (minimum Amount)          (maximum amount)
Lump Sum :
(enter a dollar amount
ex: 1000) 		to
  (minimum Amount)          (maximum amount)
Filing Date Range:
(mm/dd/yyyy) 		Begin: End:
(Limits your search by date range.)
Search Terms :
(returns all listings with matching words in any field)
                                                                                           Help?
<% end if %>