<% 'kontrola vypnuté kategorie Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT zobrazit_kat FROM zbozi_kat WHERE id_zbozi_kat = " & session("id_kat") rs.Open strSQL, conn, 1, 1 if rs("zobrazit_kat") = false then response.clear response.redirect session("cesta_web") end if rs.close 'rozbalování css pomocí requestu if not request("id") = "" then session("css_rozbal") = session("css_rozbal") & "," & request("id") elseif not request("id2") = "" then param = "," & request("id2") session("css_rozbal") = replace(session("css_rozbal"), param ,"") end if 'nahrání údajů z databáze Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT *, s_znacka.nazev AS nazev_znacka, zbozi_dostupnost.popis AS popis_dostupnost FROM zbozi, s_zbozi, s_znacka, zbozi_dostupnost WHERE zbozi.id_zbozi = " & clng(session("id_zbozi")) & " AND zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND s_zbozi.id_s_znacka = s_znacka.id_s_znacka AND zbozi.id_zbozi_dostupnost = zbozi_dostupnost.id_zbozi_dostupnost AND zbozi.smazano = 0 AND s_zbozi.smazano = 0 AND (zobrazit = 1 OR zobrazit2 = 1 OR skupina_zobrazit = 1)" rs.Open strSQL, conn, 1, 1 if not rs.eof then 'úprava cen pro příhlášené zákazníky sleva2 = rs("sleva") cena2 = rs("cena") cena_puvodni2 = rs("cena_puvodni") cena_karty1 = rs("cena_karty1") cena_karty2 = rs("cena_karty2") cena_karty3 = rs("cena_karty3") id_zbozi_dostupnost = rs("id_zbozi_dostupnost") %> <% foto_pocet = rs("foto_pocet") foto_pocet_bez_vodoznaku = rs("foto_pocet_bez_vodoznaku") odkaz = rs("odkaz") odkaz_foto = rs("odkaz") skupina_foto = rs("skupina_foto") session("cena_zbozi") = cena 'kontrola fotografií pro skupinu if skupina_foto = false then Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT foto_pocet, odkaz, foto_pocet_bez_vodoznaku FROM zbozi WHERE skupina = " & rs("skupina") & " AND skupina_foto = 1" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then foto_pocet = rs2("foto_pocet") foto_pocet_bez_vodoznaku = rs2("foto_pocet_bez_vodoznaku") odkaz_foto = rs2("odkaz") end if rs2.close end if %> <% id_kat = session("id_kat") %> <% if not rs("prislusenstvi") = "" then 'pravý pruh příslušenství Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev_zbozi2, popis1, 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, id_zbozi_dostupnost 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 zbozi.id_zbozi IN (" & rs("prislusenstvi") & ") AND zobrazit = 1 AND zbozi.smazano = 0" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %> <% end if rs2.close end if %>

