<%@ 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"))%>

<% 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") %> IP : <%=rs("Qip")%>

<% 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")%> IP : <%=rs("Aip")%>

<% rs.movenext loop RS.Close Set rs = Nothing Call DisconnectDB() %>

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

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

<% 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%>