Hyper Content Server エラー情報
ファイル/index_pc.hc?PageName=%90%A7%8D%EC%8BL&MenuID=1
C:\InetPub\www.axis-works.net - users\LMJack2008\index_pc.hc
( C:\InetPub\www.axis-works.net - users\LMJack2008\PhotoDialy\Top.hc )
内　　容指定されたファイルが存在しないか、ファイルの読み込みができません。
追加情報SELECT * FROM "MyDialyDatas" WHERE ("ScheduleDate" >= '2025/1/01') And ("ScheduleDate" < '2025/02/17')

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html>
<head>
<!--!===============================================================
フォトダイアリー、メイン画面を実装するドキュメントです。
================================================================-->
    <meta http-equiv="Content-Type" content="text/html; charset=Shift_JIS" />
    <meta http-equiv="Pragma" content="no-cache" />
    <meta http-equiv="Cache-Control" content="no-cache" />
<!--!========== ページタイトル ==========-->
    <title><hctext hcaction="Value" hcoption="Value:Var('Title')">Title</hctext></title>
</head>
<body bgcolor="#FFFFFF" topmargin="5" marginheight="5" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('BackColor'); AttrName:'TEXT'; Value:Var('TextColor'); AttrName:'LINK'; Value:Var('LinkColor'); AttrName:'VLINK'; Value:Var('VLinkColor'); AttrName:'ALINK'; Value:Var('ALinkColor')">
<!--!========== 共通定義部分のインクルード ==========-->
    <hcblock hcaction="Include" hcoption="File:'Global.hc'"></hcblock>
<!--!========== 背景画像が指定されていれば設定 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('UseBackgroundImage')">
        <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:'TextData'; FindField:'Cate1'; FindOp:'='; FindValue:'PC用サイトで使用する画像'; FindField:'Cate2'; FindOp:'='; FindValue:'トップページ背景画像'; FindField:'SEQ'; FindOp:'='; FindValue:1; FindField:'ImagePath'; FindOp:'NotNull'; FindValue:'A'">
            <hcblock hcaction="Var" hcoption="Name:'Parent'; Value:TargetTag.Parent"></hcblock>
            <hcblock hcaction="Do" hcoption="Type:'Until'; Value:Var('Parent') = Nothing Or Var('Parent').TagName = 'TD'">
                <hcblock hcaction="Call" hcoption="Call:Var('Parent') = Var('Parent').Parent"></hcblock>
            </hcblock>
            <hcblock hcaction="Call" hcoption="Call:Var('Parent').Parameter('BACKGROUND') = FieldValue('ImagePath')"></hcblock>
        </hcblock>
    </hcblock>
