%
thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.")
gid=Request.QueryString("QID")
Response.Cookies("Q"&gid) = "yes"
Response.Cookies("Q"&gid).Expires = date+365
Set Conn=Server.CreateObject("ADODB.Connection")
conn.open MM_connect
' อัปเดทจำนวนคนอ่าน
Conn.Execute("Update Question set NRead=NRead+1 where QID="&gid)
sql1="Select * from Question where QID="&gid
sql2="Select * from Answer where QID="&gid&" order by ADate"
Set rs = conn.Execute(sql1)
'rid = rs("roomid")
%>