Hyper Content Server エラー情報
ファイル/index_pc.hc?PageName=%8Cf%8E%A6%94%C2
C:\InetPub\www.axis-works.net - users\LMJack2008\index_pc.hc
( C:\InetPub\www.axis-works.net - users\LMJack2008\BBS\Top.hc )
内　　容指定されたファイルが存在しないか、ファイルの読み込みができません。
追加情報SELECT * FROM "BBSMsgs" WHERE ("ParentID" = 143) ORDER BY "ID" ASC

<!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">
    <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, '%2712px%27', Var('FontSize'))"></HCBLOCK>
    <HCBLOCK HCACTION="Call" HCOPTION="Call:Var('Style').Text = Replace(Var('Style').Text, '%27#222222%27', Var('DataTextColor'))"></HCBLOCK>
    <HCBLOCK HCACTION="Call" HCOPTION="Call:Var('Style').Text = Replace(Var('Style').Text, '%27#FFFFFF%27', Var('DataBackColor'))"></HCBLOCK>
    <HCBLOCK HCACTION="Call" HCOPTION="Call:Var('Style').Text = Replace(Var('Style').Text, '%27#111111%27', Var('HeaderTextColor'))"></HCBLOCK>
    <HCBLOCK HCACTION="Call" HCOPTION="Call:Var('Style').Text = Replace(Var('Style').Text, '%27#DDDDDD%27', Var('HeaderBackColor'))"></HCBLOCK>
<!--!========== 新規投稿が行われた場合は、新規投稿用のスクリプトを呼び出し ==========-->
    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(Param('PostNew')) <> ''">
        <HCBLOCK HCACTION="Var" HCOPTION="Name:'ID'; Value:NextIdentity(Var('DB1'), Var('MsgTableName'), 'ID') "></HCBLOCK>
        <HCBLOCK HCACTION="Include" HCOPTION="File:'PostNew.hc'"></HCBLOCK>
