<%@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 wybrany > 1 then %> <% end if %> <% if request.QueryString("lok")="1" then %>
<% 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%> <% if edycja <>1 then %> <% 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") %> <% zlamteraz=false response.write "" tytulbezzn=replace(RS_szcz("tytul"),"","") if tytulbezzn<>RS_szcz("tytul") then zlam_teraz=true end if %> <% liczbaznakow = liczbaznakow+ len(tytulbezzn) %> <% pom = RS_szcz("id_szczegolu") RS_szcz.movenext if RS_szcz.eof then %> <%else %> <%end if if zlam_teraz or (not pierwszy_wiersz and ile_nastepny>=ile_pierwszy) then %><%liczbaznakow = 0 %><% ile_nastepny=0 %><%pierwszy_wiersz=false%><%end if Wend RS_szcz.close%> <% if zdjm1 or zdjm2 then %> <% 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 %> <% end if %>

zak2 <%else%>zak1<%end if%> href=" prezentacja.asp?id=<%=request.QueryString("id")%>"> Ogólne 
 zak_a_lewy.gif<%else%>zak_lewy.gif<%end if%>" width=4>zak_a_tlo.gif<%else%>zak_tlo.gif<%end if%>" noWrap vAlign=top >
zak2 <%else%>zak1<%end if%> href="prezentacja.asp?id=<%=request.QueryString("id")%>&idsz=<%=RS_szcz("id_szczegolu")%>"><%=tytulbezzn%>
 
zak2 <%else%>zak1<%end if%> href=" prezentacja.asp?id=<%=request.QueryString("id")%>&lok=1"> Lokalizacja 

zak2 <%else%>zak1<%end if%> href=" prezentacja.asp?id=<%=request.QueryString("id")%>&lok=2"> Badania 
 


<% tekst1 = replace(tekst_szczegolu ,Chr(10), "
") response.write replace(tekst1, " ", "  ") %>


<%end if%> <% end if %> <% if edycja=1 and Left(request.ServerVariables("REMOTE_HOST"),6)="62.233" then %>
<% if zdjm1 then %>
  <% end if %>
<% if zdjm2 then %>
<% end if %>
<% end if %> <% if id_placowki<>90717 then %> <% if edycja=1 then %> <% end if %>
Statystyki wejść na prezentację
Statystyki odsłon na liście wynikowej
<% end if %>
 
<% 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.

Pomoc techniczna

Drukuj