<!--========== スタイルの定義 ==========-->
    <style type="text/css">
        .Header {color: #111111; background: #DDDDDD; font-size:12px;} .Data {color: #222222; background: #FFFFFF; font-size:12px;} .Field {color: #222222; background: #FFFFFF; font-size:12px; font-family:ＭＳ ゴシック, monospace}
    </style>
<!--!========== スタイルにカラーを設定する ==========-->
    <hcblock hcaction="Var" hcoption="Name:'Style'; Value:TargetTag.Parent.FindByTagName('STYLE')"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '12px', Var('FontSize'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#222222', Var('DataTextColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#FFFFFF', Var('DataBackColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#111111', Var('HeaderTextColor'))"></hcblock>
    <hcblock hcaction="Call" hcoption="Call:Var('Style').Text = Replace(Var('Style').Text, '#DDDDDD', Var('HeaderBackColor'))"></hcblock>
<!--!========== 管理モードに移行する場合のパスワードチェック ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Mainte')) = '1'">
        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('MaintePassword') <> Trim(Param('Password'))">
            <a href="index_pc.hc" hcaction="URL" hcoption="Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Password.hc'; ParamName:'Mainte'; ParamValue:1; ParamName:'BackTo'; ParamValue:'index_pc.hc?File=Top.hc&PageName=' & URLEncode(Param('PageName')); ParamName:'Msg'; ParamValue:'管理者パスワードを入力してください。'"></a>
        </hcblock>
    </hcblock>
<!--!========== 管理モードの移行／終了が要求されている場合、クッキーに設定 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Mainte')) <> ''">
        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Param('Mainte') = '1'">
            <hcblock hcaction="Cookie" hcoption="Name:'Mainte'; Value:'1'"></hcblock>
        </hcblock>
        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Param('Mainte') = '0'">
            <hcblock hcaction="Cookie" hcoption="Name:'Mainte'; Value:''"></hcblock>
        </hcblock>
    </hcblock>
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('AlwaysMainteMode')">
        <hcblock hcaction="Cookie" hcoption="Name:'Mainte'; Value:'1'"></hcblock>
    </hcblock>
<!--!========== アクションが指定されている場合、パスワードのチェック ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Action')) <> '' And Cookie('Mainte') = ''">
        <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('DataTableName'); FindField:'ID'; FindOp:'='; FindValue:Param('ID')">
            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(FieldValue('EditKey')) <> Trim(Param('Password'))">
                <a href="index_pc.hc" hcaction="URL" hcoption="AllParams:1; Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'BackTo'; ParamValue:'index_pc.hc?PageName=' & URLEncode(Param('PageName')); ParamName:'Msg'; ParamValue:'編集用パスワードを入力してください。'"></a>
            </hcblock>
        </hcblock>
    </hcblock>
<!--!========== 調整アクションの処理 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Action')) = 'Adjust'">
        <a href="index_pc.hc" hcaction="URL" hcoption="Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Adjust.hc'; ParamName:'ID'; ParamValue:Param('ID'); ParamName:'BackURL'; ParamValue:Param('BackURL')"></a>
    </hcblock>
<!--!========== 編集アクションの処理 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Action')) = 'Edit'">
        <a href="index_pc.hc" hcaction="URL" hcoption="Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Edit.hc'; ParamName:'ID'; ParamValue:Param('ID'); ParamName:'Date'; ParamValue:Param('Date')"></a>
    </hcblock>
<!--!========== 削除アクションの処理 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Action')) = 'Delete'">
        <hcblock hcaction="Delete" hcoption="DB:Var('DB1'); Table:Var('DataTableName'); FindField:'ID'; FindOp:'='; FindValue:Param('ID')"></hcblock>
        <hcblock hcaction="Delete" hcoption="DB:Var('DB1'); Table:Var('FileTableName'); FindField:'ParentID'; FindOp:'='; FindValue:Param('ID')"></hcblock>
        <hcblock hcaction="Delete" hcoption="DB:Var('DB1'); Table:Var('CommentTableName'); FindField:'ParentID'; FindOp:'='; FindValue:Param('ID')"></hcblock>
    </hcblock>
<!--!========== 写真削除アクションの処理 ==========-->
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Action')) = 'DeletePhoto'">
        <hcblock hcaction="Delete" hcoption="DB:Var('DB1'); Table:Var('FileTableName'); FindField:'ID'; FindOp:'='; FindValue:Param('ID')"></hcblock>
    </hcblock>
<!--!========== 今月のデータの存在する日付を収集 ==========-->
    <hcblock hcaction="Var" hcoption="Name:'Date'; Value:CDate(Param('Date'))"></hcblock>
    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Date')) = ''">
        <hcblock hcaction="Call" hcoption="Call:Var('Date') = Date()"></hcblock>
    </hcblock>
    <hcblock hcaction="Var" hcoption="Name:'Date2'; Value:DateAdd('m', 1, Var('Date'))"></hcblock>
    <hcblock hcaction="Var" hcoption="Name:'LinkDates'; Value:Array()"></hcblock>
    <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('DataTableName'); FindField:'ScheduleDate'; FindOp:'>='; FindValue:CStr(Year(Var('Date'))) & '/' & CStr(Month(Var('Date'))) & '/01'; FindField:'ScheduleDate'; FindOp:'<'; FindValue:CStr(Var('Date2'))">
        <hcblock hcaction="Call" hcoption="Call:Var('LinkDates').Add(FieldValue('ScheduleDate'), CStr(FieldValue('ScheduleDate')))"></hcblock>
    </hcblock>
    <table border="0" cellpadding="0" cellspacing="0" width="600" align="center" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:Var('Width'); AttrName:'BGCOLOR'; Value:Var('BackColor'); AttrName:'STYLE'; Value:'padding-left:' & Var('MarginWidth') & '%3B padding-right:' & Var('MarginWidth') & '%3B padding-top:' & Var('MarginHeight') & '%3B padding-bottom:' & Var('MarginHeight') & '%3B'"><tr><td><div hcaction="Value" hcoption="AttrName:'STYLE'; Value:'font-size:' & Var('FontSize') & '%3B color:' & Var('TextColor') & '%3B '">
<!--========== タイトル ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') <> '0' And Trim(Var('Title')) <> ''">
                        <table border="0" cellpadding="0" cellspacing="0"><tr>
                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') = '1'"><td width="7" bgcolor="#FF5050" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('TitleAccentColor')"> </td></hcblock>
                                <td width="575" bgcolor="#FFFFFF" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PageBackColor'); AttrName:'STYLE'; Value:'color:' & Var('TextColor') & '%3B font-size:' & Var('TitleFontSize') & '%3B line-height:' & CStr(CLng(Replace(Var('TitleFontSize'), 'px', '')) + 8) & 'px%3B'; AttrName:'WIDTH'; Value:Var('Width') - 7 - (CLng(Replace(Var('MarginWidth'), 'px', '')) * 2); AttrName:'ALIGN'; Value:IIf(Var('TitleStyle') = '1', 'left', IIf(Var('TitleStyle') = '2', 'right', 'center'))"> <strong><hctext hcaction="Value" hcoption="Value:Var('Title')">タイトル</hctext></strong> </td>
                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('TitleStyle') = '2'"><td width="7" bgcolor="#FF5050" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('TitleAccentColor')"> </td></hcblock></tr></table>
                        <table width="580" bgcolor="#000000" border="0" cellspacing="0" cellpadding="0" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:Var('Width') - (CLng(Replace(Var('MarginWidth'), 'px', '')) * 2); AttrName:'BGCOLOR'; Value:Var('TitleLineColor')"><tr><td>
                                    <table border="0" cellspacing="0" cellpadding="0"><tr><td height="2"></td></tr></table></td></tr></table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--!========== 追加コメント ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Var('Comment')) <> ''">
                        <div style="margin-left:20px; line-height:18px;">
                            <hctext hcaction="Value" hcoption="Value:Var('Comment')">任意の追加コメント</hctext>
                            <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                        </div>
                    </hcblock>
<!--========== ヘッダHTML ==========-->
                    <hctext hcaction="Call" hcoption="Call:TargetTag.Value = Var('HeaderHTML')"></hctext>
<!--========== 上段テーブル ==========-->
                    <hcblock hcaction="Var" hcoption="Name:'MarginWidth'; Value:CLng(Replace(Var('MarginWidth'), 'px', ''))"></hcblock>
                    <hcblock hcaction="Var" hcoption="Name:'Width2'; Value:Var('Width') - (Var('MarginWidth') * 2)"></hcblock>
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Only')) = ''">
                        <table border="0" cellpadding="0" cellspacing="0" width="570" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:Var('Width2')">
                            <tr>
                                <td width="145" valign="top">
<!--========== カレンダー ==========-->
                                    ****<hcblock hcaction="Include" hcoption="File:'/include/Calendar.hc'; ParamName:'LinkURL'; ParamValue:'index_pc.hc?PageName=' & URLEncode(Param('PageName')) & '&'; ParamName:'Date'; ParamValue:Var('Date')"></hcblock>****
                                </td>
                                <td width="200" valign="top" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:IIf(Var('EnableComment'), (Var('Width2') - 150) * 0.45, Var('Width2') - 145)">
<!--========== 最新記事一覧 ==========-->
                                    <table width="100%" bgcolor="#000000" border="0" cellpadding="2" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')"><tr><td>
                                                <table width="100%" border="0" cellpadding="4" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                                    <tr><th class="Header">
                                                            最新記事一覧
                                                        </th></tr>
                                                    <tr><td class="Data">
                                                            <div style="line-height:16px;">
                                                                <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('DataTableName'); SortField:'PostedAt'; SortOrder:'DESC'; MaxInPage:10">
                                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableComment')">
                                                                        <hctext hcaction="Value" hcoption="Value:Format(FieldValue('ScheduleDate'), 'yyyy/mm/dd')">yyyy/mm/dd</hctext>  
                                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Comment.hc'; ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date')"><hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext><br /></a>
                                                                    </hcblock>
                                                                    <hcblock hcaction="If" hcoption="Type:'IfFalse'; Value:Var('EnableComment')">
                                                                        <hctext hcaction="Value" hcoption="Value:Format(FieldValue('ScheduleDate'), 'yyyy/mm/dd')">yyyy/mm/dd</hctext>  
                                                                        <hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext><br />
                                                                    </hcblock>
                                                                </hcblock>
                                                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Cookie('Mainte') <> '' Or Var('EnableEdit')">
                                                                    <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'New.hc'; ParamName:'Date'; ParamValue:Param('Date')">新規書き込み</a>
                                                                </hcblock>
                                                            </div>
                                                        </td></tr></table>
                                            </td></tr></table>
                                </td>
                                <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableComment')">
                                    <td width="5"></td>
                                    <td width="220" valign="top" hcaction="Value" hcoption="AttrName:'WIDTH'; Value:(Var('Width2') - 150) * 0.55">
