<%@ Language=VBScript %>
<% Option Explicit
'==============================
' article.asp
'
' 本文の表示
'==============================
Dim mess_id, Sql, objRecset, Message
mess_id = Request("mess_id")
Sql = "SELECT * FROM tbl_article " & _
"WHERE mess_id = " & mess_id & _
" AND status = 1"
On Error Resume Next
Set objRecset = objDBCon.Execute(Sql)
If objRecset.RecordCount < 1 Then
Response.Write "<BODY bgcolor=""#fff8dc"">"
Response.Write "<FONT size=3
color=""#ff1493""><STRONG>" & _
"レコードがありません" & "</STRONG></FONT>"
Response.Write "</BODY>"
objRecset.Close
Set objRecset = Nothing
Response.End
End If
%>
<HTML>
<HEAD>
<META HTTP-EQUIV="Content-Type" Content="text/html;
charset=x-sjis">
<META NAME="GENERATOR" Content="Microsoft Visual Studio 6.0">
</HEAD>
<BODY bgColor="#fff8dc">
<FONT size=5 color="#333333"><STRONG><%=
objRecset("subject")%></STRONG></FONT>
<HR noshade color="#ff1493" width=60% size=5 align="left">
<FONT size=2>
<A href="post.asp?refer_id=<%=mess_id%>">コメントを投稿</A>
<A href="update.asp?mess_id=<%=mess_id%>">この記事を編集</A>
<A href="list.asp">記事の一覧</A>
</FONT>
<HR noshade color="#333333" size=2 align="left">
<TABLE>
<TR>
<TH align="left"><FONT size=3 color="#1e90ff">投稿者</FONT>
<TH align="left"><FONT size=2 color="#333333">
<%= objRecset("sender")%></FONT>
</TR>
<TR>
<TH align="left"><FONT size=3
color="#1e90ff">E-Mail</FONT>
<TH align="left"><FONT size=2 color="#333333">
<A href="mailto:<%= objRecset("sender_addr")%>">
<%= objRecset("sender_addr")%></A></FONT>
</TR>
<TR>
<TH align="left"><FONT size=3
color="#1e90ff">URL</FONT>
<TH align="left"><FONT size=2 color="#333333">
<A href="<%= objRecset("url")%>">
<%= objRecset("url")%></A></FONT>
</TR>
<TR>
<TH align="left"><FONT size=3
color="#1e90ff">Posted</FONT>
<TH align="left"><FONT size=2 color="#333333">
<%= objRecset("update_date")%></FONT>
</TR>
</TABLE>
<FONT size=3 color="#333333">
<PRE>
<%=objRecset("body")%>
</PRE>
</FONT>
<%
objRecset.Close
Set objRecset = Nothing
%>
</BODY>
</HTML>