Infoexpress - fitness - znalezione rekordy

<%@ Language=VBScript%> <% REM ----------------------------- USTAWIENIA BIERZ·CE STRONY ----------------------- REM Pamiêtanie: REM - danych formularza REM - ustawieñ: REM * wojewdztwa REM * miejscowosc REM * dzielnica REM 'zapamietaj wartosci z formularza w Session() 'jesli nie jest to powrot z restauracji If Request.QueryString("return") <> "true" AND Request.QueryString("page") = "" Then 'kasuj ustawienia ustawienia formularza Session("nazwa") = "" Session("atuty") = "" Session("formy") = "" Session("powierzchnia") = "" Session("dzien") = "" Session("od_godz") = "" Session("do_godz") = "" Session("drzwi") = "" For Each FormKey in Request.Form Session(FormKey) = Request.Form.Item(FormKey) Next End If 'zamien z kodowania Windows-1250 na ISO-8859-2 Session("nazwa") = Win2Iso(Session("nazwa")) 'priorytetowa jest nazwa wpisana a nie wybrana z listy If Trim(Session("nazwa")) <> "" Then Session("f4") = 0 End If If Request.QueryString("return") <> "true" AND Not IsEmpty(Request.Form) Then 'Zapamiêtaj w sesji wybrane wojewodztwo Session("wojewodztwo") = Request("wojew") Session("lwojewdztwo") = Request("lwojew") 'Zapamiêtanie w sesji wybrana miejscowosc Session("miejscowosc") = Request("miejsc") Session("lmiejscowosc") = Request("lmiejsc") 'Zapamietanie w sesji wybranej dzielnicy Session("dzielnica") = Request("dzieln") Session("ldzielnica") = Request("ldzieln") End If 'zapamietaj strone na ktorej sie znaduje Session("page") = "page=" & Request.QueryString("page") 'Ustawianie zmiennych dotyczacych tworzenia strony rekordow ' PageCount = 10 ' liczba rekordow na stronie If IsEmpty(Request.QueryString("page")) OR Request.QueryString("page") = "" Then Page = 0 ' jesli nie podano parametru to ustaw na pierwsza strone Else Page = CInt(Request.QueryString("page")) End If REM ------------------------- DEKLARACJA ZMIENNYCH -------------------------- REM Zmienne u¿ywane do wy¶wietlania kryteium wyboru REM ----------------------------------------------- Dim kryt_wojew ' kryterium wojewdztwa Dim kryt_miejsc ' kryterium miejscowosci Dim kryt_dzieln ' kryterium dzielnicy Dim kryt_nazwa ' kryterium nazwa fitness klubu Dim kryt_formy ' kryterium formy ruchu Dim kryt_atuty ' kryterium atuty fitness klubu Dim kryt_powierzchnia ' kryterium powierzchni lokalu Dim kryt_godz ' kryterium godziny otwarcia ' kryt_godz(1) - string w formacie "od [godz] do [godz]" ' kryt_godz(1) - poniedzia³ek ' kryt_godz(2) - wtorek, itd. Dim kryt_tydzien ' kryterium otwarte caly tydzien REM Kursory w tabelkach: t_wojewodztwo, t_miejscowosc, t_dzielnice, t_[obiekt] REM -------------------------------------------------------------------------- Dim rs_nazwa ' kursor w tabelce obiektu Dim rs ' kursor oglnego zastosowania Dim rs_obiekt ' kursor obiektu REM ODCZYT REKORDW Z BAZY DANYCH REM ----------------------------- REM Zmienne przechowujace czê¶ci sk³adowe wyszykiwania w zapytaniach SQL Dim w_wojew ' warunek wyszukiwania ze wzglêdu na wojewodztwo Dim w_miejsc ' warunek wyszukiwania ze wzglêdu na miejscowosc Dim w_dzieln ' warunek wyszukiwania ze wzglêdu na dzielnice Dim w_nazwa ' warunek wyszukiwania ze wzglêdu na nazwê obiektu Dim w_atuty ' warunek wyszukiwania ze wzglêdu na atuty Dim w_formy ' warunek wyszukiwania ze wzglêdu na formy ruchu Dim w_dzien_godz ' warunek wyszukiwania ze wzglêdu na godziny otwarcia Dim w_powierzchnia ' warunek wyszukiwania ze wzglêdu na powierzchnie Dim w_tydzien ' warunek otwarty ca³y tydzien Dim sSQL ' tu bêdzie przechowywany ³añcuch SQL wyszukiwania obiektu REM -------------------------- KOD -------------------------------------------- 'Konwersja dowolne na any If Session("wojew") = "dowolne" Then Session("wojew") = "any" End If If Session("miejsc") = "dowolne" Then Session("miejsc") = "any" End If If Session("dzieln") = "dowolne" Then Session("dzieln") = "any" End If REM ***************************************************************************************** REM Budowanie warunku wojewodztwa If Not Session("f1") = "" Then If CInt(Session("f1")) = 0 Then ' czy to jest pole edit (wojewodztwa) If Not Session("wojew") = "" AND Not Session("wojew") = "dowolne" AND Not Session("wojew") = "any" Then ' czy jest cos wpisane do tego pola w_wojew = "tw_nazwa = '" & Session("wojew") & "'" 'warunek wyszukiwania po nazwie kryt_wojew = "

