<% Action = LCase(Request.QueryString) Set Connection = Server.CreateObject("ADODB.Connection") Connection.Open("DSN=TwinLights;UID=sa;PWD=sa") Sub DoHeader(Header) Response.Write("" & Header & "") BGColor="#FFFFFF" End Sub If Action="edit" Then Select Case Request.Form("Submit") Case "Delete Checked" For I=1 To Request.Form("ID").Count Connection.Execute "DELETE FROM Vehicles WHERE ID = " & Request.Form("ID")(I) Next Case "Save" If CInt(Request.Form("ID")) > 0 Then Connection.Execute "UPDATE Vehicles SET " & _ "LocationID=" & Request.Form("LocationID") & ", " & _ "RONum='" & Request.Form("RONum") & "', " & _ "DateOut = '" & Request.Form("DateOut") & "', " & _ "Vehicle = '" & Request.Form("Vehicle") & "', " & _ "Color = '" & Request.Form("Color") & "', " & _ "Owner = '" & Request.Form("Owner") & "', " & _ "Notes = '" & Request.Form("Notes") & "' WHERE " & _ "ID = " & Request.Form("ID") Else Connection.Execute "INSERT INTO Vehicles (" & _ "LocationID, RONum, DateOut, Vehicle, Color, Owner, Notes) VALUES (" & _ Request.Form("LocationID") & ", " & _ "'" & Request.Form("RONum") & "', " & _ "'" & Request.Form("DateOut") & "', " & _ "'" & Request.Form("Vehicle") & "', " & _ "'" & Request.Form("Color") & "', " & _ "'" & Request.Form("Owner") & "', " & _ "'" & Request.Form("Notes") & "')" End If 'LocationID=rsVehicle("LocationID") 'RONum=rsVehicle("RONum") 'DateOut=rsVehicle("DateOut") 'Vehicle=rsVehicle("Vehicle") 'Color=rsVehicle("Color") 'Owner=rsVehicle("Owner") 'Notes=rsVehicle("Notes") End Select End If Set rsVehicles = Connection.Execute("SELECT Vehicles.*, Locations.LocationName FROM Vehicles, Locations WHERE Vehicles.LocationID=Locations.LocationID ORDER BY Vehicles.LocationID") %> history

Emergency Vehicle Repair Website










Vehicle Location List

<% If Action = "edit" Then %> <% End If %> <% If Action = "edit" Then %> <% End If %> <% x=0 CurrentLocation = 0 Do Until rsVehicles.EOF If CurrentLocation<>rsVehicles("LocationID") Then DoHeader rsVehicles("LocationName") CurrentLocation=rsVehicles("LocationID") End If If BGColor="#EEEEEE" Then BGColor="#FFFFFF" Else BGColor="#EEEEEE" %> <% If Action = "edit" Then %> <% End If %> <% rsVehicles.MoveNext Loop %> <% If Action = "edit" Then %> <% End If %>
  RO No. Date Out Vehicle Color Owner
"> <%If Action="edit" Then response.Write "&Action=Edit"%>"><%=rsVehicles("RONum")%> <%=rsVehicles("DateOut")%> <%=rsVehicles("Vehicle")%> <%=rsVehicles("Color")%> <%=rsVehicles("Owner")%>

Home | History | Service | Trust | Warranty | E-Mail
Accidents Happen | Key Benefits | 10 Things To Know

Twin Lights Milford Body Shop l Reliable Service Since 1949
470 New Haven Avenue, Milford, CT 06460 l Phone: (203) 878-8534 l Fax: (203)874-3864
E-mail:service@twin-lights.com


Devoted To Protecting The Motoring Public


Give Back To Those Who Give All

Our Customers Prefer

Shop For The Best Insurance Coverage With