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

DELETE VEHICLE MODEL - STEP 1

Error(s):<%= strwarningErrMsg %>

Select the vehicle Model 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 CDModels ORDER BY CDModel" RS.Open Query, objADO IF (RS.EOF) THEN %> There are no vehicle Models to delete!

<% Else %>

<% End If %>