<%@LANGUAGE="VBSCRIPT"%> <% Dim rsdbpl__MMColParam rsdbpl__MMColParam = "1" If (Request.QueryString("indexid") <> "") Then rsdbpl__MMColParam = Request.QueryString("indexid") End If %> <% Dim rsdbpl Dim rsdbpl_cmd Dim rsdbpl_numRows Set rsdbpl_cmd = Server.CreateObject ("ADODB.Command") rsdbpl_cmd.ActiveConnection = MM_pros_STRING rsdbpl_cmd.CommandText = "SELECT * FROM tbldeadbeat WHERE indexid = ?" rsdbpl_cmd.Prepared = true rsdbpl_cmd.Parameters.Append rsdbpl_cmd.CreateParameter("param1", 5, 1, -1, rsdbpl__MMColParam) ' adDouble Set rsdbpl = rsdbpl_cmd.Execute rsdbpl_numRows = 0 %> <% Dim MM_paramName %> <% ' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters Dim MM_keepNone Dim MM_keepURL Dim MM_keepForm Dim MM_keepBoth Dim MM_removeList Dim MM_item Dim MM_nextItem ' create the list of parameters which should not be maintained MM_removeList = "&index=" If (MM_paramName <> "") Then MM_removeList = MM_removeList & "&" & MM_paramName & "=" End If MM_keepURL="" MM_keepForm="" MM_keepBoth="" MM_keepNone="" ' add the URL parameters to the MM_keepURL string For Each MM_item In Request.QueryString MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item)) End If Next ' add the Form variables to the MM_keepForm string For Each MM_item In Request.Form MM_nextItem = "&" & MM_item & "=" If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item)) End If Next ' create the Form + URL string and remove the intial '&' from each of the strings MM_keepBoth = MM_keepURL & MM_keepForm If (MM_keepBoth <> "") Then MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1) End If If (MM_keepURL <> "") Then MM_keepURL = Right(MM_keepURL, Len(MM_keepURL) - 1) End If If (MM_keepForm <> "") Then MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1) End If ' a utility function used for adding additional parameters to these strings Function MM_joinChar(firstItem) If (firstItem <> "") Then MM_joinChar = "&" Else MM_joinChar = "" End If End Function %> Johnson County Prosecutor
 
 
 

Deadbeat Parents
 

If you know the location of this wanted person DO NOT TRY TO APPREHEND! Contact your local Law Enforcement authority.

If you have any information you can send a confidential tip to 317-346-4482
   
 

">" width="180" height="210" />		  
Date Added: <%=(rsdbpl.Fields.Item("date_added").Value)%>
 
Name: <%=(rsdbpl.Fields.Item("full_name").Value)%>
 
Date of Birth: <%=(rsdbpl.Fields.Item("dob").Value)%>
 
Amount in Arrears:<%= FormatCurrency((rsdbpl.Fields.Item("amountinarrears").Value), -1, -2, -2, -2) %>
 
Last known address: <%=(rsdbpl.Fields.Item("lastknownaddress").Value)%>
Physical Description: <%=(rsdbpl.Fields.Item("physical_desc").Value)%>
Vehicle Description: <%=(rsdbpl.Fields.Item("vehicle_desc").Value)%>
Details: <%=(rsdbpl.Fields.Item("memofield").Value)%>
" width="213" height="28" />
Click for larger Image
    
_____________________________________________________________________________
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
 
   
 

One Caisson Drive, Suite A, Franklin, IN 46131 - (317)-346-4525

© Johnson County Prosecutor 2009
 
<% rsdbpl.Close() Set rsdbpl = Nothing %>