" & Session("wojew") ' zapamiêtaj nazwê wojew. by j± wy- ' ¶wietliæ w kryteriach wyszukiwania Else w_wojew = "" ' je¶li nie to puste End If Else 'CInt(Session("f1")) = 1 - aktywne jest pole lista If Not CInt(Session("lwojew")) = 0 Then ' czy wybrano opcjê dowolne wojewdztwo w_wojew = "id_wojewodztwa = " & Session("lwojew") 'war. wyszuk. po id wojewdztwa 'Odczytaj nazwê wojewdztwa, ktrego id = Session("lwojew") Set rs = Server.CreateObject("ADODB.RecordSet") ' wybierz wszystkie rekordy zwi±zane z wojewdztwem, ktrego id = Session("lwojew") rs.Open "SELECT tw_nazwa FROM t_wojewodztwo WHERE id_wojewodztwa = " & Session("lwojew"), info, 1, 1 kryt_wojew = kryt_wojew & "

" & rs("tw_nazwa") & "
" rs.Close ' zamknij kursor w tabelce Set rs = Nothing ' zwolnij pamiêæ Else w_wojew = "" End If End If End If REM Koniec - warunek wojewodztwa REM ***************************************************************************************** REM ***************************************************************************************** REM Budowanie warunku miejscowosc If Not Session("f2") = "" Then If CInt(Session("f2")) = 0 Then ' czy to jest pole edit (miejscowo¶ci) If Not Session("miejsc") = "" Then ' czy jest cos wpisane do tego pola w_miejsc = "tm_nazwa = '" & Session("miejsc") & "'" 'warunek wyszukiwania po nazwie kryt_miejsc = "

" & Session("miejsc") ' zapamiêtaj nazwê miejsc. by j± wy- ' ¶wietliæ w kryteriach wyszukiwania Else w_miejsc = "" ' je¶li nie to puste End If Else 'CInt(Session("f2")) = 1 - aktywne jest pole lista If Not CInt(Session("lmiejsc")) = 0 Then ' czy wybrano opcjê dowolne miejscowo¶ci w_wojew = "id_wojewodztwa = " & Session("lmiejsc") 'war. wyszuk. po id miejscowo¶ci 'Odczytaj nazwê miejscowo¶ci, ktrego id = Session("lmiejsc") Set rs = Server.CreateObject("ADODB.RecordSet") ' wybierz wszystkie rekordy zwi±zane z dzielnic±, ktrego id = Session("lmiejsc") rs.Open "SELECT tm_nazwa FROM t_miejscowosc WHERE id_miejscowosci = " & Session("lmiejsc"), info, 1, 1 kryt_miejsc = kryt_miejsc & "

