<% If Not objRS.EOF Then %> <% For intRecord = 1 to objRS.PageSize %> <% objRS.MoveNext If objRS.EOF Then Exit For Next %>
" width="300">
<% Else %>
Sorry, no vehicles found.
<% End If 'Clean Up objRS.Close() Set objRS = Nothing objConn.Close() Set objConn = Nothing %>                                                                                                                                                                                                                                                                                                                                                                         
<% ' Check to see if the current page is greater than the first page ' in the recordset. If it is, then add a "Previous" link. If CInt(intPage) > 1 Then %> <% Else %> <% End If %> <% For iCounter = 1 To intPageCount If (CInt(iCounter) <> CInt(intPage)) Then %> <% Else Response.Write("") End If Next %> <% ' Check to see if the current page is less than the last page ' in the recordset. If it is, then add a "Next" link. If cInt(intPage) < cInt(intPageCount) Then %> <% Else %> <% End If %>
"><< Prev "><%= iCounter %> " & intPage & " ">Next >>