<%
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 news where id=" & id
rs.Open strSQL,conn
If Not rs.eof Then
%>
主旨：<%=rs("subject")%>
發佈日期：<%=rs("datepost")%>
<%=Replace(rs("content"), vbcrlf, " ")%>
<%
End if
rs.close
Set rs = nothing
conn.close
Set conn = Nothing
End If
%>
