<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim ABPUB__MMColParam ABPUB__MMColParam = "R" If (Request("MM_EmptyValue") <> "") Then ABPUB__MMColParam = Request("MM_EmptyValue") End If %> <% Dim ABPUB Dim ABPUB_numRows Set ABPUB = Server.CreateObject("ADODB.Recordset") ABPUB.ActiveConnection = MM_TOABANDONED_STRING ABPUB.Source = "SELECT * FROM VOTING.ABANDONED WHERE FLAG = '" + Replace(ABPUB__MMColParam, "'", "''") + "' ORDER BY ABID DESC" ABPUB.CursorType = 0 ABPUB.CursorLocation = 2 ABPUB.LockType = 1 ABPUB.Open() ABPUB_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 ABPUB_numRows = ABPUB_numRows + Repeat1__numRows %> <% ' *** Recordset Stats, Move To Record, and Go To Record: declare stats variables Dim ABPUB_total Dim ABPUB_first Dim ABPUB_last ' set the record count ABPUB_total = ABPUB.RecordCount ' set the number of rows displayed on this page If (ABPUB_numRows < 0) Then ABPUB_numRows = ABPUB_total Elseif (ABPUB_numRows = 0) Then ABPUB_numRows = 1 End If ' set the first and last displayed record ABPUB_first = 1 ABPUB_last = ABPUB_first + ABPUB_numRows - 1 ' if we have the correct record count, check the other stats If (ABPUB_total <> -1) Then If (ABPUB_first > ABPUB_total) Then ABPUB_first = ABPUB_total End If If (ABPUB_last > ABPUB_total) Then ABPUB_last = ABPUB_total End If If (ABPUB_numRows > ABPUB_total) Then ABPUB_numRows = ABPUB_total End If End If %> <% ' *** Recordset Stats: if we don't know the record count, manually count them If (ABPUB_total = -1) Then ' count the total records by iterating through the recordset ABPUB_total=0 While (Not ABPUB.EOF) ABPUB_total = ABPUB_total + 1 ABPUB.MoveNext Wend ' reset the cursor to the beginning If (ABPUB.CursorType > 0) Then ABPUB.MoveFirst Else ABPUB.Requery End If ' set the number of rows displayed on this page If (ABPUB_numRows < 0 Or ABPUB_numRows > ABPUB_total) Then ABPUB_numRows = ABPUB_total End If ' set the first and last displayed record ABPUB_first = 1 ABPUB_last = ABPUB_first + ABPUB_numRows - 1 If (ABPUB_first > ABPUB_total) Then ABPUB_first = ABPUB_total End If If (ABPUB_last > ABPUB_total) Then ABPUB_last = ABPUB_total End If End If %> Untitled Document

SUSPECTED ABANDONED VEHICLES - CURRENT LIST ( <%=(ABPUB_total)%> vehicles)

REGISTRATION MAKE MODEL COLOUR CURRENT STATUS LAST UPDATED
<% While ((Repeat1__numRows <> 0) AND (NOT ABPUB.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 ABPUB.MoveNext() Wend %>
<%=(ABPUB.Fields.Item("REGISTRATION").Value)%> <%=(ABPUB.Fields.Item("MAKE").Value)%> <%=(ABPUB.Fields.Item("MODEL").Value)%> <%=(ABPUB.Fields.Item("COLOR").Value)%>

<%=(ABPUB.Fields.Item("STATUS").Value)%>

 <%=(ABPUB.Fields.Item("LAST_UPDATED").Value)%>

 

 

 

 

<% ABPUB.Close() Set ABPUB = Nothing %>