<%@ 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") = "PM" 'Custom, For Include file Session("Field_ID") = "PM_ID" 'Custom Session("TITLE") = "Preventative Maintenance 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 %> <% ' Session("SQL_FLEET") = "SELECT * FROM FLEET WHERE FLEET.STATUS <> '0' AND FLEET.USER_ID = " & Session("USER_ID") & " ORDER BY FLEET.FLEET_ID" If Session("STATUS") = "3" then Session("SQL_FLEET") = "SELECT * FROM FLEET ORDER BY FLEET.FLEET_ID" else Session("SQL_FLEET") = "SELECT * FROM FLEET WHERE FLEET.STATUS <> '0' AND FLEET.USER_ID = " & Session("USER_ID") & " ORDER BY FLEET.FLEET_ID" end if ' Set DatabaseConnection = Server.CreateObject("ADODB.Connection") ' DatabaseConnection.Open Application("Connection1") Set Recordset2 = Server.CreateObject("ADODB.Recordset") Recordset2.CursorType = 1 Recordset2.CursorLocation = 2 Recordset2.LockType = 3 Recordset2.ActiveConnection = DatabaseConnection Recordset2.Open Session("SQL_FLEET"), DatabaseConnection if Recordset2.EOF then %> <% else Dim vid(100,1) While Not Recordset2.EOF or Recordset2.BOF 'Response.Write "" 'Response.Write ""& Recordset1("VIN") & "" & Recordset1("VID") & "" & Recordset1("MAKE") & "" & Recordset1("MODEL") & "" & Recordset1("YEAR") & "" ' ROWS = recordset2("FLEET_ID") vid(x,0) = recordset2("VID") vid(x,1) = recordset2("VID")+ " " + recordset2("VIN") + " " + recordset2("MAKE") + " " + recordset2("MODEL") + " " + recordset2("YEAR") + " " + recordset2("LICENSE") x = x + 1 Recordset2.MoveNext Wend End If Session("x") = x - 1 Session("VID") = vid Recordset2.close 'DatabaseConnection.Close 'Set DatabaseConnection = Nothing %> <% if Session("STATUS") = "3" then %> <% End If %>

Preventative Maintenance

VID: 
Status: value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("STATUS")%>' size="15" ID="Text2">
Date:
Job Number:  value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("INVOICE")%>' size="15" ID="INVOICE">
Inspection: 
Mileage:  value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("MILEAGE")%>' size="15" ID="MILEAGE">
Nonconformance:  value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("NONCONFORMANCE")%>' size="15" ID="NONCONFORMANCE">
Corrective Action:  value='<% if Request.Form("MOVE") <> "New" then Response.write Recordset1("CORRECTIVE_ACTION")%>' size="15" ID="CORRECTIVE_ACTION">
<%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 = "PM" Recordset1.Open Recordset1.AddNew else ID = Session("ID") SQLstring = "SELECT * FROM PM WHERE (((PM.PM_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("VID") <> "" then Recordset1("VID") = Request.Form.Item("VID") if Request.Form.Item("DATE") <> "" then Recordset1("DATE") = CDate(Request.Form.Item("DATE")) if Request.Form.Item("INVOICE") <> "" then Recordset1("INVOICE") = Request.Form.Item("INVOICE") if Request.Form.Item("INSPECTION") <> "" then Recordset1("INSPECTION") = Request.Form.Item("INSPECTION") if Request.Form.Item("MILEAGE") <> "" then Recordset1("MILEAGE") = Request.Form.Item("MILEAGE") if Request.Form.Item("NONCONFORMANCE") <> "" then Recordset1("NONCONFORMANCE") = Request.Form.Item("NONCONFORMANCE") if Request.Form.Item("CORRECTIVE_ACTION") <> "" then Recordset1("CORRECTIVE_ACTION") = Request.Form.Item("CORRECTIVE_ACTION") if Request.Form.Item("PREVENTATIVE_ACTION") <> "" then Recordset1("PREVENTATIVE_ACTION") = Request.Form.Item("PREVENTATIVE_ACTION") if Request.Form.Item("NOTES") <> "" then Recordset1("NOTES") = Request.Form.Item("NOTES") 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%>