<%
strName = session("DeleteType")
strAction = request("cmdAction")
' Create a recordset object to store specific table information
Set conn = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Select * From TblVehicleTypes where VehicleType = '" + strName + "'"
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
strType = conn("VehicleType")
if Request.form <> "" and strAction <> "" then
' Create a recordset object to store specific table information
Set conn = Server.CreateObject("ADODB.Recordset")
'Establish what records you want selected for the SQL query string
SQL = "Delete * From TblVehicleTypes where VehicleType = '" + strType + "'"
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
'Response.Write custid
Response.Redirect "menu.asp"
end if
%>
DELETE VEHICLE TYPE - STEP 2
<% if strWarningErrMsg <> "" then %>
Error(s):<%= strwarningErrMsg %>
<% end if %>
Are you sure you want to delete the vehicle type below? Press the delete button to delete the selected vehicle type.