<%@language="VBScript"%>
<% Response.Expires = 0 %>
<% Server.Execute("inc_shopy/" & session("server") & "/head.asp") %>
<%
'banery slider
banery = ""
baner_start = 0
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM reklama_uvod WHERE zobrazit = 1 ORDER BY id_reklama_uvod"
rs.Open strSQL, conn, 1, 1
if not rs.eof then
baner_pocet = rs.recordcount
do while not rs.eof
baner_start = baner_start + 1
if rs("odkaz_druh") = 1 then
if rs("odkaz2") <> "" then odkaz = "http://" & rs("odkaz2") else odkaz = "" end if
else
odkaz = session("cesta_web") & "akce/" & rs("odkaz")
end if
img = session("cesta_web") & "data_shopy/baner_uvod/" & session("server") & "/" & rs("id_reklama_uvod") & "." & rs("pripona") & "?" & rnd
if baner_start = 0 then
banery = banery & "![]()
" & vbcrlf
else
banery = banery & "![]()
" & vbcrlf
end if
rs.movenext
loop
rs.close
%>
<%
end if
%>
gfx/<%= session("server") %>/pixel.gif" ALT="" ID="obrazek" BORDER="0">
Proč nakupovat u nás?
Profesionální servis
Odborné poradenství
Kamenná prodejna v Praze
Věrnostní program
Již více než 20 let na trhu
Skladem přes 12000 produktů
Více než 300 kol skladem
Prodloužená záruka na kola
<%
'banery malé
banery_male = ""
baner_start2 = 0
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM reklama_uvod_mala WHERE zobrazit = 1 ORDER BY id_reklama_uvod_mala"
rs.Open strSQL, conn, 1, 1
if not rs.eof then
baner_pocet = rs.recordcount
do while not rs.eof
baner_start2 = baner_start2 + 1
if rs("odkaz_druh") = 1 then
if rs("odkaz2") <> "" then odkaz = "http://" & rs("odkaz2") else odkaz = "" end if
else
odkaz = session("cesta_web") & "akce/" & rs("odkaz")
end if
img = session("cesta_web") & "data_shopy/baner_uvod_maly/" & session("server") & "/" & rs("id_reklama_uvod_mala") & "." & rs("pripona")
banery_male = banery_male & "" & vbcrlf
rs.movenext
loop
rs.close
%>
<%= banery_male %>
<%
end if
%>
<%
'reklamní textový odkaz
Set rs = CreateObject("ADODB.RecordSet")
strSQL = "SELECT * FROM reklama_uvod_text WHERE zobrazit = 1"
rs.Open strSQL, conn, 1, 1
if not rs.eof then
%>
<%
end if
rs.close
%>
gfx/<%= session("server") %>/pixel.gif" ALT="" ID="obrazek" BORDER="0">
Doporučujeme
<%
Set rs = CreateObject("ADODB.RecordSet")
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 dop_uvod = 1 AND zobrazit = 1 AND zbozi.smazano = 0 ORDER BY razeni_dop_uvod ASC"
rs.Open strSQL, conn, 1, 1
if not rs.eof then
porovnat_zbozi = 0
do while not rs.eof
%>
<%
rs.movenext
loop
end if
%>
<% Server.Execute("inc_shopy/" & session("server") & "/bottom.asp") %>