<% Dim IsLogin
IsLogin = Session("status")
if IsLogin<>1 then
response.redirect("login.asp?login=no")
end if
Dim admin
admin = Session("admin")
Dim kat
kat = Request("kat")
if kat = 0 then
header = "Na czasie"
else
if kat = 1 then
header = "Zdjęcia koncertowe"
else
if kat = 2 then
header = "Zdjęcia prywatne"
else
if kat = 3 then
header = "Artykuły"
else
if kat = 4 then
header = "Press room"
else
if kat = 5 then
header =" Kalendarz"
else
if kat =6 then
header ="Historia"
end if
end if
end if
end if
end if
end if
end if
%>
Akapity
<%response.write header%>
<%
Dim lp
Dim typ
Dim sql
sql = "select * from akapit WHERE kategoria= " & CStr(kat)
set rs=dbc.Execute(sql)
lp = 1
while not rs.eof
%>
