<%@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") 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 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 OR skupina_zobrazit = 1) AND ks_sklad - ks_blok > 0" 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") '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") & " " & rs("rocnik")) popis1 = entity(rs("popis1")) popis2 = entity(rs("popis2") & vbcrlf & vbcrlf & "Rok výroby: " & rs("rocnik")) znacka = entity(rs("nazev_znacka")) soubor.WriteLine(" ") soubor.WriteLine(" " & rs("ean") & "") 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 & "") 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") strSQL = "SELECT ean, id_zbozi 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 > 0" rs4.Open strSQL, conn, 1, 1 do while not rs4.eof soubor.WriteLine(" ") soubor.WriteLine(" " & rs4("ean") & "") 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(" " & entity(parametr) & "") rs2.movenext loop end if rs3.close soubor.WriteLine(" ") end if rs2.close soubor.WriteLine(" ") rs.movenext loop rs.close conn.close soubor.WriteLine("") response.write start %>