<!--!========== 画像が存在する場合、画像調整用ページに移動 ==========-->
        <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:ValidParams('FileData').Count > 0">
            <A HREF="index_pc.hc" HCACTION="URL" HCOPTION="Redirect:1; ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Edit.hc'; ParamName:'ID'; ParamValue:Var('ID'); ParamName:'EditKey'; ParamValue:Param('EditKey')"></A>
        </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="If" HCOPTION="Type:'IfFalse'; Value:Var('Readonly')">
                        <TABLE BGCOLOR="#000000" BORDER="0" CELLPADDING="1" CELLSPACING="0" HCACTION="Value" HCOPTION="AttrName:'BGCOLOR'; Value:Var('LineColor')"><TR><TD>
                                    <TABLE BGCOLOR="#000000" BORDER="0" CELLPADDING="3" CELLSPACING="1" HCACTION="Value" HCOPTION="AttrName:'BGCOLOR'; Value:Var('LineColor')">
                                        <FORM ACTION="index_pc.hc" METHOD="POST" ENCTYPE="multipart/form-data" HCACTION="URL" HCOPTION="ParamName:'PageName'; ParamValue:Param('PageName')">
                                            <TR><TH COLSPAN="2" CLASS="Header">新規投稿用フォーム</TH></TR>
                                            <TR>
                                                <TD CLASS="Header">投稿者</TD>
                                                <TD CLASS="Data"><INPUT TYPE="text" NAME="AuthorName" SIZE="20" VALUE="" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'VALUE'; Value:Cookie('AuthorName'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR>
                                                <TD CLASS="Header">メール</TD>
                                                <TD CLASS="Data"><INPUT TYPE="text" NAME="Email" SIZE="40" VALUE="" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'VALUE'; Value:Cookie('Email'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR>
                                                <TD CLASS="Header">題 名</TD>
                                                <TD CLASS="Data"><INPUT TYPE="text" NAME="Subject" SIZE="40" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR>
                                                <TD CLASS="Header">内 容</TD>
                                                <TD CLASS="Data"><TEXTAREA NAME="MsgBody" ROWS="5" COLS="70" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TEXTAREA></TD>
                                            </TR>
                                            <TR>
                                                <TD CLASS="Header">リンク</TD>
                                                <TD CLASS="Data"><INPUT TYPE="text" NAME="Link" SIZE="40" VALUE="http://" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'VALUE'; Value:IIf(Trim(Cookie('Link')) = '', 'http://', Cookie('Link')); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <TD CLASS="Header">画像(1)</TD>
                                                <TD CLASS="Data"><INPUT TYPE="file" NAME="FileData" SIZE="40" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <TD CLASS="Header">画像(2)</TD>
                                                <TD CLASS="Data"><INPUT TYPE="file" NAME="FileData" SIZE="40" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <TR HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableUpload')">
                                                <TD CLASS="Header">画像(3)</TD>
                                                <TD CLASS="Data"><INPUT TYPE="file" NAME="FileData" SIZE="40" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                            </TR>
                                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('MainteMode')">
                                                <TR HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableEdit') Or Var('EnableDelete')">
                                                    <TD CLASS="Header">パスワード</TD>
                                                    <TD CLASS="Data"><INPUT TYPE="password" NAME="EditKey" SIZE="10" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'VALUE'; Value:Cookie('EditKey'); AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'"></TD>
                                                </TR>
                                            </HCBLOCK>
                                            <TR>
                                                <TD COLSPAN="2" HEIGHT="30" CLASS="Header">
                                                    <INPUT NAME="PostNew" TYPE="submit" VALUE=" 書き込む ">
                                                    画像が添付されている場合、画像調整用の画面に移動します。
                                                </TD>
                                            </TR>
                                        </FORM>
                                    </TABLE></TD></TR></TABLE>
                        <TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0"><TR><TD HEIGHT="8"></TD></TR></TABLE>
                    </HCBLOCK>
<!--========== メッセージ表示ブロック ==========-->
                    <HCBLOCK HCACTION="Data" HCOPTION="BlockName:'Msgs'; DB:Var('DB1'); Table:Var('MsgTableName'); FindField:'ParentID'; FindOp:'='; FindValue:0; FindField:'ID'; FindOp:'='; FindValue:Param('Only'); SortField:'LatestReply'; SortOrder:'DESC'; MaxInPage:Var('NumMsgs')">
                        <TABLE BGCOLOR="#000000" BORDER="0" CELLPADDING="1" CELLSPACING="0" WIDTH="100%" HCACTION="Value" HCOPTION="AttrName:'BGCOLOR'; Value:Var('LineColor')"><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">
                                                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('ShowID') Or Var('EnableEdit') Or Var('EnableDelete')">
                                                                <FONT STYLE="font-size:12px;">No.<HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('ID')">MsgID</HCTEXT></FONT>
                                                            </HCBLOCK>
                                                            <FONT STYLE="font-size:24px;"><B><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('Subject')">Subject</HCTEXT></B></FONT>
                                                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('Readonly')">
                                                                <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('UseReply')">
                                                                    <A HREF="index_pc.hc" HCACTION="URL" HCOPTION="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'PostReply.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')">返信する</A>
                                                                </HCBLOCK>
                                                            </HCBLOCK>
                                                        </TD></TR></TABLE>
<!--========== 投稿者情報 ==========-->
                                                <I HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('Readonly')">
                                                    <B>投稿日</B>
                                                    <HCTEXT HCACTION="Value" HCOPTION="Value:Format(FieldValue('PostedAt'), 'yyyy年m月d日(aaa) h時n分s秒')">PostedAt</HCTEXT>
                                                    <B>投稿者</B>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Email')) <> ''">
                                                        <A HREF="index_pc.hc" HCACTION="URL" HCOPTION="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Send.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('AuthorName')">AuthorName</HCTEXT></A>
                                                    </HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Email')) = ''">
                                                        <HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('AuthorName')">AuthorName</HCTEXT>
                                                    </HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('ShowIPAddr')">
                                                        <FONT SIZE="-1">[<HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('IPAddr')">AuthorIP</HCTEXT>]</FONT>
                                                    </HCBLOCK>
                                                </I>
<!--========== 投稿内容 ==========-->
                                                <UL>
                                                    <HCBLOCK HCACTION="Data" HCOPTION="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID')"></HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:NumDatas > 0">
                                                        <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>
                                                                    </TD></HCBLOCK></TR></TABLE>
                                                    </HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableHTMLTag')">
                                                        <P><HCTEXT HCACTION="Call" HCOPTION="Call:TargetTag.Value = Replace(FieldValue('MsgBody'), CRLF, '<BR>')">MsgBody</HCTEXT></P>
                                                    </HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('EnableHTMLTag')">
                                                        <P><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('MsgBody')">MsgBody</HCTEXT></P>
                                                    </HCBLOCK>
                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Link')) <> '' And Trim(FieldValue('Link')) <> 'http://'">
                                                        <P><A HCACTION="URL" HCOPTION="File:FieldValue('Link')" TARGET="_blank"><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('Link')">Link</HCTEXT></A></P>
                                                    </HCBLOCK>
<!--========== レス・メッセージ表示ブロック ==========-->
                                                    <HCBLOCK HCACTION="Data" HCOPTION="DB:Var('DB1'); Table:Var('MsgTableName'); FindField:'ParentID'; FindOp:'='; FindValue:FieldValue('ID'); SortField:'ID'; SortOrder:'ASC'">
                                                        <TABLE BGCOLOR="#000000" BORDER="0" CELLPADDING="1" CELLSPACING="0" WIDTH="90%" HCACTION="Value" HCOPTION="AttrName:'BGCOLOR'; Value:Var('LineColor')"><TR><TD>
                                                                    <TABLE BGCOLOR="#000000" BORDER="0" CELLPADDING="3" CELLSPACING="0" 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">
                                                                                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('ShowID') Or Var('EnableEdit') Or Var('EnableDelete')">
                                                                                                <FONT STYLE="font-size:12px;">No.<HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('ID')">MsgID</HCTEXT></FONT>
                                                                                            </HCBLOCK>
                                                                                            <FONT STYLE="font-size:20px;"><B><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('Subject')">Subject</HCTEXT></B></FONT>
                                                                                        </TD></TR></TABLE>
<!--========== 投稿者情報 ==========-->
                                                                                <I HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('Readonly')">
                                                                                    <B>投稿日</B>
                                                                                    <HCTEXT HCACTION="Value" HCOPTION="Value:Format(FieldValue('PostedAt'), 'yyyy年m月d日(aaa) h時n分s秒')">PostedAt</HCTEXT>
                                                                                    <B>投稿者</B>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Email')) <> ''">
                                                                                        <A HREF="index_pc.hc" HCACTION="URL" HCOPTION="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Send.hc'; ParamName:'ID'; ParamValue:FieldValue('ID')"><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('AuthorName')">AuthorName</HCTEXT></A>
                                                                                    </HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Email')) = ''">
                                                                                        <HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('AuthorName')">AuthorName</HCTEXT>
                                                                                    </HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('ShowIPAddr')">
                                                                                        <FONT SIZE="-1">[<HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('IPAddr')">AuthorIP</HCTEXT>]</FONT>
                                                                                    </HCBLOCK>
                                                                                </I>
<!--========== 投稿内容 ==========-->
                                                                                <UL>
                                                                                    <HCBLOCK HCACTION="Data" HCOPTION="DB:Var('DB1'); SQL:'SELECT [ID] FROM [' & Var('FileTableName') & '] WHERE [ParentID] = ' & FieldValue('ID')"></HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:NumDatas > 0">
                                                                                        <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>
                                                                                                    </TD></HCBLOCK></TR></TABLE>
                                                                                    </HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableHTMLTag')">
                                                                                        <P><HCTEXT HCACTION="Call" HCOPTION="Call:TargetTag.Value = Replace(FieldValue('MsgBody'), CRLF, '<BR>')">MsgBody</HCTEXT></P>
                                                                                    </HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('EnableHTMLTag')">
                                                                                        <P><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('MsgBody')">MsgBody</HCTEXT></P>
                                                                                    </HCBLOCK>
                                                                                    <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Trim(FieldValue('Link')) <> '' And Trim(FieldValue('Link')) <> 'http://'">
                                                                                        <P><A HCACTION="URL" HCOPTION="File:FieldValue('Link')" TARGET="_blank"><HCTEXT HCACTION="Value" HCOPTION="Value:FieldValue('Link')">Link</HCTEXT></A></P>
                                                                                    </HCBLOCK>
                                                                                </UL>
                                                                            </TD></TR></TABLE>
                                                                </TD></TR></TABLE>
                                                    </HCBLOCK>
                                                </UL>
                                            </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?PostNew='; ParamName:'BlockName'; ParamValue:'Msgs'" <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('EnableEdit') Or Var('EnableDelete')) And (Not Var('Readonly'))">
                        <FORM ACTION="index_pc.hc" METHOD="POST" HCACTION="URL" HCOPTION="ParamName:'PageName'; ParamValue:Param('PageName'); ParamName:'File'; ParamValue:'Edit.hc'">
                            No.<INPUT NAME="ID" SIZE="4" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'">
                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfFalse'; Value:Var('MainteMode')">
                                パスワード：<INPUT TYPE="password" NAME="EditKey" SIZE="10" CLASS="Field" HCACTION="Value" HCOPTION="AttrName:'ONFOCUS'; Value:'this.style.background=%27' & Var('FocusBackColor') & '%27'; AttrName:'ONBLUR'; Value:'this.style.background=%27' & Var('DataBackColor') & '%27'">
                            </HCBLOCK>
                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableEdit') Or Var('MainteMode')">
                                <INPUT NAME="Edit" TYPE="submit" VALUE=" 編集 ">
                            </HCBLOCK>
                            <HCBLOCK HCACTION="If" HCOPTION="Type:'IfTrue'; Value:Var('EnableDelete') Or Var('MainteMode')">
                                <INPUT NAME="Delete" TYPE="submit" VALUE=" 削除 ">
                            </HCBLOCK>
                        </FORM>
                    </HCBLOCK>
<!--========== フッタHTML ==========-->
                    <HCTEXT HCACTION="Call" HCOPTION="Call:TargetTag.Value = Var('FooterHTML')"></HCTEXT>
                </DIV></TD></TR></TABLE>
</BODY>
</HTML>