<% on error resume next SQL = "Select * from Reply where SerialNO="& request("SerialNO") SQL =SQL & "and AnsNO=" & request("No") set RS = conn.Execute (SQL) Session("ReplyMan") = RS("PostMan") Session("ReplyAns") = RS("Ans") Session("ActionASP") = "AnsContent" Session("SerialNO") = Request("SerialNO") %> >>回費因曼首頁 物理討論區

主題	<%=Session("Subj")%>
內容	<%=replace (session("Quest"),vbcrlf," ") %>
回應內容	<%=replace (session("ReplyAns"),vbcrlf," ") %>