%@LANGUAGE="VBSCRIPT" CODEPAGE="28592"%>
<% if request.querystring("ed")<>"1" and request.querystring("id")<>"90621" then %>
<% if request.querystring("idsz")<>"" then %>
<% response.redirect "../nm.asp?p=6176,1,"&request.querystring("idsz")&","&request.querystring("id") %>
<% else %>
<% response.redirect "../nm.asp?p=4128,1,"&request.querystring("id") %>
<% end if %>
<% end if %>
<% ' Pasek 90621 ma inny lewy pasek!!
dim pasek
dim img_tlo
pasek = "2pasek.jpg"
img_tlo="tlo6.gif"
Sub ZmienPasek(pasek_path,id_pasek)
if request.QueryString("id")=cstr(id_pasek) and pasek="2pasek.jpg" then
pasek=pasek_path
end if
End Sub
Sub ZmienPasekZakladka(pasek_path,id_pasek,id_szczeg)
if request.QueryString("id")=cstr(id_pasek) and request.QueryString("idsz")=cstr(id_szczeg) then
pasek=pasek_path
end if
End Sub
Sub ZmienPasekLokalizacja(pasek_path,id_pasek)
if request.QueryString("id")=cstr(id_pasek) and request.QueryString("lok")="1" then
pasek=pasek_path
end if
End Sub
Sub ZmienTlo(tlo_path,id_pasek)
if request.QueryString("id")=cstr(id_pasek) and img_tlo="tlo6.gif" then
img_tlo=tlo_path
end if
End Sub
Sub ZmienTloZakladka(tlo_path,id_pasek,id_szczeg)
if request.QueryString("id")=cstr(id_pasek) and request.QueryString("idsz")=cstr(id_szczeg) then
img_tlo=tlo_path
end if
End Sub
%>
<%'DIRURL=replace(aurl,"start.htm","images/")
%>
<% conn.execute "insert into t_statystyki_wejsc(id_placowki,ip_odw,data) values ("&request.QueryString("id")&",'"&request.ServerVariables("REMOTE_HOST")&"', getdate())" %>
<%
if session("medserwis")="OK" then
session("zewnatrz") = false
else
if Left(request.ServerVariables("REMOTE_HOST"),8) <> "10.0.0.2" and Left(request.ServerVariables("REMOTE_HOST"),8) <> "10.0.0.9" and Left(request.ServerVariables("REMOTE_HOST"),6) <> "62.233" and cstr(session("id"))<>request.QueryString("id") and request.QueryString("ed")<>"" then
if session("id")<>request.QueryString("id") then
response.write "Dostęp zabroniony!"
session("id")=request.QueryString("id")
response.redirect "../administracja/auth.asp"
end if
else
session("zewnatrz") = false
if Left(request.ServerVariables("REMOTE_HOST"),8) <> "10.0.0.2" and Left(request.ServerVariables("REMOTE_HOST"),8) <> "10.0.0.9" and Left(request.ServerVariables("REMOTE_HOST"),6) <> "62.233" then
session("zewnatrz") = true
end if
end if
end if
wyswietl_badania = false
if IsEmpty(Request.QueryString("ed")) then
edycja = 0
else
edycja = Request.QueryString("ed")
end if
if Request.QueryString("login") ="mbanach" and request.QueryString("id") = "90364" then
edycja = 1
end if
if IsEmpty(request.QueryString("id")) then
response.write("Błąd! Podaj ID placówki")
response.end
end if
id_placowki = request.QueryString("id")
if conn.execute("select count(*) from Placowki_statystyki where id_placowki="&id_placowki)(0) <> 0 then
statystyka=conn.execute("select stat from Placowki_statystyki where id_placowki="&id_placowki)(0)
else
statystyka=""
end if
session("statystyka")=statystyka
if IsEmpty(request.QueryString("sid")) then
if IsEmpty(request.QueryString("bid")) then
akt_specjal = 0
session("sid") = ""
else
akt_specjal = cint(request.QueryString("bid"))
session("sid") = akt_specjal
end if
else
akt_specjal = cint(request.QueryString("sid"))
session("sid") = akt_specjal
end if
Set RS_spec = Server.CreateObject("ADODB.Recordset")
Set RS_spec.ActiveConnection = Conn
if edycja = 1 then
Sql_spec="SELECT distinct nazwa, specjalizacje.id_specjalizacji as id_spec, id_placowki, placowka_specjalizacje.pokazuj FROM Specjalizacje INNER JOIN Placowka_specjalizacje ON Specjalizacje.id_specjalizacji = Placowka_specjalizacje.id_specjalizacji WHERE id_placowki = "& id_placowki&" order by nazwa"
else
Sql_spec="SELECT distinct nazwa, specjalizacje.id_specjalizacji as id_spec, id_placowki, placowka_specjalizacje.pokazuj FROM Specjalizacje INNER JOIN Placowka_specjalizacje ON Specjalizacje.id_specjalizacji = Placowka_specjalizacje.id_specjalizacji WHERE id_placowki = "& id_placowki&" and placowka_specjalizacje.pokazuj = 1 order by nazwa"
end if
RS_spec.open Sql_spec, Conn,1,3
Set RS_pl = Server.CreateObject("ADODB.Recordset")
Set RS_pl.ActiveConnection = Conn
Sql1="SELECT * FROM v_prezentacja WHERE id_placowki = "& id_placowki
RS_pl.open Sql1, Conn,1,3
set FS=Server.CreateObject("Scripting.FileSystemObject")
if RS_pl("url1") <> "" then
if FS.FolderExists(Server.MapPath(RS_pl("url1"))) then
url = RS_pl("url1")
IMGlogoURL=url&"/logo.gif"
if FS.FileExists(Server.MapPath(IMGlogoURL)) then
zdjl=true
end if
IMGURL=url&"/0s.jpg"
if FS.FileExists(Server.MapPath(IMGURL)) then
zdjp=true
end if
galeria = false
IMG1URL=url&"/1s.jpg"
if FS.FileExists(Server.MapPath(IMG1URL)) then
zdj1=true
galeria = true
end if
IMG2URL=url&"/2s.jpg"
if FS.FileExists(Server.MapPath(IMG2URL)) then
zdj2=true
galeria = true
end if
IMG3URL=url&"/3s.jpg"
if FS.FileExists(Server.MapPath(IMG3URL)) then
zdj3=true
galeria = true
end if
IMG4URL=url&"/4s.jpg"
if FS.FileExists(Server.MapPath(IMG4URL)) then
zdj4=true
galeria = true
end if
IMG5URL=url&"/5s.jpg"
if FS.FileExists(Server.MapPath(IMG5URL)) then
zdj5=true
galeria = true
end if
IMG6URL=url&"/6s.jpg"
if FS.FileExists(Server.MapPath(IMG6URL)) then
zdj6=true
galeria = true
end if
IMG7URL=url&"/7s.jpg"
if FS.FileExists(Server.MapPath(IMG7URL)) then
zdj7=true
galeria = true
end if
IMG8URL=url&"/8s.jpg"
if FS.FileExists(Server.MapPath(IMG8URL)) then
zdj8=true
galeria = true
end if
IMGm1URL=url&"/mapka1.gif"
if FS.FileExists(Server.MapPath(IMGm1URL)) then
zdjm1=true
end if
IMGm2URL=url&"/mapka2.gif"
if FS.FileExists(Server.MapPath(IMGm2URL)) then
zdjm2=true
end if
end if
end if
Set RS_szczegoly = Server.CreateObject("ADODB.Recordset")
Set RS_szczegoly.ActiveConnection = Conn
Sqlopisgl="SELECT * FROM t_szczegoly WHERE id_placowki = "& id_placowki &" and rodzaj = 0 and tekst is not null order by priorytet"
RS_szczegoly.open Sqlopisgl, Conn,1,3
if RS_szczegoly.recordcount > 0 then
opisgl = RS_szczegoly("tekst")
else
opisgl = ""
end if
session("opisgl") = opisgl
RS_szczegoly.close
Sqlopisgl="SELECT * FROM t_szczegoly WHERE id_placowki = "& id_placowki &" and rodzaj = 2 and tekst is not null"
RS_szczegoly.open Sqlopisgl, Conn,1,3
if RS_szczegoly.recordcount > 0 then
aktual = RS_szczegoly("tekst")
else
aktual= ""
end if
session("aktual") = aktual
%>
<%
session("nazwa") = rs_pl("nazwa")
session("adres") = rs_pl("adres")
session("kod_pocztowy") = rs_pl("kod_pocztowy")
session("miasto") = rs_pl("miasto")
session("tel1") = rs_pl("tel1")
session("tel2") = rs_pl("tel2")
session("tel3") = rs_pl("tel3")
session("fax") = rs_pl("fax")
session("email") = rs_pl("email")
session("www") = rs_pl("adreswww")
session("url1") = rs_pl("url1")
session("logo") = rs_pl("logo")
session("url_logo") = rs_pl("url_logo")
session("prezentacja") = rs_pl("prezentacja")
session("czynna") = rs_pl("godzinypl")
if rs_pl("dzielnicat")<>"" then
session("dzielnica") = replace(rs_pl("dzielnicat"),"24h","")
else
session("dzielnica") = ""
end if
session("tabela_dyzurow") = rs_pl("tabela_dyzurow")
session("url2") = rs_pl("url2")
Set RS_log = Server.CreateObject("ADODB.Recordset")
Set RS_log.ActiveConnection = Conn
Sqllog="SELECT * FROM administracja WHERE id_placowki = "& id_placowki
RS_log.open Sqllog, Conn,1,3
if RS_log.recordcount > 0 then
session("pokaz_login") = rs_log("login")
session("pokaz_haslo") = rs_log("haslo")
else
session("pokaz_login") = ""
session("pokaz_haslo") = ""
end if
RS_log.close
%>
<% = rs_pl("nazwa") %>
<% if edycja = 1 then %>
<% end if %>
<% if edycja = 1 and request.QueryString("login")="" then %>
Zobacz
<% else if edycja = 2 and request.QueryString("login")="" then %>
Edytuj
<% end if %>
<% end if %>
<% if zdjl then %><% end if %>
<%=rs_pl("kod_pocztowy")%> <%=TRIM(rs_pl("miasto"))%>, <%=rs_pl("adres")%>
<%if rs_pl("dzielnicat") <> "" then %>, dzielnica: <%=session("dzielnica")%>
<%end if%>
telefon <%=trim(rs_pl("tel1"))%><%if rs_pl("tel2") <> "" then %>, <%=rs_pl("tel2")%>
<%end if%>
<%if rs_pl("tel3") <> "" then %>
telefon <%=rs_pl("tel3")%>
<%end if%>
<% if rs_pl("fax") <> "" then %>
fax <%=rs_pl("fax")%>
<%end if%>
<% if rs_pl("email") <> "" then %>
e-mail: "><%=rs_pl("email")%>
<%end if%>
<% if (rs_pl("adreswww") <> "") then %>
<% if id_placowki<>90717 then %>
Adres WWW: "><%=rs_pl("adreswww")%>
<% else %>
Adres WWW: <%=rs_pl("adreswww")%>
<% end if %>
<%end if%>
<% if rs_pl("godzinypl") <> "" then %>
Godziny pracy placówki: <%=rs_pl("godzinypl")%>
<%end if%>
<% if isEmpty(request.QueryString("idsz")) then
if isEmpty(request.QueryString("lok")) then
wybrany = 0
else
wybrany = cint(request.QueryString("lok"))
end if
else
wybrany = cint(request.QueryString("idsz"))
end if
if edycja = 1 then
wybrany = 0
end if
liczbaznakow = 0%>
<%
pierwszy_wiersz=true
ile_pierwszy=0
Set RS_szcz = Server.CreateObject("ADODB.Recordset")
Set RS_szcz.ActiveConnection = Conn
Sql_szczeg="SELECT tytul, id_szczegolu, tekst FROM t_szczegoly WHERE id_placowki = "& id_placowki &" and rodzaj = 1 and tekst is not null order by priorytet desc"
RS_szcz.open Sql_szczeg, Conn,1,3
While not RS_szcz.eof%>
<%
if pierwszy_wiersz then
ile_pierwszy=ile_pierwszy+1
else
ile_nastepny=ile_nastepny+1
end if
if liczbaznakow > 80 then %>
<%liczbaznakow = 0%><%ile_nastepny = 2%>
<% pierwszy_wiersz=false %><%end if%>
<% if wybrany=RS_szcz("id_szczegolu") then tekst_szczegolu = RS_szcz("tekst") %>
<% end if %>
<%' czy_bad = conn.execute("select count(*) from placowki_badania where id_placowki="&request.QueryString("id"))(0)%>
<% czy_bad = conn.execute("select count(*) from placowki_badania,badania where placowki_badania.id_badania=badania.id_badania and pokazuj2 is not null and id_placowki="&request.QueryString("id"))(0)%>
<% if czy_bad > 0 and RS_spec.recordcount > 0 then %>
<%
if statystyka<>"" then
%>
<%
else
%>
<% end if %>
Strona
wykonana i administrowana przez Ogólnopolski Serwis
Medyczny Medserwis.pl. Wszelkie prawa do informacji, materiałów
i zdjęć zawartych na tej stronie są zastrzeżone i ich
wykorzystanie bez zgody właścicieli niniejszej strony jest
nie zgodne z prawem.