<%Response.Expires = 0%> Linki do producentow <% text=Request.Form("text") set con = OpenBase(1) if text = "" Then sq="SELECT * FROM linki ORDER BY nazwa" else sq="SELECT * FROM linki WHERE nazwa LIKE '%" & text & "%' ORDER BY nazwa" end if set rs=con.execute(sq) Dim TFL(256) nfl=0 nnx=0 while not rs.eof nnx=nnx+1 Fl=UCase(mid(Trim(rs(2)),1,1)) TFL(0)=Fl n=nfl while TFL(n) <> Fl n=n-1 wend if n = 0 Then nfl=nfl+1 TFL(nfl)=Fl end if rs.movenext wend if nnx <> 0 Then rs.movefirst end if %>
<% if nfl <> 0 Then %>
<% cola="#DEEEFE" colb="#D0E0F0" col=cola TFL(1)="" for i=1 To nfl if col=colb Then col=cola else col=colb end if %> <% next %>
<%=TFL(i)%>
<% end if %>
<% cola="#DEEEFE" colb="#BCD5FD" col=cola Flet="~" while not rs.eof Fl=UCase(mid(Trim(rs(2)),1,1)) nam=FromBase(rs(2)) url=Trim(FromBase(rs(1))) if Flet <> "~" Then if Fl <> Flet Then %> <% end if end if Flet=Fl %> <% if (rs("mime") = "") Or IsNull(rs("mime")) Then %> <% else %> <% end if %> <% if col=cola Then col=colb else col=cola end if rs.movenext wend set rs=nothing CloseBase(con) %>

  <%=rs(2)%>  <%=rs(2)%>
<% if Flet = "~" Then %> BRAK PRODUCENTÓW Z NAZW· ZAWIERAJ·C· PODCI·G:<%=text%> <% end if %>