<%@language="VBScript"%> <% Response.Expires = 0 %> <% function entity(obsah) if isnull(obsah) = false then obsah = replace(obsah,"&","&") obsah = replace(obsah,"""",""") obsah = replace(obsah,"<","<") obsah = replace(obsah,">",">") entity = obsah end if end function Server.ScriptTimeout = 1500 set f = server.createobject("scripting.filesystemobject") set soubor = f.CreateTextFile(Server.MapPath("kasa.txt"),true) soubor.WriteLine("") soubor.WriteLine("") start = 0 Set rs = CreateObject("ADODB.RecordSet") 'filtrování ks skladem - 1ks skladem u kol, jinak 3ks strSQL = "SELECT *, zbozi.odkaz AS odkaz_zbozi, s_zbozi.nazev2 AS nazev2_zbozi, s_znacka.nazev AS nazev_znacka, zbozi_kat.nazev AS nazev_kat, strom FROM zbozi, s_zbozi, s_znacka, zbozi_kat WHERE zbozi.id_s_zbozi = s_zbozi.id_s_zbozi AND s_zbozi.id_s_znacka = s_znacka.id_s_znacka AND zbozi.id_zbozi_kat = zbozi_kat.id_zbozi_kat AND zbozi.smazano = 0 AND s_zbozi.smazano = 0 AND zobrazit = 1 AND (((strom LIKE '0,1' OR strom LIKE '0,1,%') AND ks_sklad - ks_blok >= 1) OR (ks_sklad - ks_blok >= 3))" rs.Open strSQL, conn, 1, 1 pocet = rs.recordcount do while not rs.eof ks_skladem = rs("ks_sklad") - rs("ks_blok") start = start + 1 'počet ks skladem skladem = rs("ks_sklad") - rs("ks_blok") 'přepočítání slevy if rs("sleva") > 0 and rs("cena_puvodni") > 0 then sleva = round((rs("cena_puvodni") - rs("cena_kasa")) / (rs("cena_puvodni") / 100),0) else sleva = 0 end if 'html entity nazev_zbozi = entity(rs("nazev_zbozi")) popis1 = entity(rs("popis1")) popis2 = entity(rs("popis2")) znacka = entity(rs("nazev_znacka")) soubor.WriteLine(" ") soubor.WriteLine(" " & rs("nazev_kat") & "") soubor.WriteLine(" " & rs("id_zbozi_kat") & "") soubor.WriteLine(" " & nazev_zbozi & "") soubor.WriteLine(" " & rs("cena_kasa") & "") soubor.WriteLine(" " & skladem & "") soubor.WriteLine(" " & popis1 & "") soubor.WriteLine(" " & popis2 & "") soubor.WriteLine(" " & sleva & "") soubor.WriteLine(" " & rs("rocnik") & "") soubor.WriteLine(" " & znacka & "") soubor.WriteLine(" 0") if f.fileexists(Server.MapPath("../obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-bez-vodoznaku.jpg")) = true then soubor.WriteLine(" " & session("cesta_web") & "obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-bez-vodoznaku.jpg") elseif f.fileexists(Server.MapPath("../obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-kasa.jpg")) = true then soubor.WriteLine(" " & session("cesta_web") & "obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-kasa.jpg") elseif f.fileexists(Server.MapPath("../obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-v.jpg")) = true then soubor.WriteLine(" " & session("cesta_web") & "obr_zbozi/" & session("server") & "/" & rs("odkaz_zbozi") & "-v.jpg") else soubor.WriteLine(" ") end if 'varianty zboží if rs("skupina") > 0 then Set rs4 = CreateObject("ADODB.RecordSet") 'filtrování ks skladem - 1ks skladem u kol, jinak 3ks if rs("strom") = "0,1" or left(rs("strom"),4) = "0,1," then strSQL = "SELECT ks_sklad, nazev_zbozi, cena_kasa, id_zbozi, ks_blok FROM s_zbozi, zbozi WHERE s_zbozi.id_s_zbozi = zbozi.id_s_zbozi AND s_zbozi.smazano = 0 AND zbozi.smazano = 0 AND skupina = " & rs("skupina") & " AND skupina_zobrazit = 1 AND id_zbozi <> " & rs("id_zbozi") & " AND ks_sklad - ks_blok >= 1" else strSQL = "SELECT ks_sklad, nazev_zbozi, cena_kasa, id_zbozi, ks_blok FROM s_zbozi, zbozi WHERE s_zbozi.id_s_zbozi = zbozi.id_s_zbozi AND s_zbozi.smazano = 0 AND zbozi.smazano = 0 AND skupina = " & rs("skupina") & " AND skupina_zobrazit = 1 AND id_zbozi <> " & rs("id_zbozi") & " AND ks_sklad - ks_blok >= 3" end if rs4.Open strSQL, conn, 1, 1 do while not rs4.eof 'počet ks skladem skladem = rs4("ks_sklad") - rs4("ks_blok") 'html entity nazev_zbozi = entity(rs4("nazev_zbozi")) soubor.WriteLine(" ") soubor.WriteLine(" " & nazev_zbozi & "") soubor.WriteLine(" " & rs4("cena_kasa") & "") soubor.WriteLine(" " & skladem & "") soubor.WriteLine(" ") rs4.movenext loop rs4.close end if Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_param_typ WHERE id_zbozi_kat = " & rs("id_zbozi_kat") rs2.Open strSQL, conn, 1, 1 if not rs2.eof then soubor.WriteLine(" ") 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, 3 if not rs3.eof then do while not rs2.eof if rs3(cstr(rs2("nazev_pole"))) = true then parametr = "ano" elseif rs3(cstr(rs2("nazev_pole"))) = false then parametr = "ne" else parametr = rs3(cstr(rs2("nazev_pole"))) end if soubor.WriteLine(" <" & replace(rs2("nazev_pole"),"p_","") & " nazev=""" & rs2("nazev") & """>" & entity(parametr) & "") rs2.movenext loop end if rs3.close soubor.WriteLine(" ") end if rs2.close soubor.WriteLine(" ") rs.movenext 'if start > 50 then exit do end if loop rs.close conn.close soubor.WriteLine("") response.write start %>