" & rs("tm_nazwa") & "
" rs.Close ' zamknij kursor w tabelce Set rs = Nothing ' zwolnij pamiêæ Else w_miejsc = "" End If End If End If REM Koniec - warunek miejscowosc REM ***************************************************************************************** REM ***************************************************************************************** REM Budowanie warunku dzielnica If Not Session("f3") = "" Then If CInt(Session("f3")) = 0 Then ' czy to jest pole edit (dzielnica) If Not Session("dzieln") = "" Then ' czy jest cos wpisane do tego pola w_dzieln = "td_nazwa = '" & Session("dzieln") & "'" 'warunek wyszukiwania po nazwie kryt_dzieln = "

" & Session("dzieln") ' zapamiêtaj nazwê wojew. by j± wy- ' ¶wietliæ w kryteriach wyszukiwania Else w_dzieln = "" ' je¶li nie to puste End If Else 'CInt(Session("f3")) = 1 - aktywne jest pole lista If Not CInt(Session("ldzieln")) = 0 Then ' czy wybrano opcjê dowolne dzielnicê w_dzieln = "tf_id_dzielnicy = " & Session("ldzieln") 'war. wyszuk. po id dzielnicy 'Odczytaj nazwê dzielnicy, ktrego id = Session("ldzieln") Set rs = Server.CreateObject("ADODB.RecordSet") ' wybierz wszystkie rekordy zwi±zane z dzielnic±, ktrego id = Session("ldzieln") rs.Open "SELECT td_nazwa FROM t_dzielnica WHERE id_dzielnica = " & Session("ldzieln"), info, 1, 1 kryt_dzieln = kryt_dzieln & "

" & rs("td_nazwa") & "
" rs.Close ' zamknij kursor w tabelce Set rs = Nothing ' zwolnij pamiêæ Else w_dzieln = "" End If End If End If REM Koniec - warunek dzielnica REM ***************************************************************************************** REM ***************************************************************************************** REM Budowanie warunku nazwa obiektu If Not Session("f4") = "" Then If CInt(Session("f4")) = 0 Then ' czy to jest pole edit (nazwa) If Not Session("nazwa") = "" Then ' czy jest cos wpisane do tego pola w_wojew = "tf_nazwa like '" & Session("nazwa") & "'" 'warunek wyszukiwania po nazwie kryt_nazwa = "

" & Session("nazwa") ' zapamiêtaj nazwê obiektu by j± wy- ' ¶wietliæ w kryteriach wyszukiwania Else w_nazwa = "" ' je¶li nie to puste End If Else 'CInt(Session("f1")) = 1 - aktywne jest pole lista If Not CInt(Session("lnazwa")) = 0 Then ' czy wybrano opcjê dowolna nazwa 'w_nazwa = "id_fitness = " & Session("lnazwa") 'war. wyszuk. po id obiektu 'Odczytaj nazwê obiektu, ktrego id = Session("lnazwa") Set rs = Server.CreateObject("ADODB.RecordSet") ' wybierz wszystkie rekordy zwi±zane z obiektem, ktrego id = Session("lnazwa") rs.Open "SELECT tf_nazwa FROM t_fitness WHERE id_fitness = " & Session("lnazwa"), info, 1, 1 kryt_nazwa = kryt_nazwa & "

" & rs("tf_nazwa") & "
" w_wojew = "tf_nazwa like '" & rs("tf_nazwa") & "'" rs.Close ' zamknij kursor w tabelce Set rs = Nothing ' zwolnij pamiêæ Else w_nazwa = "" End If End If End If REM Koniec - warunek nazwa obiektu REM ***************************************************************************************** REM ***************************************************************************************** REM Generowanie warunku atuty If Not Session("atuty") = "" Then If Not Session("atuty") = "0" Then Dim strAtuty Dim tblAtuty 'zamiana ci±gu na tablicê tblAtuty = Split(Session("Atuty"), ",") For i = 0 To UBound(tblAtuty) If i = 0 Then strAtuty = "taf_id_atuty = " & tblAtuty(i) Else strAtuty = strAtuty & " OR taf_id_atuty = " & tblAtuty(i) End If Next Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT ta_nazwa2 FROM t_typ_atutu WHERE id_typ_atutu in (" & Session("Atuty") & ")" , info, 1, 1 ' Tworzenie listy kryterium - atuty obiektu Do While Not rs.EOF kryt_atuty = kryt_atuty & "

