Infoexpress - Discos - records found

<%=rs_dyskoteki.recordcount %> discos 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_atut <> "" Then %> <% End If %> <% If kryt_park <> "" Then %> <% End If %> <% If kryt_bary <> "" Then %> <% End If %> <% If w_powierzchnia <> "" 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)%>
District:
	<%=Iso2Win(kryt_dzieln)%>
Name:
	<%=Iso2Win(Replace(kryt_nazwa,"%","..."))%>
Advantages:
	<%=Iso2Win(kryt_atut)%>
Dance floors:
	<%=Iso2Win(kryt_park)%>
Bars:
	<%=Iso2Win(kryt_bary)%>
Utility surface:
	<%= Iso2Win(w_powierzchnia) %>
Opening hours:
	<%= Iso2Win(w_dzien) %>
	<% If w_od_godz <> "" Then Response.Write (" from " & w_od_godz) End If If w_do_godz <> "" Then If Session("do_godz") = 13 Then ' w_do_godz = "duej" Then - starsza wersja, nie chodzi jak trzeba If w_od_godz = "" Then Response.Write (" after 6.00") End If Else Response.Write (" after " & w_do_godz) End If End If %>

<% i = 0 REM Przewin do nastepnej strony 'Do While (Not rs_dyskoteki.EOF) AND ((i/PageCount) < Page) ' rs_dyskoteki.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_dyskoteki.EOF) AND (counter < PageCount) counter = counter + 1 %> <% rs_dyskoteki.MoveNext Loop %>

<% If Not IsEmpty(rs_dyskoteki("td_URL2")) And Not rs_dyskoteki("td_URL2") = "" Then Response.Write ("" & Iso2Win(rs_dyskoteki("td_nazwa")) & "") Else Response.Write (Iso2Win(rs_dyskoteki("td_nazwa"))) End If %>

<%=(Iso2Win(Trim(rs_dyskoteki("tm_nazwa"))) & " " & Iso2Win(Replace(Trim(rs_dyskoteki("td_adres")), " ", " ")))%> <% If Not IsNull(rs_dyskoteki("td_telefon")) and Trim(rs_dyskoteki("td_telefon")) <> "" Then Response.Write("
phone: " & rs_dyskoteki("td_telefon")) End If 'If Not IsNull(rs_dyskoteki("td_fax")) Then ' Response.Write(" fax: " & rs_dyskoteki("td_fax")) 'End If %>

<% If Not IsNull(rs_dyskoteki("td_URL2")) AND Not rs_dyskoteki("td_URL2") ="" 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 %> previous

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

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

<% If Not rs_dyskoteki.EOF Then %> <% End If %> next <% If Not rs_dyskoteki.EOF Then %> <% End If %>