<%@LANGUAGE="VBSCRIPT" %> <% 'Option Explicit%> <% On ERROR Resume NEXT dim thmonth,Sql,RS thmonth=array("มกราคม","กุมภาพันธ์","มีนาคม","เมษายน","พฤษภาคม","มิถุนายน","กรกฎาคม","สิงหาคม","กันยายน","ตุลาคม","พฤศจิกายน.","ธันวาคม") ' ---- ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม 'On error resume next Dim Conn,pageno,a dim total,pagesize,totalpage,endrecord,b,count count=1 if request("no")="" then pageno=1 else pageno=request("no") end if Set Conn=Server.CreateObject("ADODB.Connection") Conn.Open "DSN=ecommerc-thai" Conn.Open("DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("webboard.mdb")) Sql="Select * from topic order by topicid desc" Set RS =Server.CreateObject("ADODB.Recordset") RS.Open Sql,Conn,1,3 %>

<% total=RS.Recordcount response.write "ทั้งหมด : "& total & " หัวข้อ" pagesize=15 totalpage=total\pagesize if (total mod pagesize) <> "0" then totalpage= totalpage+1 end if if not RS.eof then RS.Move pagesize*(pageno-1) end if a=1 if trim(pageno) <> trim(totalpage) then endrecord = pagesize else if (total mod pagesize) =0 then endrecord=pagesize else endrecord=(total mod pagesize) end if end if %> << ตั้งกระทู้ใหม่ได้ที่นี่  <% if not RS.eof then For a=1 to endrecord if count mod 2 =0 then %> <% else Sql2="Select * from reply WHERE topicid = "&RS("topicid")&"" Set RS2 =Server.CreateObject("ADODB.Recordset") RS2.Open Sql2,Conn,1,3 reply_num = RS2.recordcount %> <% end if count=count+1 RS.MoveNext next end if %> <%'if replace(left(RS("postdatetime"),10)," ","") = replace(formatdatetime(date,2)," ","") then if RS("reply")<>0 then Sql2="Select * from reply WHERE topicid = "&RS("topicid")&"" Set RS2 =Server.CreateObject("ADODB.Recordset") RS2.Open Sql2,Conn,1,3 reply_num = RS2.recordcount %> <%else%> <%End if%> #<%=right("0000" & RS("topicid"),4)%> ><%=RS("title")%>    โดย <%= RS("name") %>  [<%=day(RS("postdatetime")) & " " & ThaimonthNameIndex(month(RS("postdatetime")),true) & " " & right(year(RS("postdatetime"))+543,2)%>, <%= formatdatetime(RS("postdatetime"),4) %>] - (<%= reply_num %>) <%On error resume next%> <%if RS("reply") <> 0 then%> <%else%> <%End if%> #<%=right("0000" & RS("topicid"),4)%> ><%=RS("Title")%>    โดย <%= RS("Name") %>  [<%=day(RS("postdatetime")) & " " & ThaimonthNameIndex(month(RS("postdatetime")),true) & " " & right(year(RS("postdatetime"))+543,2)%>, <%= formatdatetime(RS("postdatetime"),4) %>] - (<%= reply_num %>) หน้าที่ <%=pageno%> : <%For b=1 to totalpage%> <%=b%> | <%Next%> เพื่อให้ได้ประโยชน์สูงสุด ทางมูลนิธิโรคข้อขอแนะนำสำหรับผู้ที่ต้องการถามคำถามเกี่ยวกับโรคข้อ กรุณาให้ข้อมูลดังต่อไปนี้ 1. กรุณาบอก อายุ เพศ น้ำหนัก และส่วนสูง 2. สาเหตุของอาการ จากอุบัติเหตุ หรือเป็นเอง 3. ระยะเวลาของการปวด กดเจ็บหรือไม่? เมื่อมีการเคลื่อนไหวจะปวดมากขึ้นหรือไม่? 4. เคยไปพบแพทย์มาแล้วหรือยัง? จำนวนกี่ท่าน? แพทย์แต่ละท่านบอกว่าท่านเป็นโรคอะไร? เคยรักษาด้วยยาชนิดใดบ้าง? มีการฉีดยาที่ตรงไหนบ้าง? 5. เคยได้รับการผ่าตัดมาแล้วหรือยัง? กี่ครั้งแล้ว? แพทย์บอกว่าทำการผ่าตัดเพื่ออะไร? 6. ปวดที่ตำแหน่งใดบ้าง? อวัยวะใด? และปวดข้างใดบ้าง?