File Manager

<%response.cachecontrol="private"%>

<%

Response.ContentType = "application/vnd.ms-word"
Response.AddHeader "Content-Disposition", "attachment; filename = Stu_Activity.doc"

%>
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>

<title>�к����ʹ�����͡�ú�����</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">

</head>

<%
'*****************************************************************

session("tb_name")="student"
%>

<%
'*****************************************************************
  if session("tb_preview") <> 1 or session("id_lecturer1") = id_lecturer then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

<%
date1=ors_acn("m_activity")
if date1=01 then
							date1="���Ҥ�" 
							elseif date1=02 then
							date1="����Ҿѹ��"
							elseif date1=03 then
							date1="�չҤ�"
							elseif date1=04 then
							date1="����¹"
							elseif date1=05 then
							date1="����Ҥ�"
							elseif date1=06 then
							date1="�Զع�¹"
							elseif date1=07 then
							date1="�á�Ҥ�"
							elseif date1=08 then
							date1="�ԧ�Ҥ�"
							elseif date1=09 then
							date1="�ѹ��¹"
							elseif date1=10 then
							date1="���Ҥ�"
							elseif date1=11 then
							date1="��Ȩԡ�¹"
							elseif date1=12 then
							date1="�ѹ�Ҥ�"
							end if
%>
<tr><td colspan=5 align=center>�ѹ��� &nbsp;<%=ors_acn("d_activity")%>&nbsp; <%=date1%>  &nbsp;<%=ors_acn("y_activity")%> � <%=ors_acn("venue_name")%></td></tr> 
                    <tr bgcolor=#EBEBEB><td><div align="center">�ӴѺ���</div></td>
					<td><div align="center">���ʹ��Ե</div></td>
                    <td><div align="center">����-ʡ��</div></td>
					<td><div align="center">�����ͪ���</div></td>
					<td><div align="center">�����˵�</div></td> 
<%

set ors_cr=server.createobject("adodb.recordset")
	sqlmark_cr="select * from rp_activity_register where id_activity="&id&" order by id_stu"
	ors_cr.open sqlmark_cr,Conn,1,3
	ors_cr.movefirst
	If Not ors_cr.eof then
	a=1
	do while not ors_cr.eof
		
		if a mod 2 = 0 then
bg1="#f9f9f9"
else
bg1="#FFFFFF"
end If
		sql_stu="select id_stu, name_stu, sur_stu from student where id_stu='"&ors_cr("id_stu")&"'"
		Set ors_stu=server.createobject("adodb.recordset")
		ors_stu.open sql_stu,conn,1,3
		If Not ors_stu.eof Then
			Response.write "<tr bgcolor='"&bg1&"' height=100><td align=center>"&a&"<td>"&ors_stu("id_stu")&"<td>"&ors_stu("name_stu")&" "&ors_stu("sur_stu")
			'response.write "<td align=center><input type=checkbox name=id_stu value="&ors_stu("id_stu")&">"
		End If
		a=a+1
		ors_cr.movenext
		Loop
	End If

End If
'�������繪��ͻ���  ���ǡ��׹�ѹ�����������Ԩ���� 26-2-63 23.08 �.
		%>
			  
			  </td><td>
                  </tr>

</table>

<%	else '���Է�
	response.write "<tr><td colspan=3><center>�س������Է����� �س���ѵԹ��"
response.write "<meta http-equiv=refresh content =3;url=javascript:history.back();>" '���Է�
	end if '���Է�

</body>
</html>

File Manager

Editing: print_activity_register.asp.bak