<%@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") 'vytvoření dočasného souboru, který bude převeden na kodovani utf-8 a pak smazán set soubor = f.CreateTextFile(Server.MapPath("google_merchant2.xml"),true) soubor.WriteLine("") soubor.WriteLine("") soubor.WriteLine("") soubor.WriteLine("") soubor.WriteLine("http://www.bikestore.cz") soubor.WriteLine("XML feed pro google merchant z eshopu Bikestore.cz") start = 0 Set rs = CreateObject("ADODB.RecordSet") 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)" rs.Open strSQL, conn, 1, 1 do while not rs.eof start = start + 1 'pocet 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)) 'generovani­ 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(" ") soubor.WriteLine(" " & popis & "") soubor.WriteLine(" " & kategorie & "") soubor.WriteLine(" " & kategorie & "") soubor.WriteLine(" " & session("cesta_web") & rs("odkaz_kat") & rs("odkaz_zbozi") & ".htm") soubor.WriteLine(" new") soubor.WriteLine(" " & rs("cena") & " CZK") 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(" in stock") else soubor.WriteLine(" out of stock") end if soubor.WriteLine(" " & rs("nazev_znacka") & "") if rs("ean") = "" or isnull(rs("ean")) = true then soubor.WriteLine(" FALSE")'ean neexistuje else soubor.WriteLine(" TRUE")'ean existuje soubor.WriteLine(" " & rs("ean") & "")'ean end if soubor.WriteLine(" ") rs.movenext 'if start = 5 then exit do end if loop rs.close conn.close soubor.WriteLine("") soubor.WriteLine("") 'nacteni ulozeneho souboru set t = f.OpenTextFile(Server.MapPath("google_merchant2.xml"),1,false) obsah = t.ReadAll t.close 'zapsani souboru v utf-8 formatu Set st = CreateObject("ADODB.Stream") st.Type = 2 st.Charset = "utf-8" st.Open st.WriteText obsah st.SaveToFile Server.MapPath("google_merchant.xml"),2 st.close set st = nothing 'smazání dočasného souboru soubor.close set soubor = nothing if f.FileExists(Server.MapPath("google_merchant2.xml")) then f.DeleteFile(Server.MapPath("google_merchant2.xml")) end if set f = nothing response.write start %>