<% Set Conn = Server.CreateObject("ADODB.Connection") File=Server.Mappath("mlsh.mdb") Conn.Open "Driver={Microsoft Access Driver (*.mdb)};pwd=guest; Dbq=" & file Set rs = Server.CreateObject("ADODB.Recordset") Sql = "select * from talk where id=" & Request.QueryString("id") rs.Open Sql,conn,1,3 rs("view")=rs("view")+1 rs.update %> 台中市攝影學會
<%=rs("txttop")%>
  
訊息類別:<%=rs("category")%> 活動日期:<%=rs("act_date")%> 有效日期:<%=rs("valid_date")%> 公佈單位:<%=rs("who")%>
<%=rs("txt")%>
 
= 回上頁 =