<% 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 %> <% rs.MoveNext lp = lp + 1 wend %>
"> <%response.write lp%> . "> <%response.write rs("naglowek")%> "> podgląd "> edycja ">usuń