" & Server.HTMLEncode(rs("ta_nazwa2")) & "
" rs.MoveNext Loop rs.Close Set rs = Nothing Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT taf_id_fitness FROM t_atuty_fitness WHERE " & strAtuty & " GROUP BY taf_id_fitness HAVING count(*) = " & (UBound(tblAtuty)+1), info, 1, 1 If Not rs.EOF Then w_atuty = "id_fitness in (" w_atuty = w_atuty & rs("taf_id_fitness") rs.MoveNext() End If Do While Not rs.EOF w_atuty = w_atuty & ", " & rs("taf_id_fitness") rs.MoveNext() Loop rs.Close() Set rs = Nothing If Not w_atuty = "" Then w_atuty = w_atuty & ")" Else w_atuty = "id_fitness = -1" ' je¶li nie ma ¿adnych rekordw ' spe³niaj±cych powy¿sze warunki ' to znajd· rekordy gdzie id = -1 ' czyli nic nie znajdz :) End If Else w_atuty = "" End If End If REM ***************************************************************************************** REM Generowanie warunku formy If Not Session("formy") = "" Then If Not Session("formy") = "0" Then Dim strFormy Dim tblFormy 'zamiana ci±gu na tablicê tblFormy = Split(Session("Formy"), ",") For i = 0 To UBound(tblFormy) If i = 0 Then strFormy = "tff_id_formy = " & tblFormy(i) Else strFormy = strFormy & " OR tff_id_formy = " & tblFormy(i) End If Next Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tfr_nazwa2 FROM t_formy_ruchu WHERE id_formy_ruchu in (" & Session("Formy") & ")" , info, 1, 1 ' Tworzenie listy kryterium - formy ruchu Do While Not rs.EOF kryt_formy = kryt_formy & "

" & Server.HTMLEncode(rs("tfr_nazwa2")) & "
" rs.MoveNext Loop rs.Close Set rs = Nothing Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tff_id_fitness FROM t_formy_fitness WHERE " & strFormy & " GROUP BY tff_id_fitness HAVING count(*) = " & (UBound(tblFormy)+1), info, 1, 1 If Not rs.EOF Then w_formy = "id_fitness in (" w_formy = w_formy & rs("tff_id_fitness") rs.MoveNext() End If Do While Not rs.EOF w_formy = w_formy & ", " & rs("tff_id_fitness") rs.MoveNext() Loop rs.Close() Set rs = Nothing If Not w_formy = "" Then w_formy = w_formy & ")" Else w_formy = "id_fitness = -1" ' je¶li nie ma ¿adnych rekordw ' spe³niaj±cych powy¿sze warunki ' to znajd· rekordy gdzie id = -1 ' czyli nic nie znajdz :) End If Else w_formy = "" End If End If REM ***************************************************************************************** REM Generowanie warunku wielkosc powierzchni If Not Session("powierzchnia") = "" Then If Not CInt(Session("powierzchnia")) = 0 Then w_powierzchnia = "tf_powierzchnia >= " & Session("powierzchnia") 'odczyt opisu powierzchni Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tpw_nazwa FROM t_powierzchnia WHERE id_powierzchni=" & Session("powierzchnia"), info, 1, 1 kryt_powierzchnia = "

