Infoexpress - Cafes - records found

<%=rs_kawiarnie.recordcount %> records have been found.

<% If kryt_wojew <> "" Then %> <% End If%> <% If kryt_miejs <> "" Then %> <% End If %> <% If kryt_dzieln <> "" Then %> <% End If %> <% If kryt_nazwa <> "" Then %> <% End If %> <% If kryt_kuch <> "" Then %> <% End If %> <% If kryt_atut <> "" Then %> <% End If %> <% If kryt_usluga <> "" Then %> <% End If %> <% If w_ile_miejsc <> "" Then %> <% End If %> <% If w_stoliki <> "" Then %> <% End If %> <% If (w_dzien <> "" And w_od_godz <> "") Or (w_dzien <> "" And w_do_godz <> "") Then %> <% End If %>


Province:
	<%=Iso2Win(kryt_wojew) %>
Locality:
	<%=Iso2Win(kryt_miejs)%>
Quarter:
	<%=Iso2Win(kryt_dzieln)%>
Name:
	<%=Iso2Win(Replace(kryt_nazwa,"%","..."))%>
Kitchen:
	<%=Iso2Win(kryt_kuch)%>
Advantages:
	<%=Iso2Win(kryt_atut)%>
Extra services:
	<%=Iso2Win(kryt_usluga)%>
Number of seats:
	<%= w_ile_miejsc %>
Number of tables:
	<%= w_stoliki %>
Opening hours:
	<%= Iso2Win(w_dzien) %>
	<% If w_od_godz <> "" Then Response.Write (" od " & w_od_godz) End If If w_do_godz <> "" Then If Session("do_godz") = 1000 Then ' w_do_godz = "dłużej" Then - starsza wersja, nie chodzi jak trzeba If w_od_godz = "" Then Response.Write (" po 23.00") End If Else Response.Write (" do " & w_do_godz) End If End If %>

<% i = 0 REM Przewin do nastepnej strony 'Do While (Not rs_kawiarnie.EOF) AND ((i/PageCount) < Page) ' rs_kawiarnie.MoveNext ' i = i + 1 'Loop 'wyswietl wartosci PageCount i Page w celach sprawdzenia poprawnosci dzialania 'Response.Write("PageCount = " & PageCount & " Page = " & Page & " i= " & i) i = 0 ' zeruj, aby uzyc ponownie counter = 0 Do While (Not rs_kawiarnie.EOF) AND (counter < PageCount) counter = counter + 1 %> <% rs_kawiarnie.MoveNext Loop %>

<% If Not IsEmpty(rs_kawiarnie("tk_URL2")) And Not rs_kawiarnie("tk_URL2") = "" Then Response.Write ("" & Iso2Win(rs_kawiarnie("tk_nazwa")) & "") Else Response.Write (Iso2Win(rs_kawiarnie("tk_nazwa"))) End If %>

<%=(Iso2Win(Trim(rs_kawiarnie("tm_nazwa"))) & " " & Iso2Win(Replace(Trim(rs_kawiarnie("tk_adres")), " " , " ")))%> <% If Not IsNull(rs_kawiarnie("tk_telefon")) and Trim(rs_kawiarnie("tk_telefon")) <> "" Then Response.Write("
phone: " & rs_kawiarnie("tk_telefon")) End If %>

<% If Not IsNull(rs_kawiarnie("tk_URL2")) AND Not rs_kawiarnie("tk_URL2") ="" And rs_kawiarnie("tk_prezentacja") = 1 Then %> <% i=i+1 'licznik wykorzystywany do numerowania funkcji w javascript %> " ONMOUSEOVER="document['fpAnimswapImgFP2<%=i%>'].imgRolln=document['fpAnimswapImgFP2<%=i%>'].src;document['fpAnimswapImgFP2<%=i%>'].src=document['fpAnimswapImgFP2<%=i%>'].lowsrc;" ONMOUSEOUT="document['fpAnimswapImgFP2<%=i%>'].src=document['fpAnimswapImgFP2<%=i%>'].imgRolln">

<%Else%> <% End If %>

<% If Not Page = 0 Then %> <% End If %> cofnij

<% If Not Page = 0 Then %> <% End If %>

Page <%=Page+1%> of <%=AllPages%>

<% If Not rs_kawiarnie.EOF Then %> <% End If %> przewiñ dalej

<% If Not rs_kawiarnie.EOF Then %> <% End If %>