<%@CODEPAGE=1250 @Language=VBScript%> <% 'zapamietaj wartosci z formularza w Session() 'jesli nie jest to powrot z restauracji If Request.QueryString("return") <> "true" AND Request.QueryString("page") = "" Then 'skasuj ustawienia formularza Session("nazwa") = "" Session("atut") = "" Session("miejsca") = "" Session("stoliki") = "" Session("usluga") = "" Session("dzien") = "" Session("od_godz") = "" Session("do_godz") = "" Session("drzwi") = "" For Each FormKey in Request.Form Session(FormKey) = Trim(Request.Form.Item(FormKey)) Next End If 'zamien z kodowania Windows-1250 na ISO-8859-2 Session("nazwa") = Win2Iso(Session("nazwa")) 'Priorytetowo wybieranie następuje po nazwie wpisanej 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 parametry to ustaw na pierwsza strone Else Page = CInt(Request.QueryString("page")) End If REM Zmienne uzywane do wyswietlania kryterium wyboru Dim kryt_wojew Dim kryt_miejs Dim kryt_dzieln Dim kryt_nazwa Dim kryt_kuch Dim kryt_atut Dim kryt_usluga Dim rs_rest REM Poni¿ej deklarowane s± zmienne przechowuj±ce sk³adniki REM wykorzystywane do zbudowania warunku wyszukiwania REM rekordów z bazy danych. Na przyk³ad: id_miejscowosci = 10 itp. Dim w_wojew 'tu bedzie czesc warunku wyszukiwania dla wojewodztwa Dim w_miejsc 'tu bedzie czesc warunku wyszukiwania dla miejscowosci Dim w_dzieln 'tu bedzie czesc warunku wyszukiwania dla dzielnic Dim w_nazwa 'tu bedzie czesc warunku wyszukiwania dla nazwy pizzerii Dim w_kuch '-||----||----||---- kuchni Dim w_atuty '-||----||----||---- atutow Dim w_wewn '-||----||----||---- miejsc wewn±trz Dim w_zewn '-||----||----||---- miejsc zewn±trz Dim w_bank '-||----||----||---- miejsc w ustawieniach bankietowych (stojace) Dim w_bank2 '-||----||----||---- miejsc w ustawieniach bankietowych (zasiadane) Dim w_uslugi '-||----||----||---- uslug Dim w_dni_godz '-||----||----||---- dni godz. otwarcia i zamkniecia %> <% '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 Dim rs REM Budowanie warunku: wojewodztwo If Not Session("f1") = "" Then If CInt(Session("f1")) = 0 Then 'Czy to jest pole typu EDIT If Not Session("wojew")="" AND Not Session("wojew") = "dowolne" AND Not Session("wojew") = "any" Then 'Jesli jest cos wpisane 'to uwzglednij to w warunku w_wojew = "tw_nazwa = '" & Session("wojew") & "'" kryt_wojew = "
  • " & Session("wojew") & "
    " Else w_wojew = "" 'jesli nie to pomin to End If Else 'czy jest to typu SELECT If Not CInt(Session("lwojew")) = 0 Then w_wojew = "id_wojewodztwa = " & Session("lwojew") 'Kryterium wyboru wyswietlane na ekranie Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tw_nazwa FROM t_wojewodztwo WHERE id_wojewodztwa = " & Session("lwojew"), info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_wojew = kryt_wojew & "
  • " & rs(0) & "
    " rs.MoveNext Loop rs.Close Set rs = Nothing Else w_wojew = "" End If End If End If REM Budowanie warunku: miejscowosc If Not Session("f2") = "" Then If CInt(Session("f2")) = 0 Then 'Czy to jest pole typu EDIT If Not Session("miejsc") = "" Then 'Jesli jest cos wpisane 'to uwzglednij to w warunku w_miejsc = "tm_nazwa = '" & Session("miejsc") & "'" kryt_miejs = "
  • " & Session("miejsc") & "
    " Else w_miejsc = "" 'jesli nie to pomin to End If Else 'czy jest to typu SELECT If Not CInt(Session("lmiejsc")) = 0 Then w_miejsc = "tp_id_miejscowosci = " & Session("lmiejsc") 'Kryterium wyboru wyswietlane na ekranie Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tm_nazwa FROM t_miejscowosc WHERE id_miejscowosci = " & Session("lmiejsc"), info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_miejs = kryt_miejs & "
  • " & rs(0) & "
    " rs.MoveNext Loop rs.Close Set rs = Nothing Else w_miejsc = "" End If End If End If REM Budowanie warunku: dzielnica If Not Session("f3")="" Then If CInt(Session("f3")) = 0 Then 'Czy to jest pole typu EDIT If Not Session("dzieln") = "" Then 'Jesli jest cos wpisane 'to uwzglednij to w warunku w_dzieln = "td_nazwa = '" & Session("dzieln") & "'" kryt_dzieln = "
  • " & Session("dzieln") & "
    " Else w_dzieln = "" 'jesli nie to pomin to End If Else 'czy jest to typu SELECT If Not CInt(Session("ldzieln")) = 0 Then w_dzieln = "tp_id_dzielnicy = " & Session("ldzieln") 'Kryterium wyboru wyswietlane na ekranie Set rs=Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT td_nazwa FROM t_dzielnica WHERE id_dzielnica = " & Session("ldzieln"), info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_dzieln = kryt_dzieln & "
  • " & rs(0) & "
    " rs.MoveNext Loop rs.Close Set rs = Nothing Else w_dzieln = "" End If End If End If REM Budowanie warunku: [nazwa] pizzerii If Not Session("f4") = "" Then If CInt(Session("f4")) = 0 Then 'Czy to jest pole typu EDIT If Not Session("nazwa") = "" Then 'Jesli jest cos wpisane 'to uwzglednij to w warunku w_nazwa = "tp_nazwa like '" & Session("nazwa") & "'" kryt_nazwa = "
  • " & Session("nazwa") & "
    " Else w_nazwa = "" 'jesli nie to pomin to End If Else 'czy jest to typu SELECT If Not CInt(Session("lnazwa")) = 0 Then 'w_nazwa = "id_pizza = " & Session("lnazwa") 'Kryterium wyboru wyswietlane na ekranie Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tp_nazwa FROM t_pizza WHERE id_pizza = " & Session("lnazwa"), info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_nazwa = kryt_nazwa & "
  • " & rs(0) & "
    " w_nazwa = "tp_nazwa like '" & rs(0) & "'" rs.MoveNext Loop rs.Close Set rs = Nothing Else w_nazwa = "" End If End If End If REM Cze¶æ odpowiedzialna za kryteirum atuty If Not Session("atut") = "" Then If Not Session("atut")="0" Then Dim tblAtuty Dim strAtuty REM Tworz lancuch zawieracjacy warunek wyszukiwania identyfikatorw restauracji z REM tabelki t_atuty tblAtuty = Split(Session("atut"), ",") For i = 0 To UBound(tblAtuty) If i = 0 Then strAtuty = "ta_id_typ_atutu = " & tblAtuty(i) Else strAtuty = strAtuty & " OR ta_id_typ_atutu = " & 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("atut") & ")", info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_atut = kryt_atut & "
  • " & Server.HTMLEncode(rs(0)) & "
    " rs.MoveNext Loop rs.Close Set rs = Nothing Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT ta_id_pizza FROM t_atuty_pizza where " & strAtuty & " GROUP BY ta_id_pizza HAVING count(*) = " & (UBound(tblAtuty)+1), info, 1, 1 If Not rs.EOF Then w_atuty = "id_pizza in (" w_atuty = w_atuty & rs(0) rs.MoveNext End If Do While Not rs.EOF w_atuty = w_atuty & ", " & rs(0) rs.MoveNext Loop rs.Close Set rs = Nothing If Not w_atuty = "" Then w_atuty = w_atuty & ")" Else w_atuty = "id_pizza = -1" End If Else w_atuty = "" End If End If REM Cze¶æ odpowiedzialna za kryterium uslugi If Not Session("usluga") = "" Then If Not Session("usluga")="0" Then Dim tblUslugi Dim strUslugi REM Tworz lancuch zawieracjacy warunek wyszukiwania identyfikatorw restauracji z REM tabelki t_uslugi tblUslugi = Split(Session("usluga"), ",") For i = 0 To UBound(tblUslugi) 'tblUslugi.Count If i = 0 Then strUslugi = "tu_id_typ_uslugi = " & tblUslugi(i) Else strUslugi = strUslugi & " OR tu_id_typ_uslugi = " & tblUslugi(i) End If Next Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tu_nazwa2 FROM t_typ_uslugi WHERE id_typ_uslugi in(" & Session("usluga") & ")", info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_usluga = kryt_usluga & "
  • " & Server.HTMLEncode(rs(0)) & "
    " rs.MoveNext Loop rs.Close Set rs = Nothing Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tu_id_pizza FROM t_uslugi_pizza where " & strUslugi & " GROUP BY tu_id_pizza HAVING count(*) = " & (UBound(tblUslugi)+1), info, 1, 1 If Not rs.EOF Then w_uslugi = "id_pizza in (" w_uslugi = w_uslugi & rs(0) rs.MoveNext End If Do While Not rs.EOF w_uslugi = w_uslugi & ", " & rs(0) rs.MoveNext Loop rs.Close Set rs = Nothing If Not w_uslugi = "" Then w_uslugi = w_uslugi & ")" Else w_uslugi = "id_pizza = -1" End If Else w_uslugi = "" End If End If REM Czesc odpowiedzialna za rodzaj ilosc miejsc wewn/zewn/bankietowych If Not Session("miejsca") = "" Then If Not CInt(Session("miejsca")) = 0 Then Set rs = Server.CreateObject ("ADODB.RecordSet") rs.Open "select tm_liczba from t_miejsca where id_miejsca = " & Session ("miejsca"), info, 1, 1 If Session("miejsca") = "1" Then ' jesli zostala wybrana pierwsza opcja ' (ponizej 25) to trzeba dac inny warunek "<=" ' w przypadku pozostalych warunkow (powyzej 25) ' trzeba dac inny warunek ">=" w_wewn = "tp_ilosc_miejsc <= " & Session("miejsca") w_ile_miejsc = "
  • below 25" '& w_ile_miejsc Else w_wewn = "tp_ilosc_miejsc >= " & Session("miejsca") w_ile_miejsc = "
  • over " & rs("tm_liczba") End If rs.Close Set rs = Nothing Else w_wewn = "" End If End If REM Kryterium ilosc miejsc w ustawieniu zewnetrznym If Not Session("stoliki") = "" Then If Not CInt(Session("stoliki")) = 0 Then If Session("stoliki") = "1" Then ' jesli zostala wybrana pierwsza opcja ' (ponizej 25) to trzeba dac inny warunek "<=" ' w przypadku pozostalych warunkow (powyzej 25) ' trzeba dac inny warunek ">=" w_zewn = "tp_ilosc_stolikow <= " & Session("stoliki") Else w_zewn = "tp_ilosc_stolikow >= " & Session("stoliki") End If Set rs = Server.CreateObject ("ADODB.RecordSet") rs.Open "select ts_liczba from t_stoliki where id_stolika = " & Session ("stoliki"), info, 1, 1 w_stoliki = "
  • " & rs("ts_liczba") rs.Close Set rs = Nothing Else w_zewn = "" End If End If REM Tylko pizzeri, ktore maja prezentacje If Not IsEmpty(Session("drzwi")) Then If Session("drzwi") = "1" Then w_drzwi = "tp_URL2 IS NOT NULL AND NOT tp_URL2 = ''" Else w_drzwi = "" End If End If REM Kryterium godzin otwarcia If Not Session("dzien") = "" Then If Not CInt(Session("dzien")) = 0 Then Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "select tdz_nazwa2 from t_dzien where id_dzien = " & Session("dzien"), info, 1, 1 w_dzien = "
  • " & rs("tdz_nazwa") rs.Close Set rs = Nothing w_dzien_godz = "to_dzien =" & Session("dzien") End If End If REM Kryterium otwarcia 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 Set rs = Server.CreateObject ("ADODB.RecordSet") rs.Open "select tog_nazwa from t_od_godz where id_od_godz = " & Session ("od_godz"), info, 1, 1 w_od_godz = rs("tog_nazwa") rs.Close Set rs = Nothing End If End If REM Kryterium zamkniêcia czynne 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 Set rs = Server.CreateObject ("ADODB.RecordSet") rs.Open "select tdg_nazwa from t_do_godz2 where id_do_godz = " & Session ("do_godz"), info, 1, 1 w_do_godz = rs("tdg_nazwa") rs.Close Set rs = Nothing End If End If If Not w_dzien_godz = "" Then 'Set rs = Server.CreateObject("ADODB.RecordSet") 'rs.Open "SELECT to_id_pizza FROM t_otwarcie_pizza where " & w_dzien_godz, info, 1, 1 'w_dzien_godz = "" 'If Not rs.EOF Then ' w_dzien_godz = "id_pizza in (" ' w_dzien_godz = w_dzien_godz & rs(0) ' rs.MoveNext 'End If 'Do While Not rs.EOF ' w_dzien_godz = w_dzien_godz & "," & rs(0) ' rs.MoveNext 'Loop 'rs.Close 'Set rs = Nothing 'If w_dzien_godz <> "" Then ' w_dzien_godz = w_dzien_godz & ")" 'Else 'Zaden rekord nie spelnia powyzszych warunkow ' w_dzien_godz = "id_pizza = -1" 'End If w_dzien_godz = "id_pizza in (SELECT to_id_pizza FROM t_otwarcie_pizza where " & w_dzien_godz & ")" Else w_dzien_godz = "" End If sSQL = w_wojew 'Response.Write(sSQL) If Not w_miejsc = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_miejsc Else sSQL = w_miejsc End If End If If Not w_dzieln = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_dzieln Else sSQL = w_dzieln End If End If If Not w_nazwa = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_nazwa Else sSQL = w_nazwa End If End If If Not w_kuch = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_kuch Else sSQL = w_kuch End If End If If Not w_atuty = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_atuty Else sSQL = w_atuty End If End If If Not w_uslugi = "" Then If Not sSQL = "" AND Not w_uslugi = "" Then sSQL = sSQL & " AND " & w_uslugi Else sSQL = w_uslugi End If End If If Not w_wewn = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_wewn Else sSQL = w_wewn End If End If If Not w_godz_kuch = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_godz_kuch Else sSQL = w_godz_kuch End If End If If Not w_drzwi = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_drzwi Else sSQL = w_drzwi End If End If If Not w_zewn = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_zewn Else sSQL = w_zewn End If End If If Not w_bank = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_bank Else sSQL = w_bank End If End If If Not w_bank2 = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_bank2 Else sSQL = w_bank2 End If End If If Not w_dzien_godz = "" Then If Not sSQL = "" AND Not w_dzien_godz = "" Then sSQL = sSQL & " AND " & w_dzien_godz Else sSQL = w_dzien_godz End If End If If sSQL = "" Then sSQL = "SELECT tp_nazwa, tm_nazwa, tp_adres, tp_telefon, tp_URL2 FROM v_pizza" ELSE sSQL = "SELECT tp_nazwa, tm_nazwa, tp_adres, tp_telefon, tp_URL2 FROM v_pizza WHERE " & sSQL End If sSQL = sSQL & " ORDER BY tp_prezentacja DESC, tp_nazwa2" Set rs_rest = Server.CreateObject("ADODB.Recordset") rs_rest.CursorLocation=3 rs_rest.open sSQL, info,1,1,adCmdTable rs_rest.PageSize=PageCount AllPages = rs_rest.PageCount If AllPages=0 Then AllPages = 1 if Not rs_rest.EOF AND Not rs_rest.BOF Then rs_rest.AbsolutePage=Page+1 End If %> Infoexpress - Pizzerias - records found
    <% If Not IsEmpty(Request.QueryString("wojew")) Then %> <% 'Jesli podano parametry w URLu to ustaw odpowiednie elementy formularza %> "> <% Else %> <% 'Jesli nie wywolano z parametrami w URLu to pobierz dane z formularza poprzedniej stron %> ">">"> <% End If %> <% If Not IsEmpty(Request.QueryString("miejsc")) Then %> <% 'Jesli podano parametry w URLu to ustaw odpowiednie elementy formularza %> "> <% Else %> <% 'Jesli nie wywolano z parametrami w URLu to pobierz dane z formularza poprzedniej stron %> ">">"> <% End If %> ">">">">">">>">">>">">">">">">

     
    <%=rs_rest.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 w_ile_miejsc <> "" Then %> <% End If %> <% If w_stoliki <> "" Then %> <% End If %> <% If kryt_usluga <> "" Then %> <% End If %> <% If w_dzien <> "" Then %> <% End If %> <% If w_od_godz <> "" Or 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)%>  
    Nomber of seats:
    <%= w_ile_miejsc %>
    Namber of  tables:
    <%= w_stoliki %>
    Extra services:
      <%=Iso2Win(kryt_usluga)%>  
    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 ' zeruj, aby uzyc ponownie counter = 0 Do While (Not rs_rest.EOF) AND (counter < PageCount) counter = counter + 1 %> <% rs_rest.MoveNext Loop %>
    <% If Not IsEmpty(rs_rest("tp_URL2")) And Not rs_rest("tp_URL2") = "" Then Response.Write ("" & Iso2Win(rs_rest("tp_nazwa")) & "") Else Response.Write (Iso2Win(rs_rest("tp_nazwa"))) End If %> <%=(Iso2Win(Trim(rs_rest("tm_nazwa"))) & "   " & Iso2Win(Replace(Trim(rs_rest("tp_adres")), " ", " ")))%> <% If Not IsNull(rs_rest("tp_telefon")) AND Not Trim(rs_rest("tp_telefon")) = "" Then Response.Write("
    phone: " & rs_rest("tp_telefon")) End If %>
    <% If Not IsNull(rs_rest("tp_URL2")) AND Not rs_rest("tp_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 <% If Not Page = 0 Then %> <% End If %>

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

    <% If Not rs_rest.EOF Then %> <% End If %>przewiñ dalej<% If Not rs_rest.EOF Then %> <% End If %>
     
    <% rs_rest.Close Set rs_rest = Nothing %>