<% strName = Request.Form("cboName") session("DeleteType") = strName if Request.Form <> "" then Response.Redirect "DeleteType2.asp" 'Response.Write session("EditName") end if %> <% if strWarningErrMsg <> "" then %> <% end if %>

DELETE VEHICLE TYPE - STEP 1

Error(s):<%= strwarningErrMsg %>

Select the vehicle Type below that you would like to delete and click the next button.

<% ' Be sure the database is located in your main cgi-bin. If not, modify as needed. Set RS=Server.CreateObject("ADODB.RecordSet") Query = "SELECT * FROM TblVehicleTypes ORDER BY VehicleType" RS.Open Query, objADO IF (RS.EOF) THEN %> There are no vehicle Types to delete!

<% Else %>

<% End If %>