File Manager

<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-874" />
<title>��������´�Ԫҷ��ŧ����¹�¡�����Ǵ</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>

<body>
<div align="center">
��������´�Ԫҷ��ŧ����¹�¡�����Ǵ
<table><tr>
<td  bgcolor="#3399CC"><div align="center" class="style1">������/ࡳ��</div></td>
        <td  bgcolor="#3399CC"><div align="center" class="style1">����Ԫ�/˹��¡Ե</div></td>
		<td  bgcolor="#3399CC"><div align="center" class="style1">�������</div></td>
        
   <%
		sqlct="select * from type_course"
		set orsct=server.CreateObject("adodb.recordset")
		orsct.open sqlct,conn,1,3
		if not orsct.eof then
			
		orsct.movefirst
			std=orsct("credit_total")
					do while not orsct.eof
					'response.write sqlct
					 response.write "<tr><td><div align=left>"&orsct("typecourse")&"/"&orsct("credit_total")
					 id_typecourse=orsct("id_typecourse")
					 			sqlr="select * from course where id_typecourse="&id_typecourse&" order by id_course"
								set orsr=server.CreateObject("adodb.recordset")
								orsr.open sqlr,conn,1,3
								credit_s=0
										 if not orsr.eof then
								 		orsr.movefirst
										'response.write sqlr
										
												do while not orsr.eof
												id_course=orsr("id_course")
												sqlco="select * from register where id_course='"&id_course&"'"
												'response.write sqlco
												
												set orsco=server.CreateObject("adodb.recordset")
												orsco.open sqlco,conn,1,3
													if not orsco.eof then
													
													grade1=orsco("grade")
															if grade1="U" then
															credit=0 
															else
															credit=orsr("credit")
															end if
															
															credit_s=credit_s+credit
															response.write "<tr><td><td><div align=left>"&id_course&"<td><div align=left> "&orsr("course_thai")&"/"&orsr("credit")&"<br>"
															'response.write "<td align=center>"&credit_s
													end if
													
													'response.write "<tr><td><td><div align=left> "&orsr("course_thai")&"/"&orsr("credit")&"<br>"
										orsr.movenext
										loop
								' response.write "1"
								 response.write "<tr><td><td><td><td align=left>"&credit_s
								 if credit_s>=std then
								 cre_check="G"
								 else
								 cre_check="F"
								 end if
								 'response.write "<td align=center>"&cre_check
							cre_checks=cre_checks+cre_check
								 end if
								 credit_total=credit_total+cre_credit_s
			orsct.movenext
			loop
		end if
		
		%>
<p align="center">&nbsp;</p>
</body>
</html>

File Manager

Editing: grade/detail_group.asp