<%@Language="VBSCRIPT"%> <% '/************************************** '/* 変数の定義 '/************************************** Dim varNo,varSql,varSqlw varNo="" varSql="" varSqlw="" '/************************************** '/* データベース・レコードセットの定義 '/************************************** Set adcn=Server.CreateObject("ADODB.Connection") Set adrs_data=Server.CreateObject("ADODB.Recordset") Set adrs_week=Server.CreateObject("ADODB.Recordset") '/************************************** '/* 入力情報のコピー '/************************************** '/************************************** '/* クエリーの定義 '/************************************** '/adcn.Provider = "Microsoft.Jet.OLEDB.4.0" adcn.Open "data" varSql="select * from tbl_data_whatsnew where delt = 0" varSqlw="select * from tbl_data_week" %> <% adrs_data.Open varSql, adcn, 3, 1, 1 %> <% adrs_week.Open varSqlw, adcn, 3, 1, 1 %>

								診療時間 科目名 曜日 月 火 水 木 金 土 日 小児科 午前 <% If adrs_week("monday_rest")=0 Then %><%=adrs_week("monday")%>- <%=adrs_week("monday_end")%><% Else %>×<% End If %> <% If adrs_week("tuesday_rest")=0 Then %><%=adrs_week("tuesday")%>- <%=adrs_week("tuesday_end")%><% Else %>×<% End If %> <% If adrs_week("wednesday_rest")=0 Then %><%=adrs_week("wednesday")%>- <%=adrs_week("wednesday_end")%><% Else %>×<% End If %> <% If adrs_week("thursday_rest")=0 Then %><%=adrs_week("thursday")%>- <%=adrs_week("thursday_end")%><% Else %>×<% End If %> <% If adrs_week("friday_rest")=0 Then %><%=adrs_week("friday")%>- <%=adrs_week("friday_end")%><% Else %>×<% End If %> <% If adrs_week("saturday_rest")=0 Then %><%=adrs_week("saturday")%>- <%=adrs_week("saturday_end")%><% Else %>×<% End If %> <% If adrs_week("sunday_rest")=0 Then %><%=adrs_week("sunday")%>- <%=adrs_week("sunday_end")%><% Else %>×<% End If %> 午後 <% If adrs_week("monday_a_rest")=0 Then %><%=adrs_week("monday_a")%>- <%=adrs_week("monday_a_end")%><% Else %>×<% End If %> <% If adrs_week("tuesday_a_rest")=0 Then %><%=adrs_week("tuesday_a")%>- <%=adrs_week("tuesday_a_end")%><% Else %>×<% End If %> <% If adrs_week("wednesday_a_rest")=0 Then %><%=adrs_week("wednesday_a")%>- <%=adrs_week("wednesday_a_end")%><% Else %>×<% End If %> <% If adrs_week("thursday_a_rest")=0 Then %><%=adrs_week("thursday_a")%>- <%=adrs_week("thursday_a_end")%><% Else %>×<% End If %> <% If adrs_week("friday_a_rest")=0 Then %><%=adrs_week("friday_a")%>- <%=adrs_week("friday_a_end")%><% Else %>×<% End If %> <% If adrs_week("saturday_a_rest")=0 Then %><%=adrs_week("saturday_a")%>- <%=adrs_week("saturday_a_end")%><% Else %>×<% End If %> <% If adrs_week("sunday_a_rest")=0 Then %><%=adrs_week("sunday_a")%>- <%=adrs_week("sunday_a_end")%><% Else %>×<% End If %>
<% while NOT adrs_data.EOF %> 　 ■<%=adrs_data("title")%> <%=adrs_data("memo")%> 　 <% adrs_data.MoveNext() Wend %>

<% adrs_data.Close %>