File Manager

<%
'response.contenttype="application/vnd.ms-excel"
'response.AddHeader "content-disposition", "inline; filename=report_detail.xls"
%>
 <table width="100%" border="0" cellpadding="0" cellspacing="1">
          
  <tr valign="center"> 
    <td valign="top"><div align="center">�ӴѺ���  </td><td><div align="center">����-ʡ��</td><td><div align="center">��ѡ�ٵ÷����Ѥ�</td>
  </tr> <% 
		 stat=request("id_type")
		 'response.write stat
		 set ors1=server.createobject("adodb.recordset")
		  sql1="select * from regis where stat="&stat&""
		  response.write sql1
		  ors1.open sql1,conn,1,3
		  
		  if not ors1.eof then
	x=1
	ors1.movefirst
		  do while not ors1.eof
           id_regis=ors1("id_regis")
		 '  response.write id_regis&"<br>"
		  set ors=server.createobject("adodb.recordset")
		  sql="select * from statregis where id_regis="&id_regis&""
		  ors.open sql,conn,1,3

if not ors.eof then
  
   
   ors.movefirst

do while not ors.eof 
   response.write "<tr><td>"
 response.write "<tr><td>"&ors("email")&","
 response.write x&"<td>"&ors("fname")&" "&ors("name")&" "&ors("sname")&" "&ors("email")&"<td>"
 ' response.write"<td>"&ors("fname")&" "&ors("name")&" "&ors("sname")&"<td>"
  x=x+1
		set orscourse=server.createobject("adodb.recordset")
		sqlcourse="select * from regis where stat="&stat&""
		orscourse.open sqlcourse,conn,1,3
		if not orscourse.eof then
		set ors2=server.createobject("adodb.recordset")
		  sql2="select * from type_stat where id_type="&orscourse("stat")&" "
		  ors2.open sql2,conn,1,3
		'  response.write "-"&ors2("type_name")&"</tr>"
		end if
'response.write "x="&x
  ors.movenext
  loop

end if

ors1.movenext
loop
end if

%>
</table>

</body>
</html>

File Manager

Editing: stat17/detail_course.asp.bak