<%@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") if request("sklad") = "1" then 'jen skladem set soubor = f.CreateTextFile(Server.MapPath("zbozi_sklad.xml"),true) else set soubor = f.CreateTextFile(Server.MapPath("zbozi.xml"),true) end if soubor.WriteLine("") soubor.WriteLine("") start = 0 Set rs = CreateObject("ADODB.RecordSet") if request("sklad") = "1" then 'jen skladem strSQL = "SELECT *, zbozi.odkaz AS odkaz_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat, s_znacka.nazev AS nazev_znacka, strom, s_zbozi.nazev2 AS nazev2 FROM zbozi, s_zbozi, zbozi_kat, s_znacka 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 OR skupina_zobrazit = 1) AND id_zbozi_dostupnost = 1" else strSQL = "SELECT *, zbozi.odkaz AS odkaz_zbozi, zbozi_kat.odkaz_strom AS odkaz_kat, s_znacka.nazev AS nazev_znacka, strom, s_zbozi.nazev2 AS nazev2 FROM zbozi, s_zbozi, zbozi_kat, s_znacka 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 OR skupina_zobrazit = 1)" end if rs.Open strSQL, conn, 1, 1 do while not rs.eof start = start + 1 'počet ks skladem skladem = rs("ks_sklad") - rs("ks_blok") 'html entity nazev_zbozi = entity(rs("nazev_zbozi2")) if rs("nazev2") <> "" and instr(nazev_zbozi," " & rs("nazev2")) > 0 then nazev_zbozi = replace(nazev_zbozi," " & rs("nazev2"),"") end if popis = entity(left(rs("popis2"),1000)) 'generování kategorie kategorie = "" seznam = split(rs("strom") & "," & rs("id_zbozi_kat"),",") for s = 0 to ubound(seznam) Set rs2 = CreateObject("ADODB.RecordSet") strSQL = "SELECT nazev FROM zbozi_kat WHERE id_zbozi_kat = " & seznam(s) rs2.Open strSQL, conn, 1, 1 if not rs2.eof then kategorie = kategorie & rs2("nazev") & " | " end if rs2.close next if kategorie <> "" then kategorie = left(kategorie,len(kategorie) - 3) kategorie = entity(kategorie) end if soubor.WriteLine(" ") soubor.WriteLine(" " & rs("id_zbozi") & "") soubor.WriteLine(" " & nazev_zbozi & "") soubor.WriteLine(" " & popis & "") soubor.WriteLine(" " & session("cesta_web") & rs("odkaz_kat") & rs("odkaz_zbozi") & ".htm") soubor.WriteLine(" " & rs("cena") & "") 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") end if if skladem > 0 then soubor.WriteLine(" 0") else soubor.WriteLine(" 3") end if soubor.WriteLine(" " & rs("nazev_znacka") & "") soubor.WriteLine(" " & kategorie & "") soubor.WriteLine(" " & rs("ean") & "") soubor.WriteLine(" ") rs.movenext 'if start = 5 then exit do end if loop rs.close conn.close soubor.WriteLine("") 'opakovane generovani - jen zbozi skladem if request("sklad") = "" then response.clear response.redirect "zbozi.asp?sklad=1&pocet=" & start end if response.write request("pocet") & " vše

" & start & " skladem" %>