<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "prebud" Conn.execute ("SET CHARACTER SET latin2;") Set RS=Conn.Execute("select * from ref where categ=1") do while Not RS.EOF %>
  • <%=MakeText(RS("name"))%>
    <% RS.MoveNext Loop RS.Close %>


    <% Set RS=Conn.Execute("select * from ref where categ=2") do while Not RS.EOF %>
  • <%=MakeText(RS("name"))%>
    <% RS.MoveNext Loop RS.Close Conn.Close Function MakeText(txt) artykul=txt do while left(artykul,1)=" " or left(artykul,1)=chr(10) artykul=mid(artykul,2) loop do while right(artykul,1)=" " or right(artykul,1)=chr(10) artykul=left(artykul,len(artykul)-1) loop if artykul<>"" then artykul=Replace(artykul,chr(13),"") artykul=Replace(artykul,chr(10),"
    ") end if MakeText = artykul End Function %>