<%
sub show_status
Set ObjRS2 = Server.CreateObject("ADODB.Recordset")
StrSQL2="SELECT * FROM statuss"
ObjRS2.Open StrSQL2, ObjConn
do while not ObjRS2.eof
%> <%
ObjRS2.movenext
loop
ObjRS2.close
end sub
%> <%
sub show_listen
Set ObjRS3 = Server.CreateObject("ADODB.Recordset")
StrSQL3="SELECT * FROM english where id between 1 and 4"
ObjRS3.Open StrSQL3, ObjConn
do while not ObjRS3.eof
%> <%
ObjRS3.movenext
loop
ObjRS3.close
end sub
%> <%
sub show_write
Set ObjRS4 = Server.CreateObject("ADODB.Recordset")
StrSQL4="SELECT * FROM english where id between 5 and 8"
ObjRS4.Open StrSQL4, ObjConn
do while not ObjRS4.eof
%> <%
ObjRS4.movenext
loop
ObjRS4.close
end sub
%> <%
sub show_read
Set ObjRS5 = Server.CreateObject("ADODB.Recordset")
StrSQL5="SELECT * FROM english where id between 9 and 12"
ObjRS5.Open StrSQL5, ObjConn
do while not ObjRS5.eof
%> <%
ObjRS5.movenext
loop
ObjRS5.close
end sub
%> <%
sub show_speak
Set ObjRS6 = Server.CreateObject("ADODB.Recordset")
StrSQL6="SELECT * FROM english where id between 13 and 16"
ObjRS6.Open StrSQL6, ObjConn
do while not ObjRS6.eof
%> <%
ObjRS6.movenext
loop
ObjRS6.close
end sub
%> <%
sub show_skill
Set ObjRS7 = Server.CreateObject("ADODB.Recordset")
StrSQL7="SELECT * FROM english where id between 17 and 22"
ObjRS7.Open StrSQL7, ObjConn
do while not ObjRS7.eof
%> <%
ObjRS7.movenext
loop
ObjRS7.close
end sub
%>
