Infoexpress - Catering - records found

<%@CODEPAGE=1250 @Language=VBScript%> <% 'zapamietaj wartosci z formularza w Session() 'jesli nie jest to powrot z firm cateringowych 'Session.Abandon() If Request.QueryString("return") <> "true" AND Request.QueryString("page") = "" Then 'zeruj ustawienia formularza Session("nazwa") = "" Session("atut") = "" Session("drzwi") = "" For Each FormKey in Request.Form Session(FormKey) = Trim(Request.Form.Item(FormKey)) 'Response.Write("FormKey=" & 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") = Trim(Request("wojew")) Session("lwojewdztwo") = Request("lwojew") 'Zapamiêtanie w sesji wybrana miejscowosc Session("miejscowosc") = Trim(Request("miejsc")) Session("lmiejscowosc") = Request("lmiejsc") 'Zapamietanie w sesji wybranej dzielnicy Session("dzielnica") = Trim(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_catering 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_uslugi '-||----||----||---- uslug %> <% '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_nazwa2 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 = "tc_id_miejscowosci = " & Session("lmiejsc") 'Kryterium wyboru wyswietlane na ekranie Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tm_nazwa2 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 = "tc_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 wojewodztw 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 = "tc_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_catering = " & Session("lnazwa") 'Kryterium wyboru wyswietlane na ekranie Set rs = Server.CreateObject("ADODB.RecordSet") rs.Open "SELECT tc_nazwa FROM t_catering WHERE id_catering = " & Session("lnazwa"), info, 1, 1 Do While Not rs.EOF 'rob liste wojeowdztw kryt_nazwa = kryt_nazwa & "

" & rs(0) & "
" w_nazwa = "tc_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 wojewodztw 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_catering FROM t_atuty_catering WHERE " & strAtuty & " GROUP BY ta_id_catering HAVING count(*) = " & (UBound(tblAtuty)+1), info, 1, 1 If Not rs.EOF Then w_atuty = "id_catering 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_catering = -1" End If Else w_atuty = "" End If End If REM Tylko firm cateringowych, ktore maja prezentacje If Not IsEmpty(Session("drzwi")) Then If Session("drzwi") = "1" Then w_drzwi = "tc_URL2 IS NOT NULL AND NOT tc_URL2 = ''" Else w_drzwi = "" End If 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_atuty = "" Then If Not sSQL = "" Then sSQL = sSQL & " AND " & w_atuty Else sSQL = w_atuty 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 sSQL = "" Then sSQL = "SELECT tc_nazwa, tm_nazwa, tc_adres, tc_telefon, tc_URL2, id_wojewodztwa, tc_id_miejscowosci FROM v_catering" ELSE sSQL = "SELECT tc_nazwa, tm_nazwa, tc_adres, tc_telefon, tc_URL2, id_wojewodztwa, tc_id_miejscowosci FROM v_catering WHERE " & sSQL End If sSQL = sSQL & " ORDER BY tc_prezentacja DESC, tc_nazwa2" Set rs_catering = Server.CreateObject("ADODB.Recordset") 'Response.Write(sSQL) rs_catering.CursorLocation=3 rs_catering.open sSQL, info,,,adCmdTable rs_catering.PageSize=PageCount AllPages = rs_catering.PageCount If AllPages = 0 Then AllPages=1 if Not rs_catering.EOF AND Not rs_catering.BOF Then rs_catering.AbsolutePage=Page+1 End If ' Kryteria dla banera Typ = 4 wojewmiejsc = 0 %> Infoexpress - Catering - 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_catering.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_atut <> "" Then %> <% End If %>


Province:
	<%=Iso2Win(kryt_wojew) %>
Locality:
	<%=Iso2Win(kryt_miejs)%>
Quarter:
	<%=Iso2Win(kryt_dzieln)%>
Name:
	<%=Iso2Win(Replace(kryt_nazwa,"%","..."))%>
Adventages:
	<%=Iso2Win(kryt_atut)%>

<% i = 0 i = 0 ' zeruj, aby uzyc ponownie counter = 0 Do While (Not rs_catering.EOF) AND (counter < PageCount) counter = counter + 1 %> <% wojew_id = rs_catering("id_wojewodztwa") miejsc_id = rs_catering("tc_id_miejscowosci") rs_catering.MoveNext Loop %>

<% If Not IsEmpty(rs_catering("tc_URL2")) And Not rs_catering("tc_URL2") = "" Then Response.Write ("" & Iso2Win(rs_catering("tc_nazwa")) & "") Else Response.Write (Iso2Win(rs_catering("tc_nazwa"))) End If %>

<%=(Trim(Iso2Win(rs_catering("tm_nazwa"))) & " " & Iso2Win(Replace(Trim(rs_catering("tc_adres")), " ", " ")))%> <% If Not IsNull(rs_catering("tc_telefon")) AND Not Trim(rs_catering("tc_telefon")) = "" Then Response.Write("
phone: " & rs_catering("tc_telefon")) End If %>

<% If Not IsNull(rs_catering("tc_URL2")) AND Not rs_catering("tc_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 %>

<% ' Skrypt wstawiajacy bannery na strone banSQL = " SELECT * FROM t_banery WHERE wojewodztwo_id = '" & wojew_id & "' AND nazwa_kat = 'catering'" Set rs_ban = Server.CreateObject("ADODB.RecordSet") rs_ban.Open banSQL, info, 1, 1 Do While Not rs_ban.EOF Response.write ("

") rs_ban.MoveNext Loop rs_ban.Close Set rs_ban = Nothing %>

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

cofnij

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

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

<% If Not rs_catering.EOF Then %> <% End If %> przewiń dalej

przewiń dalej

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

<% rs_catering.Close Set rs_catering = Nothing %>