" & rs("tpw_nazwa") rs.Close() Set rs = Nothing '---------------------------- Else w_powierzchnia = "" End If End If REM ***************************************************************************************** REM Generowanie warunku otwrte drzwi If Not Session("drzwi") = "" Then If Session("drzwi") = "1" Then w_drzwi = "tf_URL2 IS NOT NULL AND NOT tf_URL2 = ''" Else w_drzwi = "" End If End If REM ***************************************************************************************** REM Generowanie warunku otwrte caly tydzien If Not Session("tydzien") = "" Then If Session("tydzien") = "1" Then w_tydzien = "tf_tydzien = 1" Else w_tydzien = "" End If End If REM ***************************************************************************************** REM Generowanie warunku gdziny otwarcia 'a) dzien otwarcia If Not Session("dzien") = "" Then If Not CInt(Session("dzien")) = 0 Then w_dzien_godz = "to_dzien = " & Session("dzien") ' Je¶li wybrano dzieñ otwarcia to wybierz tylko takie rekordy ' ktre nie maj± w polach od_godz i do_godz warto¶ci nieczynne (odpowiednio: 1000 i 0) w_dzien_godz = w_dzien_godz & " AND to_id_od_godz <> 1000 AND to_id_do_godz <> 0" End If End If 'b) otwarte od godziny ... If Not Session("od_godz") = "" Then If Not CInt(Session("od_godz")) = 0 Then If w_dzien_godz = "" Then w_dzien_godz = "to_id_od_godz <= " & Session("od_godz") Else w_dzien_godz = w_dzien_godz & " AND " & "to_id_od_godz <= " & Session("od_godz") End If End If End If 'c) otwarte do godziny ... If Not Session("do_godz") = "" Then If Not CInt(Session("do_godz")) = 0 Then If w_dzien_godz = "" Then w_dzien_godz = "to_id_do_godz >= " & Session("do_godz") Else w_dzien_godz = w_dzien_godz & " AND " & "to_id_do_godz >= " & Session("do_godz") End If End If End If 'odczyt id obiektu If Not w_dzien_godz = "" Then Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT to_id_fitness FROM t_otwarcie_fitness WHERE " & w_dzien_godz, info, 1, 1 w_dzien_godz = "" 'czy?æ zmienna 'tworzenie czesci warunku z id obiektow spelniajacych warunek godzin otwarcia If Not rs.EOF Then w_dzien_godz = "id_fitness in (" w_dzien_godz = w_dzien_godz & rs("to_id_fitness") rs.MoveNext End If Do While Not rs.EOF w_dzien_godz = w_dzien_godz & ", " & rs("to_id_fitness") rs.MoveNext Loop rs.Close Set rs = Nothing '-------------------------------------------------- ' Budowanie stringa z warunkiem godzin otwracia. ' Format [] [od ] [do ]. ' Np: Poniedzia³ek od 10.00 do 22.00 '-------------------------------------------------- kryt_godz = "" 'Odczyt nazwy dnia Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tdz_nazwa2 FROM t_dzien WHERE id_dzien = " & Session("dzien"), info, 1, 1 If Not rs.EOF AND Not rs.BOF Then kryt_dzien = "

