<%if application("udate")=true then response.redirect "../probihaupdate.html" end if%> Kasima - Váš dodavatel krásy - paruky, příčesy, bižuterie, kabelky <% dim pomocna,dbconnection,recordset,odpovedcislo,jonebone set dbconnection=server.createobject("adodb.connection") pomocna="driver={microsoft access driver (*.mdb)}; " pomocna=pomocna & "dbq=" & server.mappath("admin/forum.mdb") dbconnection.open pomocna set recordset=server.createobject("adodb.recordset") recordset.activeconnection=dbconnection recordset.cursortype=1 recordset.locktype=3 recordset.open "select * from zbozi where zbozi.novinka=true;" if recordset.eof and recordset.bof then jezbozivakci=false else jezbozivakci=true end if recordset.close %> "" then%>alert('<%=request.querystring("login")%>')<%end if%>">
<%recordset.open "SELECT * FROM kategorie order by kategorie.kod;" citac=0 %> <%do while not recordset.eof citac=citac+1 %> <%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%> <%citac=20005%>
   " onmouseout="iko<%=citac %>.src='images/u<%=citac %>.gif'" onmouseover="iko<%=citac %>.src='images/tu<%=citac %>.gif'"><%=recordset("nazev") %>
   &podkat=<%=recordset2("nazev")%>&katnazev=<%=recordset("nazev")%>"><%=recordset2("nazev") %>
   Služby
   Jako výchozí stránka
   Přidat k oblíbeným
   Zpět na hlavní stranu
   Dnes je <% Dim dnesniden Dim den dnesniden=weekday(now) select case dnesniden case 1 den="neděle" case 2 den="pondělí" case 3 den="úterý" case 4 den="středa" case 5 den="čtvrtek" case 6 den="pátek" case 7 den="sobota" end select response.write den & " " & day(now) & "." & month(now) & "." & year(now)%>
<% recordset.open "Select * from uvod where uvod.id=1" if recordset.eof and recordset.bof then else do while not recordset.eof%>

<%=recordset("text")%>

<% recordset.movenext loop end if recordset.close %>

  O firmě  |  Prodejny  |  Kontakt  |  Péče o produkty  |  Partneři  |  Nápověda  
<% 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 %> <% 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 %>
TOP nabídka
&podkat=<%=recordset("podkategorie")%>&id=<%=recordset("id")%>" class="novinky" style="color:silver">" width=50 vspace=3 hspace=3 border=1 style="border-color:silver"> AKCE!!
&podkat=<%=recordset("podkategorie")%>&id=<%=recordset("id")%>" class="novinky" onmouseout="sipk<%=kikinc %>.src='images/sipka.gif'" onmouseover="sipk<%=kikinc %>.src='images/sipka2.gif'"><%= recordset("Nazev") %>

................. <%=recordset("textcena")%>
&podkat=<%=recordset("podkategorie")%>&id=<%=recordset("id")%>" class="novinky" onmouseout="sipk<%=kikinc%>.src='images/sipka.gif'" onmouseover="sipk<%=kikinc%>.src='images/sipka2.gif'">Více informací
<%end if recordset.close %> <% recordset.open "Select * from novinky order by novinky.datum desc;" if recordset.eof and recordset.bof then else kikin=0 %>
<%do while not (kikin=3 or recordset.eof) kikin=kikin+1 %> <%recordset.movenext loop%>
Aktuality                  Archív
" class="novinky" onmouseout="sipk<%=kikin %>.src='images/sipka.gif'" onmouseover="sipk<%=kikin %>.src='images/sipka2.gif'"><%= recordset("Titulek") %>
<%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
<%RESPONSE.WRITE recordset("text") %>
<%response.write recordset("jedna") %>

<%dim cervena,soucet soucet=int(application("cervena"))+int(application("zluta"))+int(application("modra")) if soucet<>0 and application("cervena")<>0 then cervena=int(application("cervena"))/soucet*100 cervena=cervena\1 else cervena=0 end if %>   <%response.write cervena & "%"%>
<%response.write recordset("dva") %>

<%dim zluta if soucet<>0 and application("zluta")<>0 then zluta=int(application("zluta"))/soucet*100 zluta=zluta\1 else zluta=0 end if%>   <%response.write zluta & "%"%>
<%response.write recordset("tri") %>

<%dim modra modra=100-cervena-zluta if soucet=0 then modra=0%>   <%response.write modra & "%"%>
<%text=recordset("text") if request.cookies(text)="ano" then response.write "Již jste hlasoval" else response.write "" end if%>
<% 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 %>