<%@ language=VBScript%> <% Option Explicit%> 医療機関詳細 <% Dim DummySession Dim Db, Rec, Sql, Km1, Km2, Cnt Dim ByoinName, InChou, ChikuName, TaDoctor, Sikaku Dim OpenNen, SotuNen, Koui, SyutuDai, Fuzoku, Gaikan Dim Mejirushi, FloorKai, Elevate, IinAddr, KoutsuBen Dim ChizuLink, KoutsuAns, TelNo, FaxNo, AMShinF, PMShinF Dim NShinF, AMShinT, PMShinT, NShinT, Comment, MaleAddr Dim HomeAddr, Tokusyoku, HoyuKiki, Oushin, Zaitaku, Kenshin Dim YobouSetu, TokuChiry, HokenGai, Time7Ikou, Syohou Dim Ken1, Ken2, Ken3, Ken4, Ken5, Ken6, Ken7, Ken8,HanNo , kuruma Set Db = Server.CreateObject("ADODB.Connection") Db.Open "ibaraki" If Request.QueryString("id") <> "" then DummySession = Request.QueryString("id") else If Request.Form("hdnSISETSU") <> "" then DummySession = Request.Form("hdnSISETSU") end if end if if DummySession = "" then DummySession = 16 end if Sql = "select * from QX_医療機関詳細 where 施設番号 = " & DummySession Set Rec = Db.Execute(Sql) Km1 = "" Km2 = "" If Rec.Eof then Response.Write "施設番号（" & DummySession & "）のデータはありません
" else Cnt = 0 do Cnt = Cnt + 1 if instr(Km1, Rec.Fields("分類名").value)=0 then if Len(Km1) > 0 then Km1 = Km1 & "･" end if Km1 = Km1 & Rec.Fields("分類名").value end if if Len(Km2) > 0 then Km2 = Km2 & "･" end if Km2 = Km2 & Rec.Fields("診療科目").value rem Response.Write Km1 & "/" & Km2 & "
" if Cnt = 1 then ByoinName = Rec.Fields("名称１").value InChou = Rec.Fields("管理医師名").value ChikuName = Rec.Fields("地区名称").value TaDoctor = Rec.Fields("その他常勤医師").value Sikaku = Rec.Fields("専門認定資格").value OpenNen = Rec.Fields("開設年月日").value SotuNen = Rec.Fields("卒業年度").value Koui = Rec.Fields("校医").value SyutuDai = Rec.Fields("出身大学").value Fuzoku = Rec.Fields("院内付属施設").value Gaikan = Rec.Fields("医院外観").value Mejirushi = Rec.Fields("医院目印").value FloorKai = Rec.Fields("フロア−階数").value Elevate = Rec.Fields("ビルのエレベータ").value IinAddr = Rec.Fields("所在地１").value & _ Rec.Fields("所在地２").value & _ Rec.Fields("所在地３").value KoutsuBen = Rec.Fields("駐車場の有無").value kuruma = Rec.Fields("駐車台数").value ChizuLink = "" & "地図を表示" &"" KoutsuAns = Rec.Fields("交通案内").value TelNo = Rec.Fields("ＴＥＬ").value FaxNo = Rec.Fields("ＦＡＸ").value if Rec.Fields("午前開始時間").value = "0000" then AMShinT = "" else AMShinT = Rec.Fields("午前開始時間").value & "〜" & _ Rec.Fields("午前終了時間").value end if if Rec.Fields("午後開始時間").value = "0000" then PMShinT = "" else PMShinT = Rec.Fields("午後開始時間").value & "〜" & _ Rec.Fields("午後終了時間").value end if if Rec.Fields("夜間開始時間").value = "0000" then NShinT = "" else NShinT = Rec.Fields("夜間開始時間").value & "〜" & _ Rec.Fields("夜間終了時間").value end if AMShinF = "　" & Rec.Fields("月am").value & "　" & _ "　" & Rec.Fields("火am").value & "　" & _ "　" & Rec.Fields("水am").value & "　" & _ "　" & Rec.Fields("木am").value & "　" & _ "　" & Rec.Fields("金am").value & "　" & _ "　" & Rec.Fields("土am").value & "　" & _ "　" & Rec.Fields("日am").value & "　" & _ "　" & Rec.Fields("祝am").value & "　" PMShinF = "　" & Rec.Fields("月pm").value & "　" & _ "　" & Rec.Fields("火pm").value & "　" & _ "　" & Rec.Fields("水pm").value & "　" & _ "　" & Rec.Fields("木pm").value & "　" & _ "　" & Rec.Fields("金pm").value & "　" & _ "　" & Rec.Fields("土pm").value & "　" & _ "　" & Rec.Fields("日pm").value & "　" & _ "　" & Rec.Fields("祝pm").value & "　" NShinF = "　" & Rec.Fields("月n").value & "　" & _ "　" & Rec.Fields("火n").value & "　" & _ "　" & Rec.Fields("水n").value & "　" & _ "　" & Rec.Fields("木n").value & "　" & _ "　" & Rec.Fields("金n").value & "　" & _ "　" & Rec.Fields("土n").value & "　" & _ "　" & Rec.Fields("日n").value & "　" & _ "　" & Rec.Fields("祝n").value & "　" Comment = Rec.Fields("コメント").value MaleAddr = Rec.Fields("メールアドレス").value HomeAddr = Rec.Fields("ホームページリンク").value Tokusyoku = Rec.Fields("特色").value HoyuKiki = Rec.Fields("機器名１").value Oushin = Rec.Fields("往診の可否").value Zaitaku = Rec.Fields("在宅医療").value Comment = Rec.Fields("コメント").value Kenshin = Rec.Fields("検診その種類").value YobouSetu = Rec.Fields("予防接種取り扱い").value TokuChiry = Rec.Fields("特殊診療").value HOkenGai = Rec.Fields("保険外診療").value Time7Ikou = Rec.Fields("夜７時以降の診察").value Syohou = Rec.Fields("薬の処方").value Ken1 = Rec.Fields("標榜1").value Ken2 = Rec.Fields("標榜2").value Ken3 = Rec.Fields("標榜3").value Ken4 = Rec.Fields("標榜4").value Ken5 = Rec.Fields("標榜5").value Ken6 = Rec.Fields("標榜6").value Ken7 = Rec.Fields("標榜7").value Ken8 = Rec.Fields("標榜8").value HanNo = Rec.Fields("所属の班").value end if Rec.MoveNext loop until Rec.Eof %>

医療機関

 医療機関名： <%=ByoinName%>
管理医師名： <%=InChou%>
小学校区： <%=ChikuName%>

診療科目

 診療科目： <%=Ken1%>・<%=Ken2%>・<%=Ken3%>・<%=Ken4%>
<%=Ken5%>・<%=Ken6%>・<%=Ken7%>・<%=Ken8%>

所在地

 住所： <%=IinAddr%>
電話番号： <%=TelNo%>
交通の便： <%=KoutsuAns%>
地図： <%=ChizuLink%>

診療時間

　

　月　　火　　水　　木　　金　　土　　日　　祝
午前診療：

（<%=AMShinT%>）

<%=AMShinF%>
午後診療：

（<%=NShinT%>）

<%=NShinF%>
特記事項： <%=Comment%>

その他

 特色： <%=Tokusyoku%>
駐車場： <%=KoutsuBen%>( <%=kuruma%>台)
往診： <%=Oushin%>
ﾎｰﾑﾍﾟｰｼﾞ： <%=HomeAddr%>
Mailadd： <%=MaleAddr%>
<% end if Set Rec = Nothing Db.Close Set Db = Nothing %>