<% TitleID = CLng(Request("TitleID")) SQL = "Select * From Titles Where TitleID=" & TitleID Set rs = GetMdbRecordset( "News.mdb", SQL ) If rs Is Nothing Or rs.EOF Then Response.Redirect "main.asp?Msg=此一討論主題已被刪除!" End If %>

桃園縣攝影藝術協會討論區

<%=Request("Msg")%> 　　　返回討論區首頁

討論主題: <%=rs("Subject")%>

<% Words = Replace( "" & rs("Words"), Chr(13), "
" ) Email = "" & rs("Email") & "" %>

作者:<%=rs("Name")%>　Email:<%=Email%> 　日期:<%=Month(rs("CreateDate"))%>/<%=Day(rs("CreateDate"))%>

<%=Words%>

<% SQL = "Select * From Details Where TitleID=" & TitleID SQL = SQL & " Order By DetailID " Set rsDetail = GetMdbRecordset( "News.mdb", SQL ) If Not rsDetail.EOF Then %>

回應區

<% While Not rsDetail.EOF Words = Replace( "" & rsDetail("Words"), Chr(13), "
" ) Email = "" & rsDetail("Email") & "" %>

作者:<%=rsDetail("Name")%>　Email:<%=Email%> 　日期:<%=Month(rsDetail("NewsDate"))%>/<%=Day(rsDetail("NewsDate"))%>

<%=Words%>

<% rsDetail.MoveNext Wend End If %> <%=Request("Msg")%> 　　　返回討論區首頁

參與討論

姓名：	>
Email：	>
內容：