<%@ Language=VBScript %> <%session("location") = "gen webboard" %> <% 'SQL="Insert into logusage " 'SQL= SQL & "(uid,keydate,keytime,page) " 'SQL= SQL & "values ('" & session("uid") & "','" & date & "','" & time & "','" & session("location") & "');" 'set cn = CreateObject("adodb.connection") 'cn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("../data/class.mdb") & ";" 'set rs=createobject("adodb.recordset") 'set rs=cn.execute(sql) %>

กระดานถามตอบ ประกันคุณภาพ ขอเชิญร่วมตั้งคำถาม หรือเปิดประเด็นสนทนาใหม่ กรุณากดที่นี้  และร่วมตอบคำถามโดยการ Click ที่แต่ละคำถาม

<% session.timeout=1 'ส่วนติดต่อกับฐานข้อมูลเพื่อแสดงรายการคำถาม 'On error resume next Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & server.mappath("wbi.mdb") & ";" Sql = "Select * from question order by QNumber desc" Set Rs=Server.CreateObject("ADODB.Recordset") Rs.open Sql,Conn,1,3 Rs.MoveFirst Do While Not Rs.EOF response.write("#" & right("0000" & Rs("QNumber"),5) & " " & Rs("QTopic") & " " & Rs("QName") & " " & Rs("QDate") & "(" & Rs("NAnswer") & ")
") Rs.MoveNext Loop rs.close conn.close %>

---

            กรุณาป้อนชื่อ - นามสกุล

หัวข้อ
ผู้ถาม
คำถาม

             

กรุณาใช้กระดานสนทนาในทางที่เป็นประโยขน์