<%if request("no") ="" then pageno =1 else pageno=request("no") end if%>

  ::  Webboard  ::  

Click on "New Topic"


:: New Topic ::
 
<% thmonth=array("Jan","Feb","Mar","Apr","May","Jun", "Jul","Aug","Sep","Oct","Nov","Dec") ' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม Set Conn=Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.mappath("webboard.mdb") Sql="Select * from question order by QNumber desc" Set RS =Server.CreateObject("ADODB.Recordset") RS.open Sql,Conn,1,3 total=RS.Recordcount pagesize=20 totalpage=total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 end if RS.Move pagesize*(pageno-1) a=1 if trim(pageno) <> trim(totalpage) then endrecord = pagesize else endrecord=(total mod pagesize) end if For a=1 to endrecord%> <%RS.MoveNext Next rs.close conn.close%>
<%if replace(left(rs("qdate"),10)," ","") = replace(formatdatetime(date,2)," ","") and rs("nanswer") = 0 then%><%elseif rs("nanswer") <> 0 then%><%else%><%end if%> #<%=right("0000" & RS("QNumber"),5)%>  " target="_self"><%=RS("QTopic")%>From : <%=RS("QName")%>  Date :  <%=day(rs("qdate")) & " " & thmonth(month(rs("qdate"))-1) & " " & right(year(rs("qdate"))+300,2)%>  Response : <%=RS("NAnswer")%>


:: New Topic ::

Go to <%For b=1 to totalpage%> <%=b%>|<%Next%>


Faculty of Commerce & Accountancy, Thammasat  University
2  Prachan Rd.,  Pranakorn,  Bangkok  10200,  Thailand
Tel. +662-623-5657-8   Fax. +662-623-5653
E-mail : Banomyong@thammasat.net