|
<%
gID=Request.QueryString("ID")
sql="SELECT * FROM Question WHERE IDQuestion=" & gID
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn, 1, 3
On Error Resume Next
%>
| |
|
|
| |
<%=rs("Qtitle")%>
<%ano=rs("QNote")
ano=replace(ano,"<","<")
ano=replace(ano,chr(10),"
")
ano=replace(ano,"Sanckshouse","Sanckshouse")
%>
<%=ano%>
|
| โดยคุณ
"><%=rs("QName")%>
<%'=rs("Qfrom" )%>
|
[<%= formatdatetime(rs("Qdate"),1)%>
- <%= formatdatetime(rs("Qdate"),4)%> น.] |
|
|
| |
|
|
<%
rs("qview")=rs("qview")+1
rs.update
rs.close
sql="SELECT * FROM Answer WHERE verify=true and IDQuestion=" & gID & " order by id"
rs.Open sql, conn, 1, 3
Cnt=0
Do while Not rs.EOF
Cnt=Cnt+1
%>
| |
|
|
| |
<%ano=rs("ANote")
ano=replace(ano,"<","<")
ano=replace(ano,chr(13),"
")
ano=replace(ano,"Sanckshouse","Sanckshouse")%>
ความคิดเห็นที่
<%=Cnt%>
<%=ano%>
|
| โดยคุณ
"><%=rs("AName")%>
<%'=rs("Afrom" )%>
|
[<%= formatdatetime(rs("Adate"),1)%>
- <%= formatdatetime(rs("Adate"),4)%> น.] |
|
|
| |
|
|
<%
rs.MoveNext
loop
%>
<%
rs.close
conn.close
%>
|