<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
response.redirect("login.asp?login=no")
end if
%>
<%
Dim sql
Dim id
id=CStr(Request("id"))
Dim a
a=Request("a")
if a<>"d" then
sql = "DELETE FROM marka WHERE id=" & id
sql2 = "DELETE FROM akapit WHERE marka=" & id
set rs=dbc.Execute(sql)
set result=dbc.Execute(sql2)
response.redirect("marka_usun.asp?id=" & id & "&a=d")
else
%>
Moduł administracyjny wirtyny AGS
Akapit ID = <%=id%> został usunięty.
Zostały usunięte wszytkie artykuły związane z tą marką.