<% Session.timeout = 20 If IsObject(Session("zaitaku_conn")) Then Set conn = Session("zaitaku_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.connectionTimeout = 60 conn.commandTimeout = 60 conn.open "DSN=zaitaku","","" Set Session("zaitaku_conn") = conn End If %> <% If IsObject(Session("ZAITAKUTOUBAN")) Then Set rs = Session("ZAITAKUTOUBAN") Else sql = "SELECT [在宅当番医昼レポート].[年], [在宅当番医昼レポート].[ZMONTH] AS 月, [在宅当番医昼レポート].[ZDAY] AS 日, Switch(Weekday([年] & '/' & [月] & '/' & [日])=1,'日',Weekday([年] & '/' & [月] & '/' & [日])=2,'月',Weekday([年] & '/' & [月] & '/' & [日])=3,'火',Weekday([年] & '/' & [月] & '/' & [日])=4,'水',Weekday([年] & '/' & [月] & '/' & [日])=5,'木',Weekday([年] & '/' & [月] & '/' & [日])=6,'金',Weekday([年] & '/' & [月] & '/' & [日])=7,'土') AS 曜日, IIf([在宅当番医昼レポート].[ZSHUKU]=True,'○',' ') AS 休祝日, [在宅当番医昼レポート].[INAME], [在宅当番医昼レポート].[IADDR], [在宅当番医昼レポート].[ITEL], [在宅当番医夜レポート].[INAME] AS N_INAME, [在宅当番医夜レポート].[IADDR] AS N_IADDR, [在宅当番医夜レポート].[ITEL] AS N_ITEL FROM 在宅当番医夜レポート RIGHT JOIN 在宅当番医昼レポート ON [在宅当番医夜レポート].[ZDAY]=[在宅当番医昼レポート].[ZDAY] ORDER BY [在宅当番医昼レポート].[ZDAY] " Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 If rs.eof Then rs.AddNew End If Set Session("ZAITAKUTOUBAN") = rs End If %> <% On Error Resume Next rs.MoveFirst %> <% On Error Resume Next rs.MoveFirst do while Not rs.eof %> <% rs.MoveNext loop%>
在宅当番医割当表
<%=Server.HTMLEncode(rs.Fields("年").Value)%> 年 <%=Server.HTMLEncode(rs.Fields("月").Value)%>月分
日 午後7時〜午後11時まで 休祝日昼 午前9時〜午後6時まで 休祝日夜 午後7時〜午後11時まで
     

昼間

夜間

曜日 休祝日 医院名 住所 電話番号 医院名 住所 電話番号
<%=Server.HTMLEncode(rs.Fields("日").Value)%>
<%=Server.HTMLEncode(rs.Fields("曜日").Value)%>
<%=Server.HTMLEncode(rs.Fields("休祝日").Value)%>
<%=Server.HTMLEncode(rs.Fields("INAME").Value)%>
<%=Server.HTMLEncode(rs.Fields("IADDR").Value)%>
<%=Server.HTMLEncode(rs.Fields("ITEL").Value)%>
<%=Server.HTMLEncode(rs.Fields("N_INAME").Value)%>
<%=Server.HTMLEncode(rs.Fields("N_IADDR").Value)%>
<%=Server.HTMLEncode(rs.Fields("N_ITEL").Value)%>