<%
AdId = Request("Id")
' 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 Clients where AdId =" & AdId
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
strId = conn("AdId")
strBannerName = conn("BannerName")
strCustomerEmail = conn("CustomerEmail")
strStartDate = conn("StartDate")
strImgUrl = conn("ImgUrl")
strLinkTo = conn("LinkTo")
if Request.form <> "" 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 Clients where AdId =" & strId
'Set the recordset object equal to the SQL query string
conn.Open SQL, objADO, 1, 3
Response.Redirect "BannerDeleted.asp"
end if
%>
DELETE A BANNER - STEP 2
<% if strWarningErrMsg <> "" then %>
| Error(s):<%= strwarningErrMsg %>
|
<% end if %>
Are you sure you want to delete this banner?
Press the delete banner button to delete the selected banner.