<%= rs("nazev_zbozi2") %> <% if not session("porovnani_kat") = "" then pocet = 0 seznam = split(session("porovnani_kat"),",") for start = 0 to ubound(seznam) - 1 if start = 0 then porovnani_kat = seznam(start) end if pocet = pocet + ubound(split(session("porovnani" & seznam(start)),",")) next %> Máte přidáno zboží k porovnání (<%= pocet %>)   zbozi-porovnat.asp?id_kat=<%= porovnani_kat %>">Zobrazit|zbozi-porovnat-odstranit.asp">Odstranit vše <% end if %> gfx/bikestore/ik/ik_zbozi_dotazy.png" ALT="" WIDTH="22" HEIGHT="22" BORDER="0">Časté dotazy   zbozi-porovnat-pridat.asp?zbozi=<%= rs("id_zbozi") %>">gfx/bikestore/ik/ik_zbozi_porovnat.png" ALT="" WIDTH="22" HEIGHT="22" BORDER="0">Porovnat   zbozi-vytisknout.asp?odkaz_zbozi=<%= rs("odkaz") %>">gfx/bikestore/ik/ik_zbozi_tisk.png" ALT="" WIDTH="22" HEIGHT="22" BORDER="0">Vytisknout <% if session("info_email_zaslano") = "1" then %> Informace o zboží byly zaslány <% session("info_email_zaslano") = "" %> <% end if %> display: none; <% end if %>; text-align: left"> Pošlete informace o tomto zboží svému kamarádovi zbozi-info-na-email.asp" NAME="form_info_emailem" ONSUBMIT="return kontrola_info_emailem()"> "> "> "> Vaše jméno Email příjemce Více emailů oddělte čárkou <% 'kontrola uložení obrázku set f = server.createobject("scripting.filesystemobject") if f.fileexists (server.mappath("obr_zbozi/" & session("server") & "/" & odkaz_foto & "-v.jpg")) = true then obr = true else obr = false end if set f = nothing %> <% if foto_pocet > 0 and obr = true then %> obr_zbozi/<%= session("server") %>/<%= odkaz_foto %>-v.jpg" data-lightbox="photo" data-title="<%= rs("nazev_zbozi2") %>"> obr_zbozi/<%= session("server") %>/<%= odkaz_foto %>-v.jpg" ALT="<%= rs("nazev_zbozi2") %>" BORDER="0"> <% else %> gfx/<%= session("server") %>/obr_neni_v.png" ALT="" BORDER="0"> <% end if %> <% if rs("darek") <> "" and rs("darek_typ") <> 4 then %>gfx/<%= session("server") %>/ik/darek.png" ALT="Ke zboží dostanete dárek" BORDER="0" HSPACE="0" VSPACE="4">  <% end if %> <% if rs("splatky") = 1 then %>gfx/<%= session("server") %>/ik/splatky.png" ALT="Zboží lze zakoupit na splátky" BORDER="0" HSPACE="0" VSPACE="4"><% end if %> <% if rs("id_zbozi_dostupnost") = 1 then %>gfx/<%= session("server") %>/ik/skladem.png" ALT="Zboží je skladem ihned k dodání" BORDER="0" HSPACE="0" VSPACE="4">  <% end if %> <% if sleva > 0 then %> gfx/<%= session("server") %>/ik/akce.png" ALT="Sleva na zboží" BORDER="0" HSPACE="0" VSPACE="4">-<%= sleva %>%   <% end if %> <%= formatnumber(cena,0) %> Kč<% if sleva > 0 then %>  <%= formatnumber(rs("cena_puvodni"),0) %>,-<% end if %><% if rs("kr") > 0 then %> nákupních kreditů"> +<%= rs("kr") %> informace.asp" target="_blank">kreditů<% end if %> <% if not rs("popis1") = "" then %> <%= rs("popis1") %> <% end if %> kosik-pridani.asp" NAME="form_kosik" onsubmit="return kontrola_kosik()"> <% if rs("darek") <> "" and rs("darek_typ") <> 4 then id_zbozi = rs("id_zbozi") darek = rs("darek") darek_typ = rs("darek_typ") ajax = false %> <% end if %> Termín dodání: <%= rs("popis_dostupnost") %> <% if not rs("rocnik") = "" then %>Model: <%= rs("rocnik") %> <% end if %> Výrobce: <%= rs("nazev_znacka") %> gfx/<%= session("server") %>/ik/kosik.png" ALT="Přidat do nákupního košíku" BORDER="0"> <% 'kontrola variant Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT id_zbozi_dostupnost, sleva, cena, cena_puvodni, cena_karty1, cena_karty2, cena_karty3, var_nazev, zbozi.odkaz AS odkaz_zbozi, id_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat FROM zbozi, s_zbozi, zbozi_kat WHERE skupina > 0 AND skupina = " & rs("skupina") & " AND s_zbozi.id_s_zbozi = zbozi.id_s_zbozi AND zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND zbozi.smazano = 0 AND skupina_zobrazit = 1 ORDER BY var_nazev" rs2.Open strSQL, conn, 1, 1 if not rs2.eof or (rs("var_nazev") <> "" and isnull(rs("var_nazev")) = false) then varianty = true pocet = rs2.recordcount %> Varianty: <% if pocet <= 1 then %> <% 'úprava cen pro příhlášené zákazníky sleva2 = rs("sleva") cena2 = rs("cena") cena_puvodni2 = rs("cena_puvodni") cena_karty1 = rs("cena_karty1") cena_karty2 = rs("cena_karty2") cena_karty3 = rs("cena_karty3") id_zbozi_dostupnost = rs("id_zbozi_dostupnost") %> <% else %> <% start_js = 0 do while not rs2.eof if pocet > 1 then javascript = javascript & " && document.form_kosik.zbozi[" & start_js & "].checked == false" end if start_js = start_js + 1 %> <% 'úprava cen pro příhlášené zákazníky sleva2 = rs2("sleva") cena2 = rs2("cena") cena_puvodni2 = rs2("cena_puvodni") cena_karty1 = rs2("cena_karty1") cena_karty2 = rs2("cena_karty2") cena_karty3 = rs2("cena_karty3") id_zbozi_dostupnost = rs2("id_zbozi_dostupnost") %> <% rs2.movenext loop javascript = right(javascript, len(javascript) - 4) end if %> " CHECKED> <% if rs("var_nazev") <> "" then %><%= rs("var_nazev") %><% end if %> <%= formatnumber(cena,0) %> Kč<% if rs("id_zbozi_dostupnost") = 1 then %>  Skladem<% end if %> <%= rs2("odkaz_kat") %><%= rs2("odkaz_zbozi") %>.htm?v=1&var=1'" TYPE="radio" NAME="zbozi" VALUE="<%= rs2("id_zbozi") %>"<% if rs("id_zbozi") = rs2("id_zbozi") then %> CHECKED<% end if %>> <% if rs2("var_nazev") <> "" then %><%= rs2("var_nazev") %><% end if %> <%= formatnumber(cena,0) %> Kč<% if rs2("id_zbozi_dostupnost") = 1 then %>  Skladem<% end if %> (po změně varianty se zobrazí příslušný popis) <% else %> "> <% end if rs2.close %> <% if foto_pocet > 1 then %> <% if obr = true then %> <% for start = 2 to clng(foto_pocet) %> <% 'kontrola uložení obrázku set f = server.createobject("scripting.filesystemobject") if f.fileexists (server.mappath("obr_zbozi/" & session("server") & "/" & odkaz_foto & "-m" & start & ".jpg")) = true then %> obr_zbozi/<%= session("server") %>/<%= odkaz_foto %>-v<%= start %>.jpg" data-lightbox="photo" data-title="<%= rs("nazev_zbozi2") %>">obr_zbozi/<%= session("server") %>/<%= odkaz_foto %>-m<%= start %>.jpg" ALT="" BORDER="0" style="margin: 4px"> <% end if set f = nothing %> <% next %> <% end if %> <% end if %>

