Infoexpress - Restaurants

<%=rs_rest.recordcount %> records 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_miejsca_wewn <> "" Then %> <% End If %> <% If w_miejsca_bwewn <> "" Then %> <% End If %> <% If w_miejsca_bwewn2 <> "" Then %> <% End If %> <% If w_miejsca_zewn <> "" 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 %> <% If w_do_godz_kuchnia <> "" Then %> <% End If %> <% '********************************************************** ' Kod odpowiedzialny za wyswietlanie liczby ' pozostalych obiektow turystycznych '********************************************************** ' Pozostale obiekty maja byc wyswietlane tylko wtedy, gdy nie ' wybrano zadnych atutow itp. na wybieraniu szczegolowym ' (mamy tylko wojewodztwo lub miejscowosc) If w_nazwa = "" And w_dzieln = "" And w_atuty = "" And w_kuch = "" And w_uslugi = "" And w_wewn = "" And w_zewn = "" And w_bank = "" And w_bank2 = "" And w_do_godz_kuchnia = "" And w_dzien_godz = "" And w_do_godz = "" And w_od_godz = "" Then ' Catering Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = info 'Response.write id_miejscowosci_lewa oCmd.CommandText = "{call ile_catering(?,?)}" 'oCmd.Parameters.Append oCmd.CreateParameter("@miejscowosc_id", adInteger, adParamInput) oCmd("@miejscowosc_id") = id_miejscowosci_lewa 'oCmd.Parameters.Append oCmd.CreateParameter("@wojewodztwo_id", adInteger, adParamInput) oCmd("@wojewodztwo_id") = id_wojewodztwa_lewa Set oRs = oCmd.Execute strIleCatering = "" oRs.Close Set oRs = Nothing ' Kawiarnie Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = info oCmd.CommandText = "{call ile_kawiarnie(?,?)}" 'oCmd.Parameters.Append oCmd.CreateParameter("@miejscowosc_id", adInteger, adParamInput) oCmd("@miejscowosc_id") = id_miejscowosci_lewa 'oCmd.Parameters.Append oCmd.CreateParameter("@wojewodztwo_id", adInteger, adParamInput) oCmd("@wojewodztwo_id") = id_wojewodztwa_lewa Set oRs = oCmd.Execute strIleKawiarnie = "" oRs.Close Set oRs = Nothing ' Pizzerie Set oCmd = Server.CreateObject("ADODB.Command") Set oCmd.ActiveConnection = info oCmd.CommandText = "{call ile_pizzerii(?,?)}" 'oCmd.Parameters.Append oCmd.CreateParameter("@miejscowosc_id", adInteger, adParamInput) oCmd("@miejscowosc_id") = id_miejscowosci_lewa 'oCmd.Parameters.Append oCmd.CreateParameter("@wojewodztwo_id", adInteger, adParamInput) oCmd("@wojewodztwo_id") = id_wojewodztwa_lewa Set oRs = oCmd.Execute strIlePizzerii = "" oRs.Close Set oRs = Nothing %> <%end if %> <% If w_nazwa = "" And w_dzieln = "" And w_atuty = "" And w_uslugi = "" And w_wewn = "" And w_zewn = "" And w_bank = "" And w_bank2 = "" And w_do_godz_kuchnia = "" And w_dzien_godz = "" And w_do_godz = "" And w_od_godz = "" Then %> <%if rsafrykanska("max1")<>0 then%> <%end if%> <%if rsamerykanska("max1")<>0 then%> <%end if%> <%if rsarabska("max1")<>0 then%> <%end if%> <%if rsbalkanska("max1")<>0 then%> <%end if%> <%if rseuropejska("max1")<>0 then%> <%end if%> <%if rsfrancuska("max1")<>0 then%> <%end if%> <%if rsgrecka("max1")<>0 then%> <%end if%> <%if rshiszpanska("max1")<>0 then%> <%end if%> <%if rsindyjska("max1")<>0 then%> <%end if%> <%if rsinneciekawe("max1")<>0 then%> <%end if%> <%if rsjaponska("max1")<>0 then%> <%end if%> <%if rsmeksykanska("max1")<>0 then%> <%end if%> <%if rsmiedzynarodowa("max1")<>0 then%> <%end if%> <%if rsmieszana("max1")<>0 then%> <%end if%> <%if rsorientalna("max1")<>0 then%> <%end if%> <%if rspolska("max1")<>0 then%> <%end if%> <%if rsrosyjska("max1")<>0 then%> <%end if%> <%if rsrybna("max1")<>0 then%> <%end if%> <%if rsstaropolska("max1")<>0 then%> <%end if%> <%if rssrodziemnomorska("max1")<>0 then%> <%end if%> <%if rsturecka("max1")<>0 then%> <%end if%> <%if rswloska("max1")<>0 then%> <%end if%> <%if rszydowska("max1")<>0 then%> <%end if%> <% End If %> <% If w_nazwa = "" And w_dzieln = "" And w_atuty = "" And w_kuch = "" And w_uslugi = "" And w_wewn = "" And w_zewn = "" And w_bank = "" And w_bank2 = "" And w_do_godz_kuchnia = "" And w_dzien_godz = "" And w_do_godz = "" And w_od_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)%>

Number seats inside:

<%= w_miejsca_wewn %>

Banquet arrangement (standing):

<%= w_miejsca_bwewn %>

Banquet arrangement (sitting):

<%= w_miejsca_bwewn2 %>

Open-air restaurant:

<%= w_miejsca_zewn %>

Extra service:

<%=Iso2Win(kryt_usluga)%>

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") = 1000 Then ' w_do_godz = "dłużej" Then - starsza wersja, nie chodzi jak trzeba If w_od_godz = "" Then Response.Write (" after 23.00") End If Else Response.Write (" to " & w_do_godz) End If End If %>

<%= w_do_godz_kuchnia %>

catering:

" & oRs(0) & "

kawiarnie:

" & oRs(0) & "

pizzerie:

" & oRs(0) & "

Cuisine:

<% 'wszystkie =rspolska("max1")+rsfrancuska("max1")+rswloska("max1")+rsgrecka("max1")+rsjaponska("max1")+rssrodziemnomorska("max1")+rsarabska("max1")+rsmeksykanska("max1")+rsrybna("max1")+rsorientalna("max1")+rszydowska("max1")+rsmieszana("max1")+rsinneciekawe("max1")+rsrosyjska("max1")+rsamerykanska("max1")+rsbalkanska("max1")+rseuropejska("max1")+rsafrykanska("max1")+rshiszpanska("max1")+rsindyjska("max1")+rsmiedzynarodowa("max1")+rsstaropolska("max1")+rsturecka("max1") %> All <%' response.write wszystkie%>

<%if id_kuch=19 then%> African:
<%else%> African:
<%end if%>

<% response.write rsafrykanska("max1")%>

<%if id_kuch<>16 then%> American:
<%else%> American:
<%end if%>

<% response.write rsamerykanska("max1")%>

<%if id_kuch<>7 then%> Arabian:
<%else%> Arabian:
<%end if%>

<% response.write rsarabska("max1")%>

<%if id_kuch<>17 then%> Balcan:
<%else%> Balcan:
<%end if%>

<% response.write rsbalkanska("max1")%>

<%if id_kuch<>18 then%> European:
<%else%> European:
<%end if%>

<% response.write rseuropejska("max1")%>

<%if id_kuch<>2 then%> French:
<%else%> French:
<%end if%>

<% response.write rsfrancuska("max1")%>

<%if id_kuch<>4 then%> Greek:
<%else%> Greek:
<%end if%>

<% response.write rsgrecka("max1")%>

<%if id_kuch<>20 then%> Spanish:
<%else%> Spanish:
<%end if%>

<% response.write rshiszpanska("max1")%>

<%if id_kuch<>21 then%> Indian:
<%else%> Indian:
<%end if%>

<% response.write rsindyjska("max1")%>

<%if id_kuch<>5 then%> Japanese:
<%else%> Japanese:
<%end if%>

<% response.write rsjaponska("max1")%>

<%if id_kuch<>8 then%> Mexican:
<%else%> Mexican:
<%end if%>

<% response.write rsmeksykanska("max1")%>

<%if id_kuch<>22 then%> International:
<%else%> International:
<%end if%>

<% response.write rsmiedzynarodowa("max1")%>

<%if id_kuch<>13 then%> Mixed:
<%else%> Mixed:
<%end if%>

<% response.write rsmieszana("max1")%>

<%if id_kuch<>11 then%> Oriental:
<%else%> Oriental:
<%end if%>

<% response.write rsorientalna("max1")%>

<%if id_kuch<>1 then%> Polish:
<%else%> Polish:
<%end if%>

<% response.write rspolska("max1")%>

<%if id_kuch<>15 then%> Russian:
<%else%> Russian:
<%end if%>

<% response.write rsrosyjska("max1")%>

<%if id_kuch<>10 then%> Seafood:
<%else%> Seafood:
<%end if%>

<% response.write rsrybna("max1")%>

<%if id_kuch<>23 then%> Traditional Pol.:
<%else%> Traditional Pol.:
<%end if%>

<% response.write rsstaropolska("max1")%>

<%if id_kuch<>6 then%> Mediterranean:
<%else%> Mediterranean:
<%end if%>

<% response.write rssrodziemnomorska("max1")%>

<%if id_kuch<>24 then%> Turkish:
<%else%> Turkish:
<%end if%>

<% response.write rsturecka("max1")%>

<%if id_kuch<>3 then%> Italian:
<%else%> Italian:
<%end if%>

<% response.write rswloska("max1")%>

<%if id_kuch<>12 then%> Jewish:
<%else%> Jewish:
<%end if%>

<% response.write rszydowska("max1")%>

<%if id_kuch<>14 then%> Other:
<%else%> Other:
<%end if%>

<% response.write rsinneciekawe("max1")%>

Other:

<%= strIlePizzerii %> <%= strIleKawiarnie %> <%= strIleCatering %>

<% i = 0 counter = 0 Do While (Not rs_rest.EOF) AND (counter < PageCount) counter = counter + 1 %> <% rs_rest.MoveNext Loop %>

<% If Not IsEmpty(rs_rest("tr_URL2")) And Not rs_rest("tr_URL2") = "" Then Response.Write ("" & Iso2Win(rs_rest("tr_nazwa")) & "") Else Response.Write (Iso2Win(rs_rest("tr_nazwa"))) End If %>

<%=(Iso2Win(Trim(rs_rest("tm_nazwa2"))) & " " & Iso2Win(Replace(Trim(rs_rest("tr_adres")), " ", " ")))%> <% If Not IsNull(rs_rest("tr_telefon")) AND Not Trim(rs_rest("tr_telefon")) = "" Then Response.Write("
phone: " & rs_rest("tr_telefon")) End If %>

<% If Not IsNull(rs_rest("tr_URL2")) AND Not rs_rest("tr_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 %>