<% ' On Error Resume Next ID=Request.QueryString("ID") rem เช็ค View User และ ทำการบันทึก sql ="select Qview from question where qNo = "&ID rs.Open sql,con,1,3,1 checkview = rs("Qview") if checkview <> "" then checkview = checkview +1 else checkview = "1" end if rem Response.Write("ค่า checkview"&checkview) rs.close sql = "update question set Qview='"&checkview&"' where qNo = "&ID rs.Open sql,con,1,3,1 Sql="Select * from question where qNo= " & ID rs.Open Sql,con,1,3,1 ccount = 1 ' -----เช็คว่ามี ID นั้น ๆ หรือเปล่าป้องกัน Error----- if RS.recordcount = 0 then %> <% end if '------------------------ %>
<%=rs("topic")%>
<%=replace(rs("Qdetail"),chr(13),"
")%>

จาก
">: <%=rs("Name")%>
วันที่
: <%=FormatDateTime(RS("date"),VbLongDate)%> <% ip = rs("ip") answer = rs("answer") if ip <> "" then %>
IP
: <% =left(rs("ip"),9) %> xxx <% end if %>


<%if answer > 0 then %> ความเห็น

<% end if%>
<% rs.Close Sql="Select * from answer where qNo= " & ID &" order by id ASC" rs.Open sql,con,1,3,1 Do while not rs.EOF %>
ความเห็นที่ <%=ccount%>

<%=replace(rs("Answer"),chr(13),"
")%>

ความเห็นจาก ">: <%=rs("Name")%>
วันที่
: <%=FormatDateTime(RS("date"),VbLongDate)%> <% ip2 = rs("ip") if ip2 <> "" then %>
IP
: <% =left(rs("ip"),9) %> xxx <% end if %>

<% ccount = ccount + 1 rs.MoveNext Loop rs.Close %>
ร่วมแสดงความเห็น
  
ความเห็น :
ความเห็นจาก :
อีเมล์ :
ตัวเลขยืนยัน :
<% Randomize gennumber = Rnd * 90000000 gennumber = int(gennumber) gennumber = left(gennumber,4) response.Write(gennumber) %> กรุณาใส่ตัวเลขนี้

กฎกติกาก่อนแสดงความคิดเห็นหรือตั้งคำถาม
1. ทุกความคิดเห็นจะถูกส่งขึ้นระบบโดยอัตโนมัติ เพื่อการแลกเปลี่ยนโดยอิสระ
2. ห้ามใช้คำหยาบคาย ส่อเสียด ดูหมิ่น กล่าวหาให้ร้าย สร้างความแตกแยก
3. ทุกความคิดเห็นไม่เกี่ยวข้องกับผู้จัดทำเว็บไซต์ และไม่สามารถนำไปอ้างอิงทางกฎหมายได้
4. ทีมงานขอสงวนสิทธิ์ในการลบความคิดเห็น โดยไม่ต้องชี้แจงเหตุผลใด ๆ ต่อเจ้าของความคิดเห็นนั้น
5. ห้ามโฆษณาใด ๆ ที่เว็บบอร์ดนี้เป็นอันขาด และตั้งคำถามที่ซ้ำ ๆ กันหลาย ๆ ครั้ง ถ้าเห็นจะลบทันที