<% ns_nazwa=s_nazwa ns_adres=s_adres ns_wojewodztwo=s_wojewodztwo ns_telefon=s_telefon ns_fax=s_fax ns_email=s_email ns_www=s_www ns_prezentacje=s_prezentacje ng_baner="../test/nowy1.jpg" ng_powrot=g_powrot1 ng_jeng="" ng_nazwa=objRS("tp_nazwa")&" "&objRS("tn_nazwa") ng_adres=objRS("tn_kod_pocztowy")&" "&objRS("tm_nazwa2")&"
"&iso2win(objRS("tn_adres")) ng_telefon1=objRS("tn_telefon1") ng_telefon2=objRS("tn_telefon2") ng_telefon3=objRS("tn_telefon3") ng_fax=objRS("tn_fax") ng_email=objRS("tn_email") ng_www=objRS("tn_www1") ng_wojewodztwo=objRS("tw_nazwa2") ng_logo=imglogo ng_zdjecie=imgurl ng_prezentacja="id_nocleg" ng_id=idobiektu ngp_hotel=s_hotel ngp_salekonferencyjne=s_Sale_konferencyjne ngp_restauracja=s_restauracja ngp_organizacja_wesel_i_bankietow=s_organizacja_wesel_i_bankietow ngp_catering=s_catering ngp_fitness=s_fitness ngp_opis=s_opis ng_jezyki="" set objjezyki=server.CreateObject("ADODB.Recordset") jeng=0 jger=0 objjezyki.open "select * from t_jezyki_noclegow where tjn_id_noclegu="&request.QueryString("id"),conn,1,3 while not objjezyki.eof if objjezyki("tjn_id_jezyka") = 2 then jeng=1 end if if objjezyki("tjn_id_jezyka") = 3 then jger=1 end if objjezyki.movenext wend if request.QueryString("url")<>"" then %><% urllink="&url="&request.QueryString("url")%><%else%><%urllink = ""%><%end if%> <% if session("lang") = "pol" then if jeng=1 then ng_jezyki=ng_jezyki&" " end if else ng_jezyki=ng_jezyki&" " end if if session("lang") = "ger" then if jeng=1 then ng_jezyki=ng_jezyki&" " end if else if jger=1 then ng_jezyki=ng_jezyki&" " end if end if %> <%set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=9 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 set oAtuty_odl=server.createobject("adodb.recordset") sasql="select * from v_atuty_odleglosc where ton_id_noclegu="&idObiektu oAtuty_odl.open sasql,conn,1,3 if oAtuty.recordcount>0 then if oAtuty("id_atutu")=10 then stars=1 elseif oAtuty("id_atutu")=70 then stars=2 elseif oAtuty("id_atutu")=71 then stars=3 elseif oAtuty("id_atutu")=72 then stars=4 elseif oAtuty("id_atutu")=73 then stars=5 end if %> <% end if oAtuty.close%> <%Set rs = CreateObject("ADODB.RecordSet") stsql="select * from t_cenyn where idObiektu="&idObiektu rs.Open stsql,Conn,1,3 'if rs.recordcount>0 then if (idObiektu <>9481 and rs.recordcount>0) and objRS("tn_nowy_cennik") <> 1 then rc1=rs(sql_rodzaj_pokoju1) rc2=rs(sql_rodzaj_pokoju2) %> <%if not rc2="" then span=2 else span=1 end if%> <% if stars > 0 then %> <% end if %> <% else %> <%end if%> <% set objkarn=server.CreateObject("adodb.recordset") objkarn.open "select * from t_obiekty where old_dzial=1 and old_id_obiektu="&idobiektu, conn_syl,1,3 if objkarn.recordcount>0 then id_obiektu_karn = objkarn("id_obiektu") objkarn.close objkarn.open "select * from t_bale where nr_karnawal between 1 and 2 and id_obiektu="&id_obiektu_karn, conn_syl,1,3 if objkarn.recordcount > 0 then %> Zobacz ofertę specjalną - Karnawał 2005 <% end if end if objkarn.close %>

