<% thmonth=array("ม.ค.","ก.พ.","มี.ค.","เม.ย.","พ.ค.","มิ.ย.","ก.ค.","ส.ค.","ก.ย.","ต.ค.","พ.ย.","ธ.ค.") gid=Request.QueryString("QID") Response.Cookies("Q"&gid) = "yes" Response.Cookies("Q"&gid).Expires = date+365 Set Conn=Server.CreateObject("ADODB.Connection") conn.open MM_connect sql1="Select * from Question where QID="&gid sql2="Select * from Answer where QID="&gid&" order by ADate" Set rs = conn.Execute(sql1) 'rid = rs("roomid") %> <%=rs("QTopic")%>
ตอบคำถามเพิ่ม คลิกที่นี่
 
  <%=RS("QTopic")%>  
  <% if Trim(rs("filename")) <> "" Then %> <% End If %>
0 Then Response.Write(pathupload&rs("MemberID")&"m") Else Response.Write("image/i-nobody") End If %>.gif" width="32" height="32" border="0">
<%=rs("QName")%>

<%=day(rs("qdate")) & " " & thmonth(month(rs("qdate"))-1) & " " & right(year(rs("qdate"))+543,2) %>
เวลา <%=FormatDateTime(rs("QDate"),3)%>

พิมพ์
แจ้งลบ
ส่งหาเพื่อน
<%=rs("QNote")%>
  ">
 


<% rs.Close Set rs = conn.Execute(sql2) a_count=1 do while not rs.EOF %>
  คำตอบที่ <%=a_count%>  
  <% if InStr(rs("filename"),".") > 0 Then %> <% End If %>
0 Then Response.Write(pathupload&rs("MemberID")&"m") Else Response.Write("image/i-nobody") End If %>.gif" width="32" height="32" border="0">
<%=rs("AName")%>

<%=day(rs("Adate")) & " " & thmonth(month(rs("Adate"))-1) & " " & right(year(rs("Adate"))+543,2) %>
เวลา <%=FormatDateTime(rs("ADate"),3)%>
<%=rs("ANote")%>
  ">
 


<% rs.movenext a_count = a_count+1 loop rs.Close Set rs = Nothing conn.Close Set conn = Nothing %>

  เชิญกรอกข้อความเพื่อตั้งคำถาม  
  <% If (username <> "") Then %> <% End If %>
ผู้ตอบ : <% username = Request.Cookies("username") MemberID = Request.Cookies("MemberID") If username <> "" Then %> <%=username%> (logout) <% Else %> <% End If %>
รูปภาพ:

ข้อความ :