<%@ codepage="874" %> <% On Error Resume Next Set Conn = Server.CreateObject("ADODB.Connection") 'conn.Open "PROVIDER=SQLOLEDB;" & _ '"DATA SOURCE=Oasis;DATABASE=WWW_Static;" & _ '"USER ID=user;PASSWORD=user;" conn.open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&Server.Mappath("servey.mdb") set RS =Server.CreateObject("ADODB.Recordset") rs.open "Select * from Servey_STOUCHANNEL",Conn,1,3 %> ข้อมูลแบบสำรวจความคิดเห็นในการใช้ระบบ STOU eLearning
ข้อมูลแบบสำรวจความคิดเห็นในการใช้  STOU CHANNEL <% if rs.eof then %> <% else do while not rs.eof %> <% rs.movenext recCtr=recCtr+1 loop end if %>
ข้อมูลทั่วไป
ความพึงพอใจการใช้ระบบ STOU CHANNEL
วดป. นศ. ระดับ เพศ อายุ อาชีพ รายการที่รับชม
! No Records in the Database
<%=rs.fields("timestamp")%>  <%=rs.fields("status")%> <%=rs.fields("sex")%> <%=rs.fields("age")%> <%=rs.fields("career")%> <%=rs.fields("n_program")%>
ข้อ 1: <%=rs.fields("q1")%>
ข้อ 2: <%=rs.fields("q2")%>
ข้อ 3: <%=rs.fields("q3")%>
ข้อ 4: <%=rs.fields("q4")%>
ข้อ 5: <%=rs.fields("q5")%>
ข้อ 6: <%=rs.fields("q6")%>
ข้อ 7: <%=rs.fields("q7")%>
ข้อ 8: <%=rs.fields("q8")%>
 
ข้อเสนอแนะ: <%=rs.fields("comment")%>
 
<%=recCtr%>  Records Found!
<% rs.close set rs=nothing %>