<%@ 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 desc" Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql1,Conn,1,3 %> Serrabangsaen Webboard
Terdmary Webboard

<%=Server.HTMLEncode(RS("QTopic"))%>
[ กลับหน้ารวมกระทู้ ]

กระทู้
<% Dim sNote, sPicture sNote = RS("QNote") sNote = Replace(sNote, "<", "<") sNote = Replace(sNote, ">", ">") sNote = Replace(sNote, "<" & "br" & ">", "
") Response.Write CreateLink(sNote) sPicture = rs("QPicture") If sPicture <> "" Then Response.Write "

" %>
จากคุณ <%=Server.HTMLEncode(RS("QName"))%> เมื่อวันที่ <% =rs("qdate") %>
<% RS.Close Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql2,Conn,1,3 do while not rs.EOF %>
<% sNote = RS("ANote") sNote = Replace(sNote, "<", "<") sNote = Replace(sNote, ">", ">") sNote = Replace(sNote, "<" & "br" & ">", "
") Response.Write CreateLink(sNote) sPicture = rs("APicture") If sPicture <> "" Then Response.Write "

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


ขอเชิญร่วมตอบคำถามครับ
ผู้ตอบ :      

คำตอบ : 		     

กลับหน้ารวมกระทู้