城隍廟-台中市晉封威靈公都城隍廟

<% id = request("id") If id <> "" Then set conn=Server.CreateObject("ADODB.Connection") conn.Provider="Microsoft.Jet.OLEDB.4.0" conn.Open Server.MapPath("./database/SingingBusDB.mdb") conn.execute "update guestbook set counts = counts + 1 where id=" & id set rs=Server.CreateObject("ADODB.recordset") strSQL="SELECT * from guestbook where id=" & id rs.Open strSQL,conn If Not rs.eof Then %>

[ <%=rs("catalog")%> ] <%=rs("subject")%>


張貼日期	<%=rs("datepost")%>

發問人員	<%=rs("nick")%>
" />	<%=rs("subject")%> <%=Replace(rs("content"), vbcrlf, " ")%>



回覆日期	<% If rs("reply") <> "" then response.write rs("datereply") Else response.write "尚末回覆" End if%>
<%if rs("reply") <> "" then%> " /> <%End if%>	<% If rs("reply") <> "" then response.write Replace(rs("reply"), vbcrlf, " ") End if %>

<% End if rs.close Set rs = nothing conn.close Set conn = Nothing End If %>

拜訪人數：