<%@language="VBScript"%> <% Response.Expires = 0 %> <% '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, foto_pocet, foto_pocet_bez_vodoznaku FROM zbozi, s_zbozi, s_znacka, zbozi_dostupnost WHERE zbozi.odkaz LIKE '" & sqlinjection2(request("odkaz_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 rs.eof then rs.close conn.close response.clear response.redirect "stranka-nenalezena.asp" else %> <% 'ú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") %> <% 'odkaz kategorie Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT odkaz_strom FROM zbozi_kat WHERE id_zbozi_kat = " & rs("id_zbozi_kat") rs2.Open strSQL, conn, 1, 1 odkaz_kat = rs2("odkaz_strom") rs2.close %> "> ">

">gfx/<%= session("server") %>/logo_tisk.png" ALT="" BORDER="0">	Vytvořeno: <%= formatdatetime(now,2) %> Podrobnosti o zboží z internetového obchodu ">www.<%= session("server") %>.cz
<%= odkaz_kat %><%= rs("odkaz") %>.htm"><%= rs("nazev_zbozi2") %>

<% 'kontrola uložení obrázku set f = server.createobject("scripting.filesystemobject") if f.fileexists (server.mappath("obr_zbozi/" & session("server") & "/" & rs("odkaz") & ".jpg")) = true then obr = true else obr = false end if set f = nothing %> <% if rs("foto_pocet") > 0 and obr = true then %> <% end if %>

obr_zbozi/<%= session("server") %>/<%= rs("odkaz") %>.jpg" ALT="<%= rs("nazev_zbozi2") %>" BORDER="1" STYLE="margin-bottom: 3px">

<% if rs("akce") = true then %>gfx/<%= session("server") %>/ik/akce.png" ALT="Na toto zboží platí speciální akce" BORDER="0" HSPACE="6" VSPACE="4"><% end if %> <% if rs("id_zbozi_dostupnost") = 1then %>gfx/<%= session("server") %>/ik/skladem.png" ALT="Zboží je skladem ihned k dodání" BORDER="0" HSPACE="6" VSPACE="4"><% end if %> <%= cena %> Kč <% if sleva > 0 then %>(původní cena <%= rs("cena_puvodni") %>, sleva <%= sleva %>%)<% end if %> <% if not rs("popis1") = "" then %> <%= rs("popis1") %> <% end if %> <% 'varianty zboží Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi, s_zbozi WHERE s_zbozi.id_s_zbozi = zbozi.id_s_zbozi AND skupina > 0 AND skupina = " & rs("skupina") & " AND s_zbozi.smazano = 0 AND skupina_zobrazit = 1 ORDER BY var_nazev" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then %> Varianty: <% if not rs2.eof then start = 0 do while not rs2.eof %> <% 'ú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") %> <% start = start + 1 %> <%= rs2("var_nazev") %> - <%= cena %> Kč <% rs2.movenext loop end if %> <% end if rs2.close %>

<% for start = 2 to rs("foto_pocet") %> <% next %> obr_zbozi/<%= session("server") %>/<%= request("odkaz_zbozi") %>-m<%= start %>.jpg" ALT="" BORDER="1">

<% if rs("popis2") <> "" then %> Podrobný popis <%= rs("popis2") %> <% end if %>

Parametry <% 'počet parametrů Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev, nazev_pole FROM zbozi_param_typ WHERE zobrazit = 1 AND id_zbozi_kat = " & rs("id_zbozi_kat") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then 'parametry Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & rs("id_zbozi_kat") & " WHERE id_zbozi = " & rs("id_zbozi") rs3.Open strSQL, conn, 1, 1 do while not rs2.eof %> <% if isnull(rs3(cstr(rs2("nazev_pole")))) = false and not rs3(cstr(rs2("nazev_pole"))) = "0" then %> <% if rs3(cstr(rs2("nazev_pole"))) = true then %> <% elseif rs3(cstr(rs2("nazev_pole"))) = false then %> <% else %> <% end if %> <% else %> <% end if %> <% rs2.movenext loop rs3.close end if rs2.close %> <%= rs2("nazev") %> ano ne <%= rs3(cstr(rs2("nazev_pole"))) %> -

Odkaz na zboží: <%= session("cesta_web") %><%= odkaz_kat %><%= rs("odkaz") %>.htm    © Copyright <%= session("server_nazev") %> <%= year(now) %>

<% end if rs.close conn.close %>