<%
Dim Category_CD
Category_CD = Trim(Request("Category_CD"))
Dim Post_CD
Post_CD = Trim(Request("Post_CD"))
objQuery.execute("UPDATE E3_Post SET Read_Cnt=Read_Cnt+1 WHERE Post_CD='" & Post_CD & "' and Category_CD = '"&Category_CD&"' ")
Dim rsPost
Set rsPost = funcGetPost(objQuery, Post_CD, Category_CD)
Dim curPage
curPage = Trim(Request("curPage"))
IF curPage = "" Then
curPage = 1
End IF
%>
