<% Set objConn = Server.CreateObject ("ADODB.Connection") openStr = "driver={Microsoft Access Driver (*.mdb)};" &_ "dbq=" & Server.MapPath("board.mdb") objConn.Open openStr, "", "" Set objRs = Server.CreateObject ("ADODB.Recordset") SQL = "SELECT * FROM tblboard where id=" SQL = SQL & request("num") objRs.Open SQL, objConn, adOpenStatic, adLockOptimistic, adCmdText contents_value=replace(objRs("contents"),chr(13)&chr(10),"
") If request("mode") <> "admin" Then objRs("read_count") = objRs("read_count") + 1 End If objRs.Update %>

	:::  <%=objRs("subject")%> name   : <%=objRs("name")%> subject   : <%=objRs("subject")%> date   : <%=objRs("date")%> view no   : <%=objRs("read_count")%> contents   <%=contents_value%> <% If request("mode") <> "admin" Then If request("from") = "find" Then %> <% Else %> <%End If%> <%End If%>   "> <% objRs.Close Set objRs = Nothing objConn.Close Set objConn = Nothing %>