<%@ Language=VBScript %> <% if len(Request.Form("FUNCTION")) < 2 THEN if Session("US") = "" THEN 'If Uninitialized then load data ' Session("US") = "1" if Session("user_name") = "" then 'Require Valid User Response.Redirect "Index.asp" end if Session("table") = "FLEET" 'Custom, For Include file Session("Field_ID") = "FLEET_ID" 'Custom Session("TITLE") = "User Details" 'Custom Session("Detail_Page") = Right(Request.ServerVariables("URL"), len(Request.ServerVariables("URL")) - InStrRev(Request.ServerVariables("URL"), "/") ) Session("NAME") = Request.Form("NAME") Session("LOCATION") = Request.Form("LOCATION") Session("ID") = Request.Form("KEY") end if %> <% If Session("STATUS") = "3" then %> <%End If%>

General FLEET Information
STATUS:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("STATUS")%>' size="15">
VIN:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("VIN")%>' size="15">
VID:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("VID")%>' size="15">
Make:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MAKE")%>' size="15">
Model:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MODEL")%>' size="15">
Year:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("YEAR")%>' size="15">
License:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("LICENSE")%>' size="15">
Inspection:
Interval:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("INTERVAL")%>' size="15">
Mileage Date:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MILEAGE_DATE")%>' size="15">
Mileage:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MILEAGE")%>' size="15">
Mileage Interval:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MILEAGE_INTERVAL")%>' size="15">
Note:	value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("NOTE")%>' size="15">

<%ELSE%> <%END If 'if Request.Form("FUNCTION") = "" THEN '------------------------------------------------------------------- ' PROCEDURES Sub Update 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 if transaction = 1 then Recordset1.Source = "FLEET" Recordset1.Open Recordset1.AddNew else ID = Session("ID") SQLstring = "SELECT * FROM FLEET WHERE (((FLEET.FLEET_ID)="&ID&"));" Recordset1.Open SQLstring, DatabaseConnection end if ' IF Request.Form.Item("FUNCTION") = "SAVE AS" THEN ' RECORDSET1.AddNew ' END IF Recordset1("USER_ID") = Session("USER_ID") if Request.Form.Item("VIN") <> "" then Recordset1("VIN") = Request.Form.Item("VIN") if Request.Form.Item("VID") <> "" then Recordset1("VID") = Request.Form.Item("VID") if Request.Form.Item("MAKE") <> "" then Recordset1("MAKE") = Request.Form.Item("MAKE") if Request.Form.Item("MODEL") <> "" then Recordset1("MODEL") = Request.Form.Item("MODEL") if Request.Form.Item("YEAR") <> "" then Recordset1("YEAR") = Request.Form.Item("YEAR") if Request.Form.Item("LICENSE") <> "" then Recordset1("LICENSE") = Request.Form.Item("LICENSE") if Request.Form.Item("INSPECTION") <> "" then Recordset1("INSPECTION") = Request.Form.Item("INSPECTION") if Request.Form.Item("INTERVAL") <> "" then Recordset1("INTERVAL") = Request.Form.Item("INTERVAL") if Request.Form.Item("MILEAGE_INTERVAL") <> "" then Recordset1("MILEAGE_INTERVAL") = Request.Form.Item("MILEAGE_INTERVAL") if Request.Form.Item("MILEAGE_DATE") <> "" then Recordset1("MILEAGE_DATE") = Request.Form.Item("MILEAGE_DATE") if Request.Form.Item("MILEAGE") <> "" then Recordset1("MILEAGE") = Request.Form.Item("MILEAGE") if Request.Form.Item("NOTE") <> "" then Recordset1("NOTE") = Request.Form.Item("NOTE") Select Case transaction Case 1 Recordset1("STATUS") = "1" Case 2 if Request.Form.Item("STATUS") <> "" then Recordset1("STATUS") = Request.Form.Item("STATUS") Case 3 Recordset1("STATUS") = "0" End Select Recordset1.Update Recordset1.Close DatabaseConnection.Close Set DatabaseConnection = Nothing %> <%End Sub%>