<%@ codepage=874%> <%Session.LCID = 1054%> <% on error resume next ' ---- ส่วนรับข้อมูลจาก form gID=Request.QueryString("GID") ' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถามและคำตอบเฉพาะที่ต้องการ Call ConnectDB() Sql1="Select * from Questions where QNumber =" & gID Sql2="Select * from Answers where QNumber=" & gID &" order by ADate" Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql1,Conn,1,3 %> <%=Server.HTMLEncode(RS("QTopic"))%>
<%=Server.HTMLEncode(RS("QTopic"))%>
ตอบคำถาม | ตั้งกระทู้ใหม่ | Home

<% =rs("QNote") %>
<% Dim sPicture sPicture = rs("QPicture") If sPicture <> "" Then Response.Write "

" %>
จากคุณ <%=Server.HTMLEncode(RS("QName"))%> เมื่อวันที่ <% =rs("qdate") %>   IP : <%=rs("Qip")%>
<% RS.Close Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql2,Conn,1,3 pageNo = request.QueryString("pg") if pageNo="" then pageNo = 1 pageLen = 30 Nrecord=RS.recordcount rs.pageSize = pageLen totalPage = rs.PageCount rs.absolutePage = pageNo recNo = 1 Do While Not RS.EOF and recNo <= PageLen %>

<%=rs("anote")%>
<% sPicture = rs("APicture") If sPicture <> "" Then Response.Write "

" %>
จากคุณ <%=Server.HTMLEncode(RS("AName"))%> เมื่อวันที่ <%=rs("adate")%>  IP : <%=rs("Aip")%>
<% recNo=recNo+1 RS.MoveNext loop RS.Close Set rs = Nothing Call DisconnectDB() %>


<% For idx = 1 to totalPage If idx=cint(pageno) then%> <%=idx%> <% Else %> <%=idx%> <% End if %>   <% Next%> | <% if cint(pageno) > 1 then %> [หน้าแรก]  [<< Back]  <% end if if cint(pageno) < totalPage then %> [Next >>]  [หน้าสุดท้าย]  <% end if %>
ขอเชิญร่วมตอบคำถามครับ
ผู้ตอบ      

คำตอบ		 สามารถ Copy ทั้งข้อความและรูปภาพจากเว็บไซต์อื่นๆมาวาง ลง ในช่องได้เลยครับ
แนบรูป       (gif, jpg, png )

กลับหน้ารวมกระทู้
<% Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("db/webboard2002.mdb") Sql2="Update Questions Set Read = Read+1 where Qnumber="&gID Set RS =Conn.Execute(sql2) Conn.Close%>