<!--========== 最新コメント一覧 ==========-->
                                        <table width="100%" bgcolor="#000000" border="0" cellpadding="2" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')"><tr><td>
                                                    <table width="100%" border="0" cellpadding="4" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                                        <tr><th class="Header">
                                                                最新コメント一覧
                                                            </th></tr>
                                                        <tr><td class="Data">
                                                                <div style="line-height:16px;">
                                                                    <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('CommentTableName'); SortField:'PostedAt'; SortOrder:'DESC'; MaxInPage:10">
                                                                        <hctext hcaction="Value" hcoption="Value:Format(FieldValue('PostedAt'), 'yyyy/mm/dd')">yyyy/mm/dd</hctext>  
                                                                        <hctext hcaction="Value" hcoption="Value:FieldValue('AuthorName')">AuthorName</hctext> on 
                                                                        <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('DataTableName'); FindField:'ID'; FindOp:'='; FindValue:FieldValue('ParentID')">
                                                                            <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Comment.hc'; ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date')"><hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext><br /></a>
                                                                        </hcblock>
                                                                    </hcblock>
                                                                </div>
                                                            </td></tr></table>
                                                </td></tr></table>
                                    </td>
                                </hcblock>
                            </tr>
                        </table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--========== 記事本体 ==========-->
                    <hcblock hcaction="Data" hcoption="BlockName:'Dialy'; DB:Var('DB1'); Table:Var('DataTableName'); FindField:'ScheduleDate'; FindOp:IIf(Trim(Param('Date')) = '', '<=', '='); FindValue:IIf(Trim(Param('Date')) = '', DateAdd('yyyy', 10, Date()), Param('Date')); FindField:'ID'; FindOp:'='; FindValue:Param('Only'); SortField:'ScheduleDate'; SortOrder:'DESC'; SortField:'ScheduleTimeFrom'; SortOrder:IIf(Var('EnableSchedule'), 'ASC', 'DESC'); MaxInPage:10">
                        <table bgcolor="#000000" border="0" cellpadding="1" cellspacing="0" width="570" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor'); AttrName:'WIDTH'; Value:Var('Width2')"><tr><td>
                                    <table bgcolor="#000000" border="0" cellpadding="3" cellspacing="1" width="100%" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                        <tr><td class="Data">
