<%@LANGUAGE="VBSCRIPT" CODEPAGE="932"%>
<%
	 'パラメーター所得
	 nen=year(now)          
	 tsuki = Month(now)
	 
	If tsuki > 9 Then
	iTsuki="_" & tsuki
	Else
	iTsuki="_0" & tsuki	
	End If
	 
	 %>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<title>鎌倉市医師会　〜休日夜間救急診療所の当番表〜</title>
<link href="../../css/text.css" rel="stylesheet" type="text/css">
</head>

<body style="background-color:#FFFFFF; background-image:none;">
<div id="mainText">
<p>
<span id="mainStrong">鎌倉市医師会</span>では鎌倉市民のみなさまの休日や夜間の急患に対応するため、鎌倉市医師会館内に<span class="text14bstrng">休日夜間診療所を設け、</span>下表の時間の<span class="text14bstrng">内科</span>の診療をいたしております。</p>
<p> 内科・外科の受診の際は、状況により急な変更等もございますので、<span id="mainStrong">電話：0467-22-7888</span>までお問い合わせ下さい。</p>
<table width="400" border="0" cellpadding="5" cellspacing="1" bgcolor="#FFFFFF" style="margin-left:100px; font-size:12px; color:#333333;">
  <caption id="mainStrong">
  −鎌倉休日夜間診療所の時間区分−
  </caption>
  <tr bgcolor="#CDCFD8">
    <td>&nbsp;</td>
    <td>平日</td>
    <td>日曜、祝日</td>
  </tr>
  <tr bgcolor="#FFFFFF">
    <td>昼</td>
    <td>-</td>
    <td>9：00〜16：45</td>
  </tr>
  <tr bgcolor="#CDCFD8">
    <td>夜</td>
    <td>19：00〜23：00</td>
    <td>18：00〜23：00</td>
  </tr>
</table>
<p>※<span style="color:#FF0000;">赤字</span>の医師は小児科専門医です。お子様の急な病気の際にはお問い合わせください。</p>
</div>	    
	<div>
    <%
	myfile = nen & iTsuki & ".htm"

	dirname = Server.Mappath(".")
	Set ObjFSO = Server.CreateObject("Scripting.FileSystemObject")
	Set ObjFolder = ObjFSO.GetFolder(dirname)
	Set ColFiles = ObjFolder.SubFolders
	
	Set ColFiles = ObjFolder.Files
	For Each f in ColFiles
    	If f.Name = myfile Then
			flg = myfile
			exit for
		Else
			flg = "false"
		End If
	Next
	
	If flg = "false" Then
		Response.Write "<p>" & nen & "年" & tsuki & "月のデータはありません</p>"
	Else
		Response.Write "<iframe src=" & """" & nen & iTsuki & ".htm" & """" & " name=" & """" & "sub" & """" & " frameborder=" & """" & "0" & """" & " scrolling=" & """" & "auto" & """" & " style=" & """" & "width:100%; height:2000px;" & """" & "></iframe>"
	End If
	
	'オブジェクトを解放します。
	Set ColFiles = Nothing
	Set ObjFolder = Nothing
	Set ObjFSO = Nothing
	
	
    %>
    </div>

</body>
</html>
