%
@LANGUAGE="VBSCRIPT" CODEPAGE="28592"
%>
<%
Response.redirect("http://"&request.ServerVariables("HTTP_HOST"))
const GT_ZLITERAMI=0
const GT_BEZLITER=1
const GT_NAZWA=0
const GT_LINK=1
const GT_SUBDOMENA=2
%>
<%
testw=0
if request.QueryString("test")="1" or session("testw")=1 or lcase(request.ServerVariables("HTTP_HOST"))="test.apartamenty.pl" then
testw=1
session("testw")=1
end if
%>
<% miesiace = Array("stycznia", "lutego", "marca", "kwietnia", "maja", "czerwca", "lipca", "sierpnia", "września", "października", "listopada", "grudnia") %>
<% start=Timer %>
<%
if request.ServerVariables("HTTP_HOST")="apartamenty.pl" then
response.redirect "http://www.apartamenty.pl"
end if
httphost = request.ServerVariables("HTTP_HOST")
httphost = replace(httphost, "www.", "")
httphost = replace(httphost, ".apartamenty.pl", "")
subgraf = httphost
if request.QueryString("p")="" then
set objdom=server.CreateObject("adodb.recordset")
objdom.open "select * from t_subdomeny where subdomena='"&httphost&"'",conn,1,3
if not objdom.eof then
subdomena=true
if objdom("typ")=1 then
konf_param="48,"&objdom("id_typu")&",7"
end if
' if objdom("typ")=2 then
' konf_param="144,"&objdom("id_typu")&",3"
' end if
if objdom("typ")=3 then
konf_param="12,"&objdom("id_typu")&",1"
end if
if objdom("typ")=4 then
konf_param="144,"&objdom("id_typu")&",11"
end if
if objdom("typ")=5 then
tmp_id_podgrupy = objdom("id_typu")
tmp_id_grupy = conn.execute("select id_grupy from t_produkty_podgrupy where id_podgrupy="&tmp_id_podgrupy)(0)
konf_param="4144,"&tmp_id_podgrupy&","&tmp_id_grupy&",7"
end if
end if
objdom.close
end if
%>
<% conn.execute "set dateformat ymd" %>
<%
if request.Form("pierwotny_miasto")<>"" then
set objm=server.CreateObject("adodb.recordset")
objm.open "select * from t_miejscowosci where nazwa_miasta like '%"&SQLRepl(request.Form("pierwotny_miasto"))&"%' order by id_miejscowosci", conn,1,3
if objm.recordcount > 0 then
pn = SQLRepl(Trim(request.Form("pierwotny_nazwa")))
dev = SQLRepl(Trim(request.Form("pierwotny_developer")))
if pn<>"" then pn = "&pnazwa="& pn
if dev<>"" then dev = "&dev="& dev
'Response.Write("ap.asp?p=12,"&objm("id_miejscowosci")&",1"&pn&dev)
response.redirect "ap.asp?p=12,"&objm("id_miejscowosci")&",1"&pn&dev
end if
objm.close
end if
Set rs = CreateObject("ADODB.RecordSet")
if isempty(konf_param) or isnull(konf_param) then
konf_param=SQLRepl(request.QueryString("p"))
end if
if request.Form("param")<>"" then
konf_param=SQLRepl(request.form("param"))
end if
if IsEmpty(konf_param) then
konf_param="0"
end if
Rozpakuj_parametry(konf_param)
'response.write konf_param
'response.end
sv_http_host = lcase(request.ServerVariables("HTTP_HOST"))
pos1=InStr(sv_http_host, ".")
koniec1=Len(sv_http_host)
tempsv=Mid(sv_http_host,pos1+1,koniec1)
pos2=InStr(tempsv, ".")
tempsv=Mid(tempsv,1,pos2-1)
tempupper=Mid(tempsv,1,1)
tempupper=UCase(tempupper)
koniec2=Len(tempsv)
tempsv=Mid(tempsv,2,koniec2)
tempsv=tempupper+tempsv
if tempsv = "Lazienki" then tempsv = "Łazienki"
if tempsv = "Oswietlenie" then tempsv = "Oświetlenie"
if tempsv = "Wykonczeniescian" then tempsv = "Wykończenie ścian"
if tempsv = "Podlogi" then tempsv = "Podłogi"
if tempsv = "Drzwi " then tempsv = "Drzwi i Okucia"
if tempsv = "Szafyigarderoby" then tempsv = "Szafy i garderoby"
if tempsv = "Okna" then tempsv = "Okna i Dekoracje"
if tempsv = "Salonyijadalnie" then tempsv = "Salony i Jadalnie"
if tempsv = "Klimatyzacja" then tempsv = "Klimatyzacja / wentylacja"
if tempsv = "Gabinet" then tempsv = "Pokój do pracy, gabinet"
if tempsv = "Pokojdzieciecy" then tempsv = "Pokój dziecięcy"
if tempsv = "Pokojmlodziezowy" then tempsv = "Pokój młodzieżowy"
if tempsv = "Balkony" then tempsv = "Balkony, loże, werandy"
glowna_domena = true
if session("crm")<>"OK" and sv_http_host<>"test.apartamenty.pl" and sv_http_host<>"www.test.apartamenty.pl" and sv_http_host<>"administracja.apartamenty.pl" then
set objsub = server.CreateObject("adodb.recordset")
objsub.open "select * from t_subdomeny where typ=5",conn,1,3
bez_artykulow = false
while not objsub.eof
if id_podgrupy=objsub("id_typu") then
bez_artykulow=true
if sv_http_host = "www."&lcase(objsub("subdomena"))&".apartamenty.pl" then
glowna_domena = false
subdomena_meta_title = objsub("title")
subdomena_meta_desc = objsub("description")
else
if konf_param="" or konf_param="0" or konf_param="144,"&objsub("id_typu")&","&id_artykulu&",11" then
response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl"
else
response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl?p="&konf_param
end if
end if
end if
objsub.movenext
wend
objsub.close
if sv_http_host = "kuchnie.apartamenty.pl" then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", "http://www.kuchnie.apartamenty.pl/"
response.end
end if
if not bez_artykulow then
objsub.open "select * from t_subdomeny where typ=1",conn,1,3
while not objsub.eof
if id_artykulu=objsub("id_typu") then
if sv_http_host = "www."&lcase(objsub("subdomena"))&".apartamenty.pl" then
glowna_domena = false
else
if konf_param="" or konf_param="0" then
response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl"
else
'response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl?p="&konf_param
end if
end if
end if
objsub.movenext
wend
objsub.close
end if
' objsub.open "select * from t_subdomeny where typ=2",conn,1,3
' while not objsub.eof
' if id_uslugi=objsub("id_typu") then
' if sv_http_host = "www."&lcase(objsub("subdomena"))&".apartamenty.pl" then
' glowna_domena = false
' else
' if konf_param="" or konf_param="0" then
' response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl"
' else
' response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl?p="&konf_param
' end if
' end if
' end if
' objsub.movenext
' wend
' objsub.close
objsub.open "select * from t_subdomeny where typ=3",conn,1,3
while not objsub.eof
if id_miasta=objsub("id_typu") and rynek=TR_PIERWOTNY then
if sv_http_host = "www."&lcase(objsub("subdomena"))&".apartamenty.pl" then
glowna_domena = false
if objsub("czy_dom")=1 or objsub("czy_dom")=2 then
pierwotny_czydom=objsub("czy_dom")
end if
subdomena_meta_title = objsub("title")
subdomena_meta_desc = objsub("description")
else
if konf_param="" or konf_param="0" or konf_param="12,"&objsub("id_typu")&",1" then
'response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl"
else
'response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl?p="&konf_param
end if
end if
end if
objsub.movenext
wend
objsub.close
objsub.open "select * from t_subdomeny where typ=4",conn,1,3
while not objsub.eof
if typ_pokazuj=TP_SALONY and id_uslugi=objsub("id_typu") then
if sv_http_host = "www."&lcase(objsub("subdomena"))&".apartamenty.pl" then
glowna_domena = false
subdomena_meta_title = objsub("title")
subdomena_meta_desc = objsub("description")
else
if konf_param="" or konf_param="0" or konf_param="144,"&objsub("id_typu")&",11" then
response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl"
else
response.Redirect "http://www."&objsub("subdomena")&".apartamenty.pl?p="&konf_param
end if
end if
end if
objsub.movenext
wend
objsub.close
if glowna_domena and sv_http_host <> "www.apartamenty.pl" and sv_http_host <> "test.apartamenty.pl" and sv_http_host <> "www.test.apartamenty.pl" then
if konf_param="" or konf_param="0" then
response.Redirect "http://www.apartamenty.pl"
else
if(inStr(Request.ServerVariables("Query_String"),"dyn") = 0) then
response.Redirect "http://www.apartamenty.pl?p="&konf_param
else
Response.Redirect "http://www.apartamenty.pl?p="&konf_param&"&dyn="&SQLRepl(Request.QueryString("dyn"))
end if
end if
end if
end if
if request("termin")<>"" then
if request("termin")="-1" then
termin_oddania = null
else
termin_oddania = SQLRepl(request("termin"))
end if
end if
if request("id_dzielnicy")<>"" then
id_dzielnicy = SQLRepl(request("id_dzielnicy"))
end if
if request.querystring("iddz")<>"" then
id_dzielnicy = SQLRepl(request.querystring("iddz"))
end if
if request.Form("pierwotny_nazwa")<>"" then
pierwotny_nazwa = SQLRepl(request.Form("pierwotny_nazwa"))
end if
if request.QueryString("pnazwa")<>"" then
pierwotny_nazwa = SQLRepl(request.QueryString("pnazwa"))
end if
'Response.Write(" a "&pierwotny_nazwa)
if request.Form("pierwotny_developer")<>"" then
pierwotny_developer = SQLRepl(request.Form("pierwotny_developer"))
end if
if request.QueryString("dev")<>"" then
pierwotny_developer = SQLRepl(request.QueryString("dev"))
end if
'Response.Write(" a "&pierwotny_developer)
if pierwotny_nazwa<>"" OR pierwotny_developer<>"" then
rynek = TR_PIERWOTNY
end if
if request.QueryString("log")="1" then
session("ap_login")="adt"
session("ap_haslo")="1111"
end if
%>
<%
set objal=server.CreateObject("adodb.recordset")
log_id = null
if session("ap_login")<>"" and session("ap_typ")="wtorny" then
objal.open "select * from v_agencje where login='"&session("ap_login")&"' and haslo='"&session("ap_haslo")&"'",conn,1,3
if objal.recordcount > 0 then
log_id = objal("id_agencji")
log_nazwa = objal("nazwa")
log_adres = objal("adres")
log_miasto = objal("nazwa_miasta")
log_telefon = objal("telefon")
end if
objal.close
end if
log_did = null
if session("ap_login")<>"" and session("ap_typ")="pierwotny" then
objal.open "select * from v_deweloperzy where login='"&session("ap_login")&"' and haslo='"&session("ap_haslo")&"'",conn,1,3
if objal.recordcount > 0 then
log_did = objal("id_dewelopera")
log_nazwa = objal("nazwa")
log_adres = objal("adres")
log_miasto = objal("nazwa_miasta")
log_telefon = objal("telefon")
end if
objal.close
end if
%>
<%
if isnull(id_miasta) then
nazwa_miasta=""
elseif id_miasta = -1 then
nazwa_miasta="kurorty"
else
nazwa_miasta=conn.execute("select nazwa_miasta from t_miejscowosci where id_miejscowosci="&id_miasta)(0)
meta_nazwa_miasta = nazwa_miasta
end if
if not isnull(id_regionu) then
select case id_regionu
case 1 meta_nazwa_miasta=" nad morzem"
case 2 meta_nazwa_miasta=" nad jeziorem"
case 3 meta_nazwa_miasta=" w górach"
end select
end if
' if not isnull(id_prezentacji) then
' nazwa_osrodka = conn.execute("select to_nazwa from t_osrodki where id_osrodka="&id_prezentacji)(0)
' end if
if subdomena_meta_title<>"" then
meta_title = subdomena_meta_title
else
meta_title = "Apartamenty"
if meta_nazwa_miasta <> "" then
meta_title = "Apartamenty "&meta_nazwa_miasta
end if
end if
if not isnull(id_prezentacji) and rynek=TR_PIERWOTNY then
meta_prezentacja = conn.execute("select nazwa from t_inwestycje where id_inwestycji="&id_prezentacji)(0)
meta_title = meta_prezentacja
end if
if not isnull(id_prezentacji) and rynek=TR_WTORNY then
meta_prezentacja = conn.execute("select ulica from t_wtorny_mieszkania where id_mieszkania="&id_prezentacji)(0)
meta_title = meta_prezentacja
end if
if not isnull(id_prezentacji_bezpl) then
meta_prezentacja = conn.execute("select nazwa from t_inwestycje where id_inwestycji="&id_prezentacji_bezpl)(0)
meta_title = meta_prezentacja
end if
if not isnull(id_artykulu) then
set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open "select temat from t_artykuly where id_artykulu="&id_artykulu, conn, 1, 3
'meta_artykul = conn.execute("select temat from t_artykuly where id_artykulu="&id_artykulu)(0)
if(rs.RecordCount > 0) then meta_artykul = rs("temat") end if
rs.Close() : set rs = nothing
meta_title = meta_artykul
if id_artykulu = 2 then meta_title="Meble łazienkowe"
if id_artykulu = 6 then meta_title = "Drzwi"
if id_artykulu = 6 AND sv_http_host = "www.drzwizewnetrzne.apartamenty.pl" then meta_title = "Drzwi zewnętrzne"
if id_artykulu = 6 AND sv_http_host = "www.drzwiwewnetrzne.apartamenty.pl" then meta_title = "Drzwi wewnętrzne"
if id_artykulu = 7 AND sv_http_host = "www.szafywnekowe.apartamenty.pl" then meta_title = "Szafy wnękowe"
if sv_http_host = "www.lazienki.apartamenty.pl" then meta_title = "Łazienki"
if sv_http_host = "www.meblepokojowe.apartamenty.pl" then meta_title = "Meble pokojowe"
if sv_http_host = "www.mebledzieciece.apartamenty.pl" then meta_title = "Meble dziecięce"
if sv_http_host = "www.meblewypoczynkowe.apartamenty.pl" then meta_title = "Meble wypoczynkowe"
end if
if typ_pokazuj = TP_USLUGI then
nazwa_uslugi = conn.execute("select usluga from t_uslugi_budowlane where id_uslugi="&id_uslugi)(0)
meta_title = nazwa_uslugi & " " &nazwa_miasta
end if
if typ_pokazuj = TP_INNE then
nazwa_uslugi = conn.execute("select kategoria from t_inne_kategorie where id_kategorii="&id_uslugi)(0)
meta_title = nazwa_uslugi & " " &nazwa_miasta
end if
if typ_pokazuj = TP_SALONY then
meta_title = "Salony meblowe" & " " &nazwa_miasta
end if
if subdomena_meta_desc <>"" then
meta_desc =subdomena_meta_desc
else
meta_desc = "Rynek pierwotny, rynek wtórny, wyposażenie wnętrz, baza usługodawców. Polecamy Apartamenty.pl"
end if
Function URLDecode(ByVal What)
'URL decode Function
'2001 Antonin Foller, PSTRUH Software, http://www.motobit.com
Dim Pos, pPos
'replace + To Space
What = Replace(What, "+", " ")
on error resume Next
Dim Stream: Set Stream = CreateObject("ADODB.Stream")
If err = 0 Then 'URLDecode using ADODB.Stream, If possible
on error goto 0
Stream.Type = 2 'String
Stream.Open
'replace all %XX To character
Pos = InStr(1, What, "%")
pPos = 1
Do While Pos > 0
Stream.WriteText Mid(What, pPos, Pos - pPos) + _
Chr(CLng("&H" & Mid(What, Pos + 1, 2)))
pPos = Pos + 3
Pos = InStr(pPos, What, "%")
Loop
Stream.WriteText Mid(What, pPos)
'Read the text stream
Stream.Position = 0
URLDecode = Stream.ReadText
'Free resources
Stream.Close
Else 'URL decode using string concentation
on error goto 0
'UfUf, this is a little slow method.
'Do Not use it For data length over 100k
Pos = InStr(1, What, "%")
Do While Pos>0
What = Left(What, Pos-1) + _
Chr(Clng("&H" & Mid(What, Pos+1, 2))) + _
Mid(What, Pos+3)
Pos = InStr(Pos+1, What, "%")
Loop
URLDecode = What
End If
End Function
function utftoiso2(str)
if Trim(str) = "" then
utftoiso2 = ""
Exit Function
end if
Dim ch, wyjscie
wyjscie = ""
ch = ""
for i = 1 to len(str)
if ch = "C3" Or ch = "C4" Or ch = "C5" then
on error resume next
ch = ch & hex(asc(Mid(str,i,1)))
if err.number<>0 then ch = "?"
on error goto 0
select case ch
case "C484": wyjscie = wyjscie & chr(cInt("&HA1"))
case "C486": wyjscie = wyjscie & chr(cInt("&HC6"))
case "C498": wyjscie = wyjscie & chr(cInt("&HCA"))
case "C581": wyjscie = wyjscie & chr(cInt("&HA3"))
case "C583": wyjscie = wyjscie & chr(cInt("&HD1"))
case "C393": wyjscie = wyjscie & chr(cInt("&HD3"))
case "C59A": wyjscie = wyjscie & chr(cInt("&HA6"))
case "C5B9": wyjscie = wyjscie & chr(cInt("&HAC"))
case "C5BB": wyjscie = wyjscie & chr(cInt("&HAF"))
case "C485": wyjscie = wyjscie & chr(cInt("&HB1"))
case "C487": wyjscie = wyjscie & chr(cInt("&HE6"))
case "C499": wyjscie = wyjscie & chr(cInt("&HEA"))
case "C582": wyjscie = wyjscie & chr(cInt("&HB3"))
case "C584": wyjscie = wyjscie & chr(cInt("&HF1"))
case "C3B3": wyjscie = wyjscie & chr(cInt("&HF3"))
case "C59B": wyjscie = wyjscie & chr(cInt("&HB6"))
case "C5BA": wyjscie = wyjscie & chr(cInt("&HBC"))
case "C5BC": wyjscie = wyjscie & chr(cInt("&HBF"))
case else: wyjscie = wyjscie & "?"
end select
else
on error resume next
ch = hex(asc(Mid(str,i,1)))
if err.number<>0 then ch = "?"
on error goto 0
if ch <> "C3" And ch <> "C4" And ch <> "C5" then wyjscie = wyjscie & Mid(str,i,1)
end if
next
utftoiso2 = wyjscie
on error goto 0
end function
Dim produkty_tylko_jego
produkty_tylko_jego = 0
if request.querystring("meta")<>"" then
meta2 = SQLRepl(request.querystring("meta"))
meta_title = ""
if inStr(meta2,"__") > 0 then
url_tab_tmp = Split(meta2,"__")
if UBound(url_tab_tmp) = 2 then
meta_title = utftoiso2(url_tab_tmp(0)) & " - " & utftoiso2(url_tab_tmp(1))
on error resume next
produkty_tylko_jego = cInt(url_tab_tmp(2))
if err.Number<>0 then
Response.Status="301 Moved Permanently"
Response.AddHeader "Location", SQLRepl(Request.QueryString("p")) & "," & url_tab_tmp(0) & ".html"
end if
on error goto 0
end if
end if
if meta_title = "" then meta_title = utftoiso2(meta2)
end if
%>
<%
if tempsv<>meta_title then
meta_title=tempsv + ", " + meta_title
meta_title = replace(meta_title,"Nowemieszkaniatrojmiasto,","") : meta_title = replace(meta_title,"Nowemieszkaniawarszawa,","") : meta_title = replace(meta_title,"Nowemieszkaniakrakow,","") : meta_title = replace(meta_title,"Nowemieszkaniakatowice,","") : meta_title = replace(meta_title,"Nowemieszkanialodz,","") : meta_title = replace(meta_title,"Nowemieszkaniawroclaw,","") : meta_title = replace(meta_title,"Nowemieszkaniapoznan,","") : meta_title = trim(meta_title)
meta_title = replace(meta_title,"Nowedomytrojmiasto,","") : meta_title = replace(meta_title,"Nowedomywarszawa,","") : meta_title = replace(meta_title,"Nowedomykrakow,","") : meta_title = replace(meta_title,"Nowedomykatowice,","") : meta_title = replace(meta_title,"Nowedomylodz,","") : meta_title = replace(meta_title,"Nowedomywroclaw,","") : meta_title = replace(meta_title,"Nowedomypoznan,","") : meta_title = trim(meta_title)
end if
%>
<%=meta_title%>
<%
if subgraf="apartamenty.pl" then
lok_strona_glowna = true
else
lok_strona_glowna = false
end if
%>
<% if lok_strona_glowna then %>
<% elseif rynek = TR_PIERWOTNY then %>
<% elseif typ_pokazuj = TP_PRODUKTY or typ_pokazuj = TP_PORADNIK or typ_pokazuj = TP_PRODUCENCI then %>
<% else %>
<% end if %>
<% if not lok_strona_glowna then %>
<% end if %>
<% if request.querystring("partnerzy")<>"" then %>
<% else %>
<% if request.QueryString("adm")<>"" then %>
<% if not isnull(log_id) then %>
<% if request.QueryString("adm")="1" then %>
<% end if %>
<% if request.QueryString("adm")="2" then %>
<% end if %>
<% if request.QueryString("adm")="3" then %>
<% end if %>
<% if request.QueryString("adm")="4" then %>
<% conn.execute ("delete from t_wtorny_mieszkania where id_mieszkania="&SQLRepl(request.QueryString("id"))) %>
<% end if %>
<%
if request.QueryString("adm")="5" then
%><%
'
end if
%>
<% end if %>
<% if not isnull(log_did) then %>
<% if request.QueryString("adm")="1" then %>
<% end if %>
<% if request.QueryString("adm")="2" then %>
<% end if %>
<% if request.QueryString("adm")="3" then %>
<% end if %>
<%
if request.QueryString("adm")="5" then
%><%
end if
%>
<% end if %>
<% else %>
<%if (httphost <> "apartamenty.pl" and Request.ServerVariables("Query_String") = "") then%>
<%end if%>
<%
if typ_pokazuj = TP_AKTUALNOSCI3 then
%><%
else %>
<% if typ_pokazuj = TP_SALONY then %>
<% if isnull(id_producenta) then %>
<% if isnull(id_miasta) then %>
<% else %>
<% end if %>
<% else %>
<% end if %>
<% else %>
<% if typ_pokazuj = TP_PORADNIKI then %>
<% else %>
<% if typ_pokazuj = TP_PRODUKTY or typ_pokazuj = TP_PORADNIK or typ_pokazuj = TP_PRODUCENCI then %>
<% else %>
<% if typ_pokazuj = TP_INNE then %>
<% if isnull(id_miasta) then %>
<% else %>
<% end if %>
<% else %>
<% if typ_pokazuj = TP_USLUGI then %>
<% if isnull(id_miasta) then %>
<% else %>
<% end if %>
<% else %>
<% if not isnull(id_prezentacji_bezpl) then %>
<% else %>
<% if not isnull(id_prezentacji) then %>
<% if rynek = tr_pierwotny then %>
<% else %>
<% end if %>
<% else %>
<% if typ_pokazuj=TP_LOKALIZACJA then %>
<% if rynek = TR_PIERWOTNY then %>
<% else %>
<% end if %>
<% else %>
<% if Request.Querystring("ida")<>"" or Request.Querystring("idp")<>"" then %>
<%elseif Request.QueryString("idm")<>"" then
Session("idm")=SQLRepl(Request.QueryString("idm"))
Session("ds")=SQLRepl(Request.QueryString("ds"))
Randomize
Dim max,min
set rsbaner = Server.CreateObject("ADODB.Recordset")
set rsgorabaner = Server.CreateObject("ADODB.Recordset")
set rsdolbaner = Server.CreateObject("ADODB.Recordset")
if Request.QueryString("idm")<>"7" then
rsbaner.open "SELECT * FROM t_banery a JOIN t_inwestycje b ON (a.id_inwestycji = b.id_inwestycji) WHERE miejscowosc="&SQLRepl(Request.QueryString("idm"))&" AND baner=1 and (gdzie=0 OR gdzie=2)",conn,1,3
else
rsbaner.open "SELECT * FROM t_banery a JOIN t_inwestycje b ON (a.id_inwestycji = b.id_inwestycji) WHERE (miejscowosc=32 or miejscowosc=39 or miejscowosc=40) AND baner=1 and (gdzie=0 OR gdzie=2)",conn,1,3
end if
rsgorabaner.open "SELECT * FROM t_banery a JOIN t_inwestycje b ON (a.id_inwestycji = b.id_inwestycji) WHERE miejscowosc="&SQLRepl(Request.QueryString("idm"))&" AND (baner=1 or a.id_inwestycji=1186) and (gdzie=0 OR gdzie=2) and (gora=1 or gora=2) ORDER by gora",conn,1,3
rsdolbaner.open "SELECT * FROM t_banery a JOIN t_inwestycje b ON (a.id_inwestycji = b.id_inwestycji) WHERE miejscowosc="&SQLRepl(Request.QueryString("idm"))&" AND baner=1 and (gdzie=0 OR gdzie=2) and (dol=1 or dol=2) ORDER by dol",conn,1,3
%>
<% if rsbaner.recordcount>0 then
max=rsbaner.recordcount
min=1
nrbaner = (Int((max-min+1)*Rnd+min))
rsbaner.move(nrbaner-1) %>
<% if rsgorabaner.recordcount>0 then %>
" target="_blank">/b0.jpg" alt="" border="0" width="530"/>
<% else %>
" target="_blank">/b0.jpg" alt="" border="0" width="530"/>
<% end if %>
<% else %>
<% if not isnull(id_artykulu) then %>
<% if(Request.QueryString("dyn") = "1") then %>
<%else%>
<%end if%>
<% else %>
<% if isnull(id_miasta) and isnull(id_agencji) and pierwotny_nazwa="" and pierwotny_developer="" then %>
<% else %>
<% if rynek=TR_PIERWOTNY then %>
<% else %>
<% end if %>
<% end if %>
<%end if%>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% end if %>
<% if subdomena then %>
<% end if %>
<% if request("a") = 1 or admin = 1 and 1=0 then %>
<% end if %>
<%
'response.write rynek &":P:"& TR_PIERWOTNY
if rynek = TR_PIERWOTNY then
%>
<%
elseif lok_strona_glowna then
%>
<% elseif typ_pokazuj = TP_PRODUKTY or typ_pokazuj = TP_PORADNIK or typ_pokazuj = TP_PRODUCENCI then %>
<% else %>
<% end if %>
<% if false then %>
<% end if %>
<% if lok_strona_glowna then %>
<% elseif typ_pokazuj = TP_PRODUKTY or typ_pokazuj = TP_PORADNIK or typ_pokazuj = TP_PRODUCENCI then %>
<% elseif rynek = TR_PIERWOTNY then %>
<% else %>
<% end if %>