<!--!========== サブジェクトブロック ==========-->
                                                <table width="100%" border="0" cellpadding="0" cellspacing="0">
                                                    <tr><td class="Header">
                                                            <hctext hcaction="Value" hcoption="Value:Format(FieldValue('ScheduleDate'), 'yyyy年m月d日(aaa)')">ScheduleDate</hctext>  
                                                            <hctext hcaction="Value" hcoption="Value:Format(FieldValue('ScheduleTimeFrom'), 'h時n分')">TimeFrom</hctext>
                                                            <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableSchedule')">
                                                                ～
                                                                <hctext hcaction="Value" hcoption="Value:Format(FieldValue('ScheduleTimeTo'), 'h時n分')">TimeTo</hctext>
                                                            </hcblock>  
                                                            <font style="font-size:22px;"><b><hctext hcaction="Value" hcoption="Value:FieldValue('Subject')">Subject</hctext></b></font>
                                                        </td></tr></table>
<!--!========== 添付写真 ==========-->
                                                <ul>
                                                    <table border="0" cellspacing="3" cellpadding="0"><tr>
                                                            <hcblock hcaction="Data" hcoption="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID') & ' ORDER BY [ID]'">
                                                                <td class="Data"><table bgcolor="#E0E0E0" border="0" cellpadding="0" cellspacing="0" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')"><tr><td>
                                                                                <table bgcolor="#E0E0E0" border="1" cellpadding="0" cellspacing="2" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor')">
                                                                                    <tr>
                                                                                        <td bgcolor="#E0E0E0" align="center" valign="middle" hcaction="Value" hcoption="AttrName:'BGCOLOR'; Value:Var('PhotoBackColor'); AttrName:'WIDTH'; Value:Var('ThumbnailSize') + 12; AttrName:'HEIGHT'; Value:Var('ThumbnailSize') + 12">
                                                                                            <a href="index_pc.hc" target="_blank" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><img src="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'ShowFile.hc'; ParamName:'Thumbnail'; ParamValue:1; ParamName:'ID'; ParamValue:FieldValue('ID')" border="0" /></a></td>
                                                                                    </tr>
                                                                                </table>
                                                                            </td></tr></table>
                                                                    <div align="right" hcaction="If" hcoption="Type:'IfTrue'; Value:Cookie('Mainte') <> '' Or (Var('EnableEdit') And (Not Parent.FieldValue('ReadOnly')))">
                                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'BackURL'; ParamValue:'index_pc.hc?PageName=' & URLEncode(Param('PageName')) & '&Date=' & CStr(Param('Date')); ParamName:'Action'; ParamValue:'Adjust'">調整</a>
                                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date'); ParamName:'Action'; ParamValue:'DeletePhoto'">削除</a>
                                                                    </div>
                                                                </td></hcblock></tr></table>
                                                    <br />
