<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
response.redirect("login.asp?login=no")
end if
%>
<%
Dim sql
Dim kat
Dim id
id=CStr(Request("id"))
kat = CStr(Request("kat"))
Dim a
a=Request("a")
if a<>"d" then
s= "SELECT * FROM akapit WHERE id=" & id
set res=dbc.Execute(s)
kat =res("kategoria")
sql = "DELETE FROM akapit WHERE id=" & id
set rs=dbc.Execute(sql)
sql = "DELETE FROM images WHERE art=" & id
set rs=dbc.Execute(sql)
response.redirect("akapit_usun.asp?id=" & id & "&a=d&kat="&kat)
else
%>
Moduł administracyjny wirtyny AGS