Porovnání zboží

Máte přidáno zboží k porovnání (<%= pocet %>)   zbozi-porovnat-odstranit.asp?id_kat=<%= request("id_kat") %>">Odstranit vše

Máte vybráno zboží z těchto kategorií
<% for start = 0 to ubound(seznam) - 1 nazev_kat = "" Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT strom, id_zbozi_kat, odkaz_strom FROM zbozi_kat WHERE id_zbozi_kat = " & clng(seznam(start)) rs.Open strSQL, conn, 1, 1 strom = rs("strom") & "," & rs("id_zbozi_kat") odkaz = rs("odkaz_strom") id_kat = rs("id_zbozi_kat") rs.close Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM zbozi_kat WHERE id_zbozi_kat IN (" & strom & ")" rs.Open strSQL, conn, 1, 1 do while not rs.eof nazev_kat = nazev_kat & rs("nazev") & " - " rs.movenext loop nazev_kat = left(nazev_kat,len(nazev_kat) - 3) pocet = ubound(split(session("porovnani" & seznam(start)),",")) %> <%= odkaz %>"><%= nazev_kat %> (<%= pocet %>)   |   <% if request("id_kat") <> cstr(id_kat) then %>zbozi-porovnat.asp?id_kat=<%= id_kat %>">Zobrazit zboží<% else %>Zobrazit zboží<% end if %>
<% next end if if seznam_zbozi <> "" then %>

<% seznam_zbozi = left(seznam_zbozi,len(seznam_zbozi)-1) 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, kr, foto_pocet_bez_vodoznaku, 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_kat = " & clng(request("id_kat")) & " AND id_zbozi IN (" & replace(seznam_zbozi,"'","") & ") AND zbozi.smazano = 0 ORDER BY id_zbozi" rs2.Open strSQL, conn, 1, 1 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") %> <% rs2.movenext loop rs2.close %> <% '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(request("id_kat")) & " ORDER BY id_zbozi_param_typ" rs2.Open strSQL, conn, 1, 1 if not rs2.eof then 'parametry Set rs3 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param" & clng(request("id_kat")) & " WHERE id_zbozi IN (" & replace(seznam_zbozi,"'","") & ") ORDER BY id_zbozi" rs3.Open strSQL, conn, 1, 1 'response.write strSQL do while not rs2.eof %> <% do while not rs3.eof %> <% if isnull(rs3(cstr(rs2("nazev_pole")))) = false and rs3(cstr(rs2("nazev_pole"))) <> "0" and rs3(cstr(rs2("nazev_pole"))) <> "" then %> <% if rs3(cstr(rs2("nazev_pole"))) = true then %> <% elseif rs3(cstr(rs2("nazev_pole"))) = false then %> <% else %> <% end if %> <% else %> <% end if %> <% rs3.movenext loop %> <% if rs3.recordcount > 0 then rs3.movefirst end if rs2.movenext loop rs3.close %>

	<% 'kontrola uložení obrázku set f = server.createobject("scripting.filesystemobject") if f.fileexists (server.mappath("obr_zbozi/" & session("server") & "/" & rs2("odkaz") & "-m.jpg")) = true then obr = true else obr = false end if set f = nothing %> " HREF="<%= session("cesta_web") %><%= rs2("odkaz_kat") %><%= rs2("odkaz") %>.htm"> <% if rs2("foto_pocet") > 0 and obr = true then %>obr_zbozi/<%= session("server") %>/<%= rs2("odkaz") %>.jpg" ALT="<%= rs2("nazev_zbozi2") %>" BORDER="0"><% else %>gfx/<%= session("server") %>/obr_neni.png" ALT="" BORDER="0"><% end if %> " HREF="<%= session("cesta_web") %><%= rs2("odkaz_kat") %><%= rs2("odkaz") %>.htm" CLASS="nazev"><%= rs2("nazev_zbozi2") %> <%= formatnumber(cena,0) %>,- Kč <% if sleva > 0 then %><%= formatnumber(rs2("cena_puvodni"),0) %>,-<% end if %> kosik-pridani.asp?zbozi=<%= rs2("id_zbozi") %>">gfx/<%= session("server") %>/ik/kosik_m.png" ALT="Přidat do nákupního košíku" BORDER="0" ALIGN="right" ID="kosik-m">
<%= rs2("nazev") %>	ano	ne	<%= rs3(cstr(rs2("nazev_pole"))) %>	neuvedeno

<% else %>



<% end if rs2.close conn.close elseif session("porovnani_kat") = "" then %>



<% end if %>