<% strId = Request.Form("radAdId") if Request.Form <> "" then if strId = "" then WarningErrMsg = "
Please select a banner to edit." end if if WarningErrMsg = "" then Response.Redirect "DeleteBanner2.asp?Id=" & strId end if end if %>

DELETE A BANNER - STEP 1

Select the banner below that you would like to delete and then click the "Next Step" button.

<% if WarningErrMsg <> "" then %>

Message(s): <%= warningErrMsg %>

<% end if %> <% strAccessLevel = session("AccessLevel") strUserName2 = session("UserName") ' Create a recordset object to store specific table information Set RS=Server.CreateObject("ADODB.RecordSet") if strAccessLevel = "1" then 'Establish what records you want selected for the SQL query string SQL = "Select * From Clients order by BannerName" else SQL = "Select * From Clients where (UserName = '" + strUserName2 + "') order by BannerName" end if RS.Open SQL, objADO IF (RS.EOF) THEN %> Currently you do not have banners in our site's rotation.

<% Else %>
<% Do While NOT RS.EOF %> "> <%= ucase(rs("BannerName"))%>
" BORDER=0 ALT="">

<% RS.MoveNext Loop %>

<% End If %>