<!--!========== 日記本文 ==========-->
                                                    <hctext hcaction="Call" hcoption="Call:TargetTag.Value = Replace(FieldValue('MsgBody'), CRLF, '<br />')">MsgBody</hctext>
                                                </ul><br />
<!--!========== 日付とコメントへのリンク ==========-->
                                                <div align="right">
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('EnableComment')">
                                                        <hcblock hcaction="Data" hcoption="DB:Var('DB1'); Table:Var('CommentTableName'); FindField:'ParentID'; FindOp:'='; FindValue:FieldValue('ID')"></hcblock>
                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Comment.hc'; ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date')">コメント(<hctext hcaction="Value" hcoption="Value:DCount()">0</hctext>)</a>  
                                                    </hcblock>
                                                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Cookie('Mainte') <> '' Or (Var('EnableEdit') And (Not FieldValue('ReadOnly')))">
                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date'); ParamName:'Action'; ParamValue:'Edit'">編集</a>  
                                                        <a href="index_pc.hc" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'ID'; ParamValue:FieldValue('ID'); ParamName:'Date'; ParamValue:Param('Date'); ParamName:'Action'; ParamValue:'Delete'">削除</a>
                                                    </hcblock>
                                                </div>
                                            </td></tr></table>
                                </td></tr></table>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--========== ページコントロールバー ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Trim(Param('Only')) = ''">
                        <hcblock hcaction="Include" hcoption="File:'/include/PageBar.hc'; ParamName:'FileName'; ParamValue:'index_pc.hc'; ParamName:'BlockName'; ParamValue:'Dialy'; ParamName:'HeaderText'; ParamValue:'バックナンバー'" <hcblock></hcblock>
                        <table border="0" cellpadding="0" cellspacing="0"><tr><td height="8"></td></tr></table>
                    </hcblock>
<!--!========== 管理モード ==========-->
                    <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Var('ShowMainteMode')">
                        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Cookie('Mainte') = ''">
                            <a href="index_pc.hc?Mainte=1" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName')">管理モード</a>
                        </hcblock>
                        <hcblock hcaction="If" hcoption="Type:'IfTrue'; Value:Cookie('Mainte') <> ''">
                            <a href="index_pc.hc?Mainte=0" hcaction="URL" hcoption="ParamName:'PageName'; ParamValue:Param('PageName')">管理モードを終了</a>
                        </hcblock>
                    </hcblock>
<!--========== フッタHTML ==========-->
                    <hctext hcaction="Call" hcoption="Call:TargetTag.Value = Var('FooterHTML')"></hctext>
                </div></td></tr></table>
</body>
</html>