<%@ Language=VBScript %> <% if Session("user_name") = "" then Response.Redirect "Index.asp" end if action ="Fleet2.asp" If Session("STATUS") = "3" then Session("SQL") = "SELECT * FROM FLEET INNER JOIN USERS ON FLEET.USER_ID = USERS.USER_ID WHERE USERS.STATUS <> '0' AND FLEET.STATUS <> '0' ORDER BY FLEET.FLEET_ID" else Session("SQL") = "SELECT * FROM FLEET INNER JOIN USERS ON FLEET.USER_ID = USERS.USER_ID WHERE USERS.STATUS <> '0' AND FLEET.STATUS <> '0' AND FLEET.USER_ID = " & Session("USER_ID") & " ORDER BY FLEET.FLEET_ID" end if title = "FLEET" Session("Search_Page") = Right(Request.ServerVariables("URL"), len(Request.ServerVariables("URL")) - InStrRev(Request.ServerVariables("URL"), "/") ) %>

<%=title%>

<% Set DatabaseConnection = Server.CreateObject("ADODB.Connection") DatabaseConnection.Open Application("Connection1") Set Recordset1 = Server.CreateObject("ADODB.Recordset") Recordset1.CursorType = 1 Recordset1.CursorLocation = 2 Recordset1.LockType = 3 Recordset1.ActiveConnection = DatabaseConnection Recordset1.Open Session("SQL"), DatabaseConnection %>
method=post name=Form1>
<% if Recordset1.EOF then %> <% else While Not Recordset1.EOF or Recordset1.BOF Response.Write "" Response.Write "" Response.Write "" ROWS = recordset1("FLEET_ID") Recordset1.MoveNext Wend End If %>
 COMPANYVINVIDMAKEMODELYEAR
" & Recordset1("COMPANY") & ""& Recordset1("VIN") & "" & Recordset1("VID") & "" & Recordset1("MAKE") & "" & Recordset1("MODEL") & "" & Recordset1("YEAR") & "
       
>
<% Recordset1.close DatabaseConnection.Close Set DatabaseConnection = Nothing %>