" & rs("tdz_nazwa2") End If rs.Close() 'Odczyt od godz rs.Open "SELECT tog_nazwa FROM t_od_godz WHERE id_od_godz = " & Session("od_godz") If Not rs.EOF AND Not rs.BOF Then If CInt(Session("od_godz")) <> 0 Then If kryt_godz <> "" Then kryt_godz = kryt_godz & "
" End If kryt_godz = kryt_godz & " from " & rs("tog_nazwa") End If End If rs.Close() 'Odczyt do godz rs.Open "SELECT tdg_nazwa FROM t_do_godz2 WHERE id_do_godz = " & Session("do_godz") If Not rs.EOF AND Not rs.BOF Then If CInt(Session("do_godz")) <> 0 Then If kryt_godz <> "" Then kryt_godz = kryt_godz & "
" End If kryt_godz = kryt_godz & " to " & rs("tdg_nazwa") End If End If rs.Close() Set rs = Nothing ' zwolnij pamiec z pod obiektu '---------------------------- kryt_godz ------------------------------------------------ If w_dzien_godz <> "" Then w_dzien_godz = w_dzien_godz & ")" Else 'Zaden rekord nie spelnia powyzszych warunkow w_dzien_godz = "id_fitness = -1" End If Else w_dzien_godz = "" End If 'budowanie lancucha warunkw dla wyszukiwania obiektow sSQL = w_wojew AddStr w_miejsc, sSQL ' dodanie podwarunku - miejscowosci AddStr w_dzieln, sSQL ' dodanie podwarunku - dzielnice AddStr w_nazwa, sSQL ' dodanie podwarunku - nazwa obiektu AddStr w_atuty, sSQL ' dodanie podwarunku - atuty obiektu AddStr w_formy, sSQL ' dodanie podwarunku - formy ruchu AddStr w_powierzchnia, sSQL ' dodanie podwarunku - powierzchnia obiektu AddStr w_drzwi, sSQL ' dodanie podwarunku - pe³na prezentacja AddStr w_tydzien, sSQL ' dodanie podwarunku - otwarte caly tydzien AddStr w_dzien_godz, sSQL ' dodanie podwarunku - godzny otwarcia If sSQL = "" Then sSQL = "SELECT tf_nazwa, tm_nazwa, tf_adres, tf_telefon, tf_URL2 FROM v_fitn" Else sSQL = "SELECT tf_nazwa, tm_nazwa, tf_adres, tf_telefon, tf_URL2 FROM v_fitness" & _ " WHERE " & sSQL End If sSQL = sSQL & " ORDER BY tf_prezentacja DESC, tf_nazwa2" REM ***************************************************************************** REM Wczytanie rekordw obiektu z bazy danych Set rs_obiekt = Server.CreateObject("ADODB.RecordSet") rs_obiekt.CursorLocation = 3 'Response.Write(sSQL) rs_obiekt.Open sSQL, info, 1, 1, adCmdTable rs_obiekt.PageSize = PageCount AllPages = rs_obiekt.PageCount If AllPages=0 Then AllPages = 1 If Not rs_obiekt.EOF AND Not rs_obiekt.BOF Then rs_obiekt.AbsolutePage = Page + 1 End If REM ******************** KONIEC *************************************************** %> Infoexpress - fitness - znalezione rekordy

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

<% If kryt_wojew <> "" Then %> <% End If%> <% If kryt_miejsc <> "" Then %> <% End If %> <% If kryt_dzieln <> "" Then %> <% End If %> <% If kryt_nazwa <> "" Then %> <% End If %> <% If kryt_atuty <> "" Then %> <% End If %> <% If kryt_formy <> "" Then %> <% End If %> <% If kryt_powierzchnia <> "" Then %> <% End If %> <% If kryt_godz <> "" And kryt_dzien <> "" Then %> <% End If %>


Province:
	<%=Iso2Win(kryt_wojew) %>
Locality:
	<%=Iso2Win(kryt_miejsc)%>
Quarter:
	<%=Iso2Win(kryt_dzieln)%>
Name:
	<%=Iso2Win(Replace(kryt_nazwa,"%","..."))%>
Advantages::
	<%=Iso2Win(Replace(kryt_atuty,"%","..."))%>
Exercise form:
	<%=Iso2Win(Replace(kryt_formy,"%","..."))%>
Area::
	<%=Iso2Win(Replace(kryt_powierzchnia,"%","..."))%>
Opening hours:
	<%=Iso2Win(Replace(kryt_dzien,"%","..."))%>
	<%=Iso2Win(Replace(kryt_godz,"%","..."))%>

<% i = 0 ' zeruj, aby uzyc ponownie counter = 0 Do While (Not rs_obiekt.EOF) AND (counter < PageCount) counter = counter + 1 %> <% rs_obiekt.MoveNext Loop %>

<% If Not IsEmpty(rs_obiekt("tf_URL2")) And Not rs_obiekt("tf_URL2") = "" Then Response.Write ("" & Iso2Win(rs_obiekt("tf_nazwa")) & "") Else Response.Write (Iso2Win(rs_obiekt("tf_nazwa"))) End If %>

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

<% If Not IsNull(rs_obiekt("tf_URL2")) AND Not rs_obiekt("tf_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 %> cofnij

cofnij

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

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

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

przewiñ dalej

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