<% 'zobrazení záložky - popis if rs("popis2") <> "" and isnull(rs("popis2")) = false then zalozka1 = true zalozka1_on = true else zalozka1 = false zalozka1_on = false end if 'zobrazení záložky - návody set f = server.createobject("scripting.filesystemobject") if f.folderexists(server.mappath("data_shopy/navod/" & session("server") & "/" & rs("id_zbozi"))) = true then set fo = f.getfolder(server.mappath("data_shopy/navod/" & session("server") & "/" & rs("id_zbozi"))) if fo.files.count > 0 then zalozka2 = true zalozka2_on = true else zalozka2 = false zalozka2_on = false end if else zalozka2 = false zalozka2_on = false end if 'zobrazení záložky - video if rs("video1") <> "" and isnull(rs("video1")) = false then zalozka3 = true zalozka3_on = true else zalozka3 = false zalozka3_on = false end if if zalozka1 = true or zalozka2 = true or zalozka3 = true then %> Podrobný popis Návody Videa Popis zboží <%= rs("nazev_zbozi2") %> <%= replace(rs("popis2"),vbcr," ") %> <% if zalozka2 = true then for each fi in fo.files %> data_shopy/navod/<%= session("server") %>/<%= rs("id_zbozi") %>/<%= fi.name %>"><%= fi.name %> <% next end if set f = nothing set fo = nothing %> <%= rs("video1") %> <% end if %> <% 'počet parametrů Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, nazev_pole FROM zbozi_param_typ WHERE zobrazit = 1 AND id_zbozi_kat = " & clng(session("id_kat")) & " ORDER BY id_zbozi_param_typ" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %> gfx/<%= session("server") %>/pixel.gif" ALT="" ID="obrazek" BORDER="0"> Parametry (pro variantu <%= rs("var_nazev") %>) Parametry zboží <%= rs("nazev_zbozi2") %> <% 'parametry Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & clng(session("id_kat")) & " WHERE id_zbozi = " & rs("id_zbozi") rs3.Open strSQL, conn, 1, 1 if not rs3.eof then do while not rs2.eof if isnull(rs3(cstr(rs2("nazev_pole")))) = false and not rs3(cstr(rs2("nazev_pole"))) = "0" and not rs3(cstr(rs2("nazev_pole"))) = "" then %> <% end if rs2.movenext loop end if rs3.close %> <%= rs2("nazev") %> <% if rs3(cstr(rs2("nazev_pole"))) = true then %> ano <% elseif rs3(cstr(rs2("nazev_pole"))) = false then %> ne <% else %> <%= rs3(cstr(rs2("nazev_pole"))) %> <% end if %> <% end if rs2.close %> gfx/<%= session("server") %>/pixel.gif" ALT="" ID="obrazek" BORDER="0"> Časté dotazy Přečtěte si odpovědi na nejčastější dotazy (FAQ) ... <% Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_dotazy WHERE id_zbozi = " & rs("id_zbozi") & " AND zobrazit = 1" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %> <% do while not rs2.eof nazev_dotaz = "dotaz" & rs2("id_zbozi_dotazy") %> <%= rs2("obsah") %> <%= replace(rs2("odpoved"),vbcrlf," ") %> <% rs2.movenext loop %> <% else %> Žádné dotazy zatím nebyly napsány <% end if rs2.close %> ... nebo nám svůj dotaz pošlete: <% if session("dotaz_zaslano") = "1" then %><% session("dotaz_zaslano") = "" %> Dotaz byl odeslán <% end if %> <% if not session("chyba_dotaz") = "" then %> <%= session("chyba_dotaz") %> <% session("chyba_dotaz") = "" %> <% end if %> Dotaz na toto zboží zbozi-dotaz.asp" NAME="form_dotazy" ONSUBMIT="return kontrola_dotazy()"> "> "> Jméno "> Email "> Telefon "> <%= request("obsah") %>

K tomuto zboží doporučujeme <% do while not rs2.eof %> <% rs2.movenext loop %>

<% else rs.close conn.close response.clear response.redirect "stranka-nenalezena.asp" end if rs.close conn.close %>