<% Set rs_reklama = CreateObject("ADODB.RecordSet") if session("reklama_druh") = "uv" then strSQL = "SELECT * FROM reklama_uvod WHERE id_reklama_uvod = " & session("reklama_id") elseif session("reklama_druh") = "um" then strSQL = "SELECT * FROM reklama_uvod_mala WHERE id_reklama_uvod_mala = " & session("reklama_id") end if rs_reklama.Open strSQL, conn, 1, 1 if (rs_reklama("zobrazit") = false or rs_reklama("zbozi") = "" or isnull(rs_reklama("zbozi")) = true) and instr(request.querystring,"vyprodej-kol-scott-2011.-4") = 0 then rs_reklama.close conn.close %> Tato nabídka již není aktuální z důvodu vyprodání zboží.

Děkujeme za pochopení. <% else %>

<%= rs_reklama("nazev") %>

<%= rs_reklama("popis") %>

<% 'prodané zboží if isnull(rs_reklama("zbozi_prodano")) = true then zbozi_prodano = "" else zbozi_prodano = rs_reklama("zbozi_prodano") end if zbozi = rs_reklama("zbozi") if right(zbozi,1) = "," then zbozi = left(zbozi,len(zbozi)-1) end if 'řazení podle zadaných ID postupně razeni = "" seznam = split(zbozi,",") for start = 0 to ubound(seznam) razeni = razeni & " WHEN " & seznam(start) & " THEN " & start + 1 next 'nahrání zboží z dabatáze Set rs = CreateObject("ADODB.RecordSet") if request.servervariables("SERVER_NAME") = "localhost" then strSQL = "SELECT zbozi_kat.id_zbozi_kat AS id_zbozi_kat, nazev_zbozi_kratky AS nazev_zbozi2, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, zbozi.odkaz AS odkaz, id_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat, foto_pocet, kr, foto_pocet_bez_vodoznaku, akce, id_zbozi_dostupnost, skladem_varianta, skupina, darek, darek_typ, splatky FROM zbozi, s_zbozi, zbozi_kat WHERE zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND id_zbozi IN (" & zbozi & ") AND zobrazit = 1 AND zbozi.smazano = 0" else strSQL = "SELECT zbozi_kat.id_zbozi_kat AS id_zbozi_kat, nazev_zbozi_kratky AS nazev_zbozi2, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, zbozi.odkaz AS odkaz, id_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat, foto_pocet, kr, foto_pocet_bez_vodoznaku, akce, id_zbozi_dostupnost, skladem_varianta, skupina, darek, darek_typ, splatky FROM zbozi, s_zbozi, zbozi_kat WHERE zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND id_zbozi IN (" & zbozi & ") AND zobrazit = 1 AND zbozi.smazano = 0 ORDER BY CASE id_zbozi" & razeni & " END" end if rs.Open strSQL, conn, 1, 1 kosik_skupina = 0 porovnat_zbozi = 0 do while not rs.eof %>

<% if session("admin_bikestore_server") = request.servervariables("SERVER_NAME") or request.Cookies ("admin_" & session("server"))("admin_" & session("server")) <> "" then %> <% end if %> <% if instr(zbozi_prodano,rs("id_zbozi") & ",") > 0 then %>

PRODÁNO

<% end if %>

<% rs.movenext loop rs.close rs_reklama.close conn.close end if %>