<%set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=2 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <% oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <% end if set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=3 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <% oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <% end if set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=4 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <%oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <% end if set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=11 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <%oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <% end if set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=5 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <%oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <%end if%> <%set oAtuty=server.createobject("adodb.recordset") sasql="select * from v_atuty_skategoryzowane where id_rodzaj_atutu=7 and tan_id_noclegu="&idObiektu oAtuty.open sasql,conn,1,3 if oAtuty.recordcount>0 then %> <% cnt=1 while NOT oAtuty.EOF %> <% oAtuty.Movenext if cnt mod 3=0 then response.write "" if NOT oAtuty.EOF then response.write "" end if end if cnt=cnt+1 wend oAtuty.close %> <%end if%> <% if oAtuty_odl.recordcount > 0 then %> <% cnt=1 while NOT oAtuty_odl.EOF odleglosc = oAtuty_odl("ton_odleglosc") if odleglosc >= 1 then jedn = " km " else jedn = " m " odleglosc = odleglosc * 1000 end if %> <% if odleglosc > 0 then %> <% if cnt mod 2=0 then response.write "" if NOT oAtuty_odl.EOF then response.write "" end if end if cnt=cnt + 1 end if oAtuty_odl.Movenext wend oAtuty_odl.close %> <% end if %> <% if zdj1 then%> <% end if %>

<%=s_standard_obiektu%>:	<%for x=1 to stars%> <%next %>
<%if not rc2="" then%> <%end if%> <% x=1 while not rs.EOF %> <%if not rs("cena2")="" then%> <%end if%> <% x=x+1 rs.movenext wend %> LP <%=s_nazwa_pokoju%> <%=s_cena%> <%=s_ilosc_pokoi%> <%=rc1%>  <%=rc2%>  <%=x%>   <%=rs(sql_nazwaPokoju)%>  <%=rs("cena1")%> <%=rs("waluta")%> <%=rs("cena2")%> <%=rs("waluta")%>  <%=rs("iloscPokoi")%>
<% jezyk_cennika=1 if session("lang")="eng" then jezyk_cennika=2 end if if session("lang")="ger" then jezyk_cennika=3 end if Set cRS=Server.Createobject("Adodb.recordset") cRS.ActiveConnection=conn cRS.open "select * from v_cennik where id_obiektu = "&idObiektu &" and jezyk="&jezyk_cennika&" order by id_wiersza, nr_pozycji ",conn, 1, 3 while not cRS.eof %> <% ile_pozycji = cRS("ile_pozycji") for i = 1 to ile_pozycji if i > 1 then cRS.movenext end if if i = 1 then %> <% else %> <% end if %> <%next %> <% cRS.movenext wend%> <% if ile_pozycji = 1 then %><% end if %>  <%=iso2win(cRS("tekst"))%> <% if ile_pozycji = 1 then %><% end if %>  <%=iso2win(cRS("tekst"))%>
<%=s_wyposazenie_pokoi%>:	" width="32" height="32"> <%=oAtuty(sql_ta_nazwa)%>
<%=s_w_cenie_pokoju%>:	" width="32" height="32"> <%=oAtuty(sql_ta_nazwa)%>
<%=s_gastronomia_i_rozrywka%>:	" width="32" height="32"> <%=(oAtuty(sql_ta_nazwa))%>
<%=s_rekraacja%>	" width="32" height="32"> <%=(oAtuty(sql_ta_nazwa))%>
<%=s_informacje_dodatkowe%>:	" width="32" height="32"> <%=(oAtuty(sql_ta_nazwa))%>
<%=s_polozenie_obiektu%>:	" width="32" height="32"> <% if odleglosc>10 then %> <%=odleglosc%><%=jedn%> <% if idobiektu=11913 and (oAtuty_odl(sql_polozenie)="od centrum miejscowości") then %> od centrum Warszawy <% else %> <% if idobiektu=11913 and (oAtuty_odl(sql_polozenie)="from town centre") then %> from Warsaw centre <% else %> <% if idobiektu=11913 and (oAtuty_odl(sql_polozenie)="Stadtmitte") then %> Warschau mitte <% else %> <%=(oAtuty_odl(sql_polozenie))%> <% end if %> <% end if %> <% end if %> <% else %> <% if oAtuty_odl(sql_polozenie)="do jeziora" then response.write "nad jeziorem" elseif oAtuty_odl(sql_polozenie)="nad rzeką" then response.write "nad rzeką" else %><%=odleglosc%><%=jedn%><%=(oAtuty_odl(sql_polozenie))%> <% end if %> <% end if %>
<%=s_galeria%>:
<%if zdj1=true then%> <%end if%> <%if zdj2=true then%> <%end if%> <%if zdj3=true then%> <%end if%> <%if zdj4=true then%> <%end if%>
<%if zdj5=true then%> <%end if%> <%if zdj6=true then%> <%end if%> <%if zdj7=true then%> <%end if%> <%if zdj8=true then%> <%end if%>
<%end if%> <%if map<>"" then%>