<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
response.redirect("login.asp?login=no")
end if
Dim admin
admin = Session("admin")
if admin<>1 then
response.redirect("lista.asp")
end if
%>
Moduł administracyjny wirtyny AGS
<%Dim idk
idk = Request("idk")
sql="select * from user where id =" & CStr(idk)
set rs=dbc.Execute(sql)
%>