<%
dim rs,sql,rs2,rs3,rs4,rs5,rs6,rs7,rs8,rs9
dim n
%>
<%
Set rs6= Server.CreateObject ("ADODB.RecordSet")
rs6.open "select subid,subtype from subject order by subid",conn,1,3
if not rs6.eof then
subtype1=rs6("subid")
subtypename1=rs6("subtype")
end if
rs6.movenext
if not rs6.eof then
subtype2=rs6("subid")
subtypename2=rs6("subtype")
end if
rs6.movenext
if not rs6.eof then
subtype3=rs6("subid")
subtypename3=rs6("subtype")
end if
rs6.close
set rs6=nothing
%>
新校区环境保护
