<%@ codepage=874%>
<%Session.LCID = 1054%>
<!--#include file="include/inc_db_functions.asp" -->
<!--#include file="include/inc_global_var.asp" -->
<!--#include file="include/inc_comment.asp" -->
<%
' ---- ประกาศตัวแปรและรับค่าลำดับรายการ
Dim GID
GID = Request.QueryString("GID")

' ---- หากไม่ได้ส่งค่าหมายเลขกระทู้รายการ ให้ไปหน้าแสดงกระทู้รายการรวมก่อน 
If Not IsNumeric(GID) Or GID <= 0 Then Response.Redirect "default.asp"

' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อปรับปรุงจำนวนผู้เข้าดูกระทู้รายการ
Call ConnectDB(dbPath)
sql = "select * from Questions where QNumber = " & GID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1,3
If Not rs.EOF Then
	If Not IsNumeric(rs("NView")) Then
		rs("NView") = 1
		rs.Update
	Else
		rs("NView") = rs("NView") + 1
		rs.Update
	End If
End If
rs.Close
Set rs = Nothing

' ---- ส่วนยกเลิกการติดต่อกับฐานข้อมูล
Call DisconnectDB()

' ---- ไปหน้าแสดงกระทู้รายการและความคิดเห็น
Response.Redirect "view.asp?GID=" & GID
%>