<% thmonth=array("January","February","March","April","May","June","July","August","September","October","November","December") on error resume next gID=Request.QueryString("GID") Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("webboard.mdb") Sql1="Select * from Question where QNumber ="&gID Sql2="Select * from Answer where QNumber='"&gID&"' order by ADate desc" Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql1,Conn,1,3 %> ThaiHeartTalk.Info : Say what you feel in Thai by Christopher G. Moore
Thai Heart Talk
home
about jai
the book
learn Thai
forum
order
contact

 

<%=RS("QTopic")%>
post your answer

<%=RS("QNote")%>
From: <%=RS("QName")%> Date: <%=day(rs("qdate")) & " " & thmonth(month(rs("qdate"))-1) & " " & right(year(rs("qdate"))+543,2)%>
<% RS.Close Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql2,Conn,1,3 do while not rs.EOF %>
<%=RS("ANote")%>
From: <%=RS("AName")%> Date: <%=day(rs("adate")) & " " & thmonth(month(rs("adate"))-1) & " " & right(year(rs("adate"))+543,2)%>
<% rs.movenext loop RS.Close Conn.Close%>


Post your Answer
Name:      

Message: