<%if int(request.querystring("kat"))=recordset("id") then
set dbconnection2=server.createobject("adodb.connection")
pomocna2="driver={microsoft access driver (*.mdb)}; "
pomocna2=pomocna2 & "dbq=" & server.mappath("admin/forum.mdb")
dbconnection2.open pomocna2
set recordset2=server.createobject("adodb.recordset")
recordset2.activeconnection=dbconnection2
recordset2.cursortype=1
recordset2.locktype=3
recordset2.open "Select * from podkategorie where podkategorie.kat='"&request.querystring("kat")&"' order by podkategorie.nazev;"
if recordset2.eof and recordset2.bof then
else
do while not recordset2.eof%>
<%
recordset2.movenext
loop
end if
recordset2.close
dbconnection2.close
set recordset2=nothing
set dbconnection2=nothing
end if
recordset.movenext
loop
recordset.close
%>
<%citac=20000%>
<%recordset.open "select * from uvod where uvod.id=15"
response.write recordset("text")
recordset.close
%>
Zobrazit materiály
<%
recordset.open "SELECT * FROM pece;"
if recordset.eof and recordset.bof then
else
kikin=1500%>
<%
recordset.open "Select * from anketa;"
if recordset("on") then
anketa=true
else
anketa=false
end if
recordset.close
recordset.open "Select * from zbozi where zbozi.akce>0;"
if recordset.eof and recordset.bof then
else
pocetakci=recordset.recordcount
randomize
citace=0
if pocetakci>=3 then
citace=int(rnd*(pocetakci-3)+1)
else
citace=0
end if
kikinc=0
%>
TOP nabídka
<%
cici=0
do while not cici=citace
recordset.movenext
cici=cici+1
loop
kikinc=kikinc+1
if anketa=true then
kikik=1
else
kikik=3
end if
cim=0
do while not (cim=kikik or recordset.eof)
dupa=dupa+1
cim=cim+1
if dupa=1 then barvar="#D8E1F8" end if
if dupa=2 then barvar="#C9D3EE" end if
%>
<%
if dupa=2 then dupa=0 end if
recordset.movenext
loop
%>
<%end if
recordset.close
%>
<%
recordset.open "Select * from novinky order by novinky.datum desc;"
if recordset.eof and recordset.bof then
else
kikin=0
%>
<%end if
recordset.close
%><%
recordset.open "Select * from anketa;"
if recordset("on") then
application.lock
application("cervena")=recordset("cervena")
application("zluta")=recordset("zluta")
application("modra")=recordset("modra")
application.unlock
%>
Anketa
<%
end if
recordset.close%>
<%recordset.open "select * from aktualizovano"
aktualizace=recordset("datum")
recordset.close
%>
Aktualizováno: <%=aktualizace%> Optimalizováno pro rozlišení 1024x768
Všechna práva vyhrazena (c) 2005 KASIMA Ostrava, Design www.mischel.cz
<%
dbconnection.close
set recordset=nothing
set dbconnection=nothing
%>