代码精简,该怎么处理

代码精简
我想把学龄前和小学课程也加入循环里，精简底下的代码。谢谢

数据库：
Id CoursesName CoursesKey Px
1 学龄前 0 1
2 小学课程 0 2
15 启蒙教育 1 1
16 学前教育 1 2
20 小学语文 2 1
21 小学数学 2 2

<li>
<h3 class="c_gray1">学龄前</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = 1 Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>
<li>
<h3 class="c_gray1">小学课程</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = 2 Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>

------解决方案--------------------
上面忘了改SQL了 ，这个是改过的
<%for i=1 to 14%> '14的值我是看你数据库里得出的，有需要还可以自己加
<li>
<h3 class="c_gray1">(这里读出Coursesid='&i&'对应的Coursesname)再写个记录集读出来</h3>
<dl>
<%
Rs.Open "select * from CoursesTbl Where CoursesKey = '&i&' Order By Px asc" , Conn , 1 , 1
Do While Not Rs.Eof
Response.Write("<span class=c_gray2><label><input type=checkbox id=MyCourses name=MyCourses value="""& Rs("CoursesName") &""" /><cite>"& Rs("CoursesName") &"</cite></label></span>")
Rs.MoveNext
Loop
Rs.Close
%>
</dl>
<div class="clear"></div>
</li>

<%next%>