<%@language="VBScript"%> <% Response.Expires = 0 %> <% Server.ScriptTimeout = 1000 set f = server.createobject("scripting.filesystemobject") set soubor = f.CreateTextFile(Server.MapPath("kasa_kat.txt"),true) soubor.WriteLine("") soubor.WriteLine("") Set rs = CreateObject("ADODB.RecordSet") strSQL = "SELECT * FROM zbozi_kat ORDER BY id_zbozi_kat" rs.Open strSQL, conn, 1, 1 do while not rs.eof soubor.WriteLine(" ") soubor.WriteLine(" " & rs("nazev") & "") soubor.WriteLine(" " & rs("strom") & "") soubor.WriteLine(" ") rs.movenext loop rs.close conn.close soubor.WriteLine("") %>