<% ID=Request.QueryString("ID") id = replace(id,"=","") id = replace(id,"q","") session("qid")=id if id = "" then %> <% response.end end if Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DSN=samunpai" Sql1="Select * from question where qNo= " & ID Sql2="Select * from answer where qNo= " & ID Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Sql1,Conn,1,3 if RS.RecordCount = 0 then response.write"ไม่คำถามนี้ อาจถูกลบแล้ว" response.end end if %>

Question : <%=RS("topic")%>

<%=replace(RS("Qdetail"),chr(13),"
")%>

by: <%=RS("Name")%> - "> <%=RS("email")%> - <%response.write(day(RS("Date")) & "/" & month(RS("Date")) _ & "/" & year(RS("Date")) ) %> <% RS.Close Set RS = Server.CreateObject("ADODB.Recordset") RS.Open Sql2,Conn Do while not RS.EOF %>

Answer :

<%=replace(RS("Answer"),chr(13),"
")%>

by:<%=RS("Name")%> - "> <%=RS("email")%> - <% response.write(day(RS("Date")) & "/" & month(RS("Date")) & "/" & right(year(RS("Date")),2) & " " & formatdateTime(RS("Date"),4) ) %>

<% RS.MoveNext Loop RS.Close Conn.Close%>