File Manager

<% On Error Resume Next %>

<script language="javascript">	
		function doSubmit()
{
	if( document.form1.command_no.value == "" )
	{
		alert("��سҡ�͡�Ţ�������")
		document.form1.command_no.focus()
			return false;
	}
if( document.form1.advisor_name.value == "" )
	{
		alert("��سҡ�͡���ͷ���֡����¹͡")
		document.form1.advisor_name.focus()
			return false;
	}
if( document.form1.date0.value == "" )
	{
		alert("��سҡ�͡�ѹ���ͧ�����")
		document.form1.date0.focus()
			return false;
	}
	}
	function clearText(thefield){
if (thefield.defaultValue==thefield.value)
thefield.value = ""
} 
		</script>
<%response.cachecontrol="private"%>
<!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">

<link href="bsri2006.css" rel="stylesheet" type="text/css">
<link href="image/favicon.ico" rel="shortcut icon" type="image/x-icon">
<link type="text/css" href="css/ui-lightness/jquery-ui-1.8.10.custom.css" rel="stylesheet" />

// �óյ�ͧ�����軯ԷԹŧ��ҡ���� 1 �ѹ���˹�� ����������� Code ����÷Ѵ��ҹ��ҧ���¤�Ѻ (1 �ش = 1 ��ԷԹ)

$("#datepicker-th").datepicker({ dateFormat: 'dd/mm/yy', isBuddhist: true, defaultDate: toDay, dayNames: ['�ҷԵ��', '�ѹ���', '�ѧ���', '�ظ', '����ʺ��', '�ء��', '�����'],
              dayNamesMin: ['��.','�.','�.','�.','��.','�.','�.'],
              monthNames: ['���Ҥ�','����Ҿѹ��','�չҤ�','����¹','����Ҥ�','�Զع�¹','�á�Ҥ�','�ԧ�Ҥ�','�ѹ��¹','���Ҥ�','��Ȩԡ�¹','�ѹ�Ҥ�'],
              monthNamesShort: ['�.�.','�.�.','��.�.','��.�.','�.�.','��.�.','�.�.','�.�.','�.�.','�.�.','�.�.','�.�.']});

$("#datepicker-th-2").datepicker({ changeMonth: true, changeYear: true,dateFormat: 'dd/mm/yy', isBuddhist: true, defaultDate: toDay,dayNames: ['�ҷԵ��','�ѹ���','�ѧ���','�ظ','����ʺ��','�ء��','�����'],
              dayNamesMin: ['��.','�.','�.','�.','��.','�.','�.'],
              monthNames: ['���Ҥ�','����Ҿѹ��','�չҤ�','����¹','����Ҥ�','�Զع�¹','�á�Ҥ�','�ԧ�Ҥ�','�ѹ��¹','���Ҥ�','��Ȩԡ�¹','�ѹ�Ҥ�'],
              monthNamesShort: ['�.�.','�.�.','��.�.','��.�.','�.�.','��.�.','�.�.','�.�.','�.�.','�.�.','�.�.','�.�.']});

$("#datepicker-en").datepicker({ dateFormat: 'dd/mm/yy'});

$("#inline").datepicker({ dateFormat: 'dd/mm/yy', inline: true });

});
		</script>
</head>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="100%" border="0">
  <tr> 
    <td colspan="2"><div align="right"><img src="Image/head1.gif" width="800" height="61"></div></td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif"><div align="right"><font size="2" face="MS Sans Serif, Tahoma, sans-serif"><strong>| 
        <a href="http://www.swu.ac.th" target=_blank>SWU</a> | <a href="http://bsri.swu.ac.th" target=_blank>BSRI</a> 
        |<a href="chaPW.asp"><strong>Change 
        Password</strong></a>|<a href="log_out.asp">Log Out </a></strong></font>|</div></td>
  </tr>
  <tr> 
    <td width="20%" align="left" valign="top" bgcolor="#FFCCCC"></td>
    <td width="77%" align="left" valign="top">
      <table width="100%"  border="0" cellspacing="0" bordercolor="#FFFFCC" >

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

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

<%
		  pern=session("username")
		  per="2"
		  tb="student"
		  sqlnc="select * from tb_permission where id_staff='"&pern&"' and tb_edit='"&per&"' and tb_name='"&tb&"'"
		  set orsnc=server.createobject("adodb.recordset")
		  orsnc.open sqlnc,conn,1,3
'*****************************************************************
'  if session("tb_preview") <> 1 or session("tb_edit")=2 then '���Է��� �����㹰ҹ ��� ����Ңͧ�������ͧ

%>
	<tr><td colspan=2><strong>
            <div align="center"><br>
              <br><div align=center>
              ��䢢������Ҩ��������ԭ�ҹԾ���<br>
              <br>
			  <tr><td colspan=2>
<%
id_stu=request("id_stu")
session("ids")=id_stu
id_thesis=request("id_thesis")
sqls="select * from student where id_stu='"&id_stu&"'"
	set orss=server.createobject("adodb.recordset")
	orss.open sqls,conn,1,3
		if not orss.eof then
		response.write orss("id_stu")&"<strong> [<a href=detail_stu.asp?id_stu="&orss("id_stu")&">"&orss("name_stu")&" "&orss("sur_stu")&"</a>]</strong> "

set ors4=server.createobject("adodb.recordset")
		sql4="select * from student_group where id_stugroup='"&orss("id_stugroup")&"'"
		ors4.open sql4,Conn,1,3
		if not ors4.eof then
		sqlc="select * from curriculum where id_curriculum='"&ors4("id_curriculum")&"'"
		set orsc=server.createobject("adodb.recordset")
			orsc.open sqlc,conn,1,3
			if not orsc.eof then
			  sqlt="select * from type_curriculum where id_type_curri='"&ors4("id_type_curri")&"'"
		   set orst=server.createobject("adodb.recordset")
			   orst.open sqlt,conn,1,3
			   if not orst.eof then
					%>
								<%  =orsc("curriculum_sum")%> Ẻ <%=orst("type_curri_th")%> ��� <%=ors4("no_stugroup")%>
										<%
				end if
			end if
		end if
		if not orsnc.eof then
								response.write "[<a href=edit_thesis_stu_form.asp?id_stu="&id_stu&"> ��ԭ�ҹԾ�������� </a>]"
		end if
end if

%>

                      <table width="100%" border="0" cellspacing="0" bordercolor="#FFCCFF">
                        <tr> 
                          <td colspan="2"><table  border="0">
                              <tr> 
                                <td width="15%" bgcolor="#FFFFCC">���ʻ�ԭ�ҹԾ���</td>
                                <td colspan="3" ><%
	sqlt="select * from thesis where id_thesis='"&id_thesis&"'"
	set orst=server.createobject("adodb.recordset")
	orst.open sqlt,conn,1,3
	if not orst.eof then
				'����ջ�ԭ�ҹԾ���
						response.write orst("id_thesis")&"<strong> "
						if not orsnc.eof then
						response.write "[ <a href=edit_thesis_form.asp?id_thesis="&orst("id_thesis")&"&id_stu="&orss("id_stu")&">Edit</a> ] </strong>"
						end if
							%>
[<a href=edit_abs_form.asp?id_thesis=<%=orst("id_thesis")%>&ids=<%=id_stu%>>ABS</a>]
		</td>
        </tr>
       <tr> 
                                <td bgcolor="#FFFFCC">���ͷի��</td>
                                <td colspan="3" ><%
'response.write "<>orst("id_academic_semeter")&"/"&orst("academic_year")
							response.write orst("thesis_th")
							response.write "<br>- "&orst("thesis_eng")
							
								
								%></td>
                              </tr>
                              <tr> 
                                <td bgcolor="#FFFFCC">�����Ԫ�</td>
                                <td colspan=3><%
								response.write orst("id_course")
								%></td>
                              </tr>
		<tr> 
        <td bgcolor="#FFFFCC">�ա���֡��</td>
        <td colspan=3><%
			response.write orst("id_academic_semeter")&"/"&orst("academic_year")
								%></td>
						 
		<tr><td colspan=2>Upload file...
						  <tr>
						  <td bgcolor="#FFFFCC">
						  
		<%if not orsnc.eof then%><a href=upabs_thesis_form.asp?id_thesis=<%=orst("id_thesis")%>>Abstract</a><%else response.write "Abstract" end if%>
						  <td colspan=3><%=orst("abstract")%>
						  <%
						  if not orst("abstract")="" then
						  if not orsnc.eof then
		response.write " [<a href=removeAbs_thesis_form.asp?id_thesis="&orst("id_thesis")&"&id_stu="&orss("id_stu")&">-</a>] </strong>"
						end if
						end if
						%>
						  </tr>
						  	<tr>
						  <td bgcolor="#FFFFCC">
						  <%if not orsnc.eof then%><a href=upthesis_form.asp?id_thesis=<%=orst("id_thesis")%>>Full</a><%else response.write "Full" end if%>
						  <td colspan=3><%=orst("full_thesis")%>
						  <%
						  if not orst("full_thesis")="" then
						   if not orsnc.eof then
						response.write " [<a href=removethesis_form.asp?id_thesis="&orst("id_thesis")&"&id_stu="&orss("id_stu")&">-</a>] </strong>"
						end if
						  end if
						  %>
						  </tr>
<tr>
	<td bgcolor="#FFFFCC">
	<%if not orsnc.eof then%><a href=upart_form.asp?id_thesis=<%=orst("id_thesis")%>&id_stu=<%=orst("id_stu")%>>Article</a><%else response.write "Article" end if%>
	<td colspan=3>
	<%sqlart="select * from student_article where id_thesis='"&id_thesis&"'"
		set orsart=server.createobject("adodb.recordset")
		orsart.open sqlart,conn,1,3
			if not orsart.eof Then
				orsart.movefirst
				Do While Not orsart.eof 
				
	Response.write "[<a href="&orsart("art_link")&">"&orsart("art_detail")&"</a>]"
	Response.write "[<a href=art_del.asp?a="&orsart("id_article")&"&s="&id_stu&"&t="&id_thesis&">Del</a>]"
	If  orsart("art_file") = "0" Then
'If orsart("art_file") = 0 Then
	Response.write "[Download]"
else
	Response.write "[<a href=art/"&orsart("art_file")&">Download</a>]"
End If
'session("id_art")=orsart("id_article")
%>
<%if not orsnc.eof then%>
[<a href=upart_form.asp?t=<%=orst("id_thesis")%>&a=<%=orsart("id_article")%>>Upload</a>]<%else response.write "Upload" end if%>
<%	'Response.write "[<a href=upart_form.asp?a="&orsart("id_article")&">Upload</a>]"

Response.write "<br>"
				orsart.movenext
				Loop
			End If
'Response.write id_thesis
			%>
<%
If id_stu1<>id_stu then
%>
<FORM name =  "form3" ACTION = "article_add.asp"  METHOD="POST">
Vol.<INPUT NAME = "vol_" size=60></INPUT><br>
URL<INPUT NAME = "url_" size=58></INPUT>
  <input type="hidden" name="id_stu" value=<%=id_stu%>>
    <input type="hidden" name="idt" value=<%=id_thesis%>>

<INPUT TYPE = "SUBMIT" NAME="cmdSubmit" VALUE="SUBMIT">
</FORM>
<%End if%>
	<%'=orst("full_thesis")%>
	<%
	'if not orst("full_thesis")="" then
	'	if not orsnc.eof then
	'response.write " [<a href=removethesis_form.asp?id_thesis="&orst("id_thesis")&"&id_stu="&orss("id_stu")&">-</a>] </strong>"
	'	end if
	'end if
						  %>
						  </tr>
                              </tr>
				<%end if%>
				<table>
                              <tr> 
                 <td colspan="8" bgcolor="#e0a8fd"><div align="left"><strong>�Ҩ����Ǻ�����ԭ�ҹԾ���								<% sqlfile="select cid,id_stu,cfile from commando where id_stu='"&orss("id_stu")&"' and id_type_command='1'"
			set orsfile=server.createobject("adodb.recordset")
					orsfile.open sqlfile,conn,1,3
					if not orsfile.eof then
					if orsfile("cfile")="0" then
						Else
						orsfile.movefirst
						Do While Not orsfile.eof 
					response.write "[<a href=command/"&orsfile("cfile")&">"&orsfile("cid")&"</a>]"
					orsfile.movenext
					loop
						end if
			end if
%>
								
	</div>
	</td>
    </tr>
    <tr bgcolor=#FFFFCC> 
	<td><div align="center"><strong></strong>���</div></td>
     <td><div align="center"><strong></strong>���˹�</div></td>
    <td ><div align="left"><strong>����-ʡ��(����)</strong></div></td>
	<td ><div align="left"><strong>����-ʡ��(��¹͡)</strong></div></td>
	<td ><div align="left"><strong>�Ţ�������</strong></div></td>
	<td ><div align="left"><strong>����� dd-mm-yyyy</strong></div></td>
	<td ><div align="left"><strong>�Ҥ���¹</strong></div></td>
	<td ><div align="left"><strong>Action</strong></div></td>
                              </tr>
                            
	<%
	sqla="select * from advisor_thesis where id_stu='"&id_stu&"' and id_thesis='"&id_thesis&"' order by id_num"
	' sqla="select * from advisor_thesis where id_stu='"&id_stu&"' order by id_num"
	set orsa=server.createobject("adodb.recordset")
		orsa.open sqla,conn,1,3
							  
		if not orsa.eof then
		idn=0
		orsa.movefirst
							  ' id_thesis=orsa("id_thesis")
	do while not orsa.eof
	response.write "<tr><td>"&orsa("id_num")
	sqlp="select * from position_advice where id_position='"&orsa("id_position_thesis")&"'"
	set orsp=server.createobject("adodb.recordset")
	orsp.open sqlp,conn,1,3
		if not orsp.eof then
			response.write "<td >"&orsp("position_advice")
		end if
		sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
		set orsl=server.createobject("adodb.recordset")
		orsl.open sqll,conn,1,3
		if not orsl.eof then
		response.write "<td>"&orsl("name_lec")&"  "&orsl("sur_lec")
														
		end if
	response.write "<td >"&orsa("advisor_out")
	response.write "<td>"&orsa("command_no")
	response.write "<td>"&orsa("command_date")
	response.write "/"&orsa("command_month")
	response.write "/"&orsa("command_year")
	response.write "<td>"&orsa("command_sem")
	if not orsnc.eof or id_stu=session("id_stu1") Then
	
														%>
<td>[<a href=del_advisor_thesis.asp?id_lecturer=<%=orsa("id_lecturer")&"&id_thesis="&id_thesis&"&id_stu="&id_stu%> 
	onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
[<a href=edit_advisor_thesis_form.asp?idl=<%=orsa("id_lecturer")&"&idth="&id_thesis&"&ids="&id_stu%> >Edit</a>]		<%'=orsa("id_thesis")%><%'response.write "555"%>									
	<%
	if orsa("command_no")="00" then 
	%>
[<a href=confirm_advisor_thesis_form.asp?id_lecturer=<%=orsa("id_lecturer")&"&id_thesis="&id_thesis&"&id_stu="&id_stu&"&id_num="&orsa("id_num")%> >Confirm</a>]

<%	end if %>
<%	end if

response.write "</tr>"
	idn=orsa("id_num")
	 orsa.movenext
	 loop
	else
	response.write "<tr><td colspan=4>No Advisor</tr>"
	idn=0
	end if
'							  response.write "<tr><td>a<td>a"
	%>

<%
'/////////////////
if id_stu=orss("id_stu") then 
  if 1=orss("id_status_edu") then
chk_stu_edit=1
end if
end if
'///////////////////

if not orsnc.eof or chk_stu_edit=1 Or id_stu<>id_stu1 then%>
<form name="form1" method="post" action="add_advisor_thesis.asp"  onsubmit="return doSubmit();"> 
  <tr >
  
    <td  >
	<%
	if idn=0 then
	idn=1
	else idn=idn+1 end if
	
	%>
	
	<INPUT TYPE="text" size= "1" NAME="id_num" value=<%=idn%> readonly>
	<td>
	<select name="id_position_thesis">
	<% sqlpo="select * from position_advice"
			set orspo=server.createobject("adodb.recordset")
			orspo.open sqlpo,conn,1,3
			if not orspo.eof then
			orspo.movefirst
			do while not orspo.eof
     response.write "<option value="&orspo("id_position")&">"&orspo("position_advice")&"</option>"
		orspo.movenext
		loop
			end if
	%>
    </select>
    <td>
	<select name="id_lecturer">
	<%
	sqlle="select * from lecturer where id_status_lec=1 order by name_lec"
			set orsle=server.createobject("adodb.recordset")
			orsle.open sqlle,conn,1,3
			if not orsle.eof then
			orsle.movefirst
			do while not orsle.eof
               response.write "<option value="&orsle("id_lecturer")&">"&orsle("name_lec")&"  "&orsle("sur_lec")&"</option>"
				orsle.movenext
				loop
			end if
	%>
	
	</select>
	<td><INPUT TYPE="text" NAME="advisor_name" value="-" onfocus="clearText(this)" size=40>
	<td><INPUT TYPE="text" NAME="command_no"  size=10 value="�Ţ���/��" onfocus="clearText(this)">
	<td>
	<input type="text" size="15" id="datepicker-th" name="date0" />
	
	
	</td>
	<td><INPUT TYPE="text" NAME="command_sem"  size=10 value="�� ��/���" onfocus="clearText(this)">
  <input type="hidden" name="id_stu" value=<%=id_stu%>>
    <input type="hidden" name="id_thesis" value=<%=id_thesis%>>
  <td><input type="submit" name="Submit" value="Add"><tr><td colspan=7>�. ��¹͡������͡�� ARR ���������� �.��ҹ���</td></tr>

</form><%end if%>
</table>

<%'if not orsnc.eof then%>
<table width="100%" border="0">
<tr> 
<%			sqlt_test="select * from thesis_test where id_thesis='"&id_thesis&"' and id_type_test='1' "
			set orst_test=server.createobject("adodb.recordset")
		orst_test.open sqlt_test,conn,1,3
			if not orst_test.eof then
			orst_test.movefirst%>
                                <td colspan="4" bgcolor="#e0a8fd"><div align="left"><strong>��С�������ͺ����ç<%=orst_test("date1")&"/"&orst_test("month1")&"/"&orst_test("year1")%>
								<%
								 sqlfile1="select cid,id_stu,cfile from commando where id_stu='"&orss("id_stu")&"' and id_type_command='2'"
								set orsfile1=server.createobject("adodb.recordset")
								orsfile1.open sqlfile1,conn,1,3
								if not orsfile1.eof then
										if orsfile1("cfile")="0" then
										Else
										orsfile1.movefirst
										Do While Not orsfile1.eof
										response.write " [<a href=command/"&orsfile1("cfile")&">�����</a>]"
										orsfile1.movenext
										loop
										end if
								end if
								
								%>
								
								
								
								</div></td>
                              </tr>
                                  <tr bgcolor="#EBEBEB"> 
							    <td><div align="center"><strong></strong>�ӴѺ���</div></td>
                                <td><div align="center"><strong></strong>���˹�</div></td>
                                <td ><div align="left"><strong>����-ʡ��(����)</strong></div></td>
								<td ><div align="left"><strong>����-ʡ��(��¹͡)</strong></div></td>
                              </tr>
                              <tr> 
							  <%
'�ç������㹵��ҧ thesis_test �����ʴ��¡��������ͺ������ç��лҡ����
ab=0
			do while not orst_test.eof
			ab=ab+1
			response.write "<tr bgcolor=#FFFFCC><td colspan=4>����ͺ���駷�� "&ab
			id=orst_test("id")
			sqla="select * from committee_thesis where id_thesis='"&id_thesis&"' and id='"&id&"' order by id_num"
			set orsa=server.createobject("adodb.recordset")
				orsa.open sqla,conn,1,3
			if not orsa.eof then
				orsa.movefirst
								
				do while not orsa.eof
							  response.write "<tr><td>"&orsa("id_num")
							  sqlp="select * from position_thesis where id_position_thesis='"&orsa("id_position_thesis")&"'"
				 set orsp=server.createobject("adodb.recordset")
							  orsp.open sqlp,conn,1,3
							  						  
				if not orsp.eof then
							  response.write "<td>"&orsp("position_thesis")
							  end if
							  sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
							  set orsl=server.createobject("adodb.recordset")
							  orsl.open sqll,conn,1,3
							  if not orsl.eof then
									response.write "<td>"&orsl("name_lec")&"  "&orsl("sur_lec")
									if not orsnc.eof then
									%>
									[<a href=del_committee_thesis.asp?id_lecturer=<%=orsa("id_lecturer")&"&id_thesis="&id_thesis&"&id_stu="&id_stu%> 
									onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
									
									<%end if
							  end if
								response.write "<td >"&orsa("oral_out")
							  orsa.movenext
							  loop
							  else
							  response.write "<tr><td colspan=4>No Committee</tr>"
							  
							  end if

orst_test.movenext
				  loop
				  response.write "<tr><td colspan=4>end of data</tr>"
				  
				  end if
							  'end if '�ͧ������੾�����˹�ҷ���

%>
<tr > 
<%sqlt_test="select * from thesis_test where id_thesis='"&id_thesis&"' and id_type_test='2' "
			set orst_test=server.createobject("adodb.recordset")
		orst_test.open sqlt_test,conn,1,3
			if not orst_test.eof then
			orst_test.movefirst%>
            <td colspan="4" bgcolor="#e0a8fd"><div align="left"><strong>��С�������ͺ�ҡ����<%=orst_test("date1")&"/"&orst_test("month1")&"/"&orst_test("year1")%>
								<%
	sqlfile2="select cid,id_stu,cfile from commando where id_stu='"&orss("id_stu")&"' and id_type_command='3'"
	set orsfile2=server.createobject("adodb.recordset")
	orsfile2.open sqlfile2,conn,1,3
	if not orsfile2.eof then
		if orsfile2("cfile")="0" then
			Else
			orsfile2.movefirst
			Do While Not orsfile2.eof
		response.write " [<a href=command/"&orsfile2("cfile")&">�����</a>]"
			orsfile2.movenext
			loop
			end if
	end if
								
		%>
								
		</div></td>
        </tr>
  <tr bgcolor="#EBEBEB"> 
							    <td><div align="center"><strong></strong>�ӴѺ���</div></td>
                                <td><div align="center"><strong></strong>���˹�</div></td>
                                <td ><div align="left"><strong>����-ʡ��(����)</strong></div></td>
								<td ><div align="left"><strong>����-ʡ��(��¹͡)</strong></div></td>
                              </tr>
                              <tr> 
							  <%
							  '��С�������ͺ�ҡ����
'�ç������㹵��ҧ thesis_test �����ʴ��¡��������ͺ������ç��лҡ����
			
			do while not orst_test.eof
			id=orst_test("id")
							  sqla="select * from committee_thesis where id_thesis='"&id_thesis&"' and id='"&id&"' order by id_num"
							  set orsa=server.createobject("adodb.recordset")
							  orsa.open sqla,conn,1,3
							  if not orsa.eof then
							  orsa.movefirst
								
							  do while not orsa.eof
							  response.write "<tr><td>"&orsa("id_num")
							  sqlp="select * from position_thesis where id_position_thesis='"&orsa("id_position_thesis")&"'"
							  set orsp=server.createobject("adodb.recordset")
							  orsp.open sqlp,conn,1,3
							  						  
							  if not orsp.eof then
							  response.write "<td>"&orsp("position_thesis")
							  end if
							  sqll="select * from lecturer where id_lecturer='"&orsa("id_lecturer")&"' "
							  set orsl=server.createobject("adodb.recordset")
							  orsl.open sqll,conn,1,3
							  if not orsl.eof then
									response.write "<td>"&orsl("name_lec")&"  "&orsl("sur_lec")
									if not orsnc.eof then
									%>
									[<a href=del_committee_thesis.asp?id_lecturer=<%=orsa("id_lecturer")&"&id_thesis="&id_thesis&"&id_stu="&id_stu%> 
									onclick="return confirm('�س�����Ҩ�ź?');">Del</a>]
									
									<%end if
							  end if
								response.write "<td >"&orsa("oral_out")
							  orsa.movenext
							  loop
							  else
							  response.write "<tr><td colspan=4>No Committee</tr>"
							  
							  end if

orst_test.movenext
				  loop
				  response.write "<tr><td colspan=4>end of data</tr>"
				  
				  end if
'�����С�������ͺ�ҡ����
							  %>

<tr><td colspan=4><%if not orsnc.eof then%>
	<% 'sqlpo="select * from position_thesis"
			'set orspo=server.createobject("adodb.recordset")
			'orspo.open sqlpo,conn,1,3
			'if not orspo.eof then
			'orspo.movefirst
			'do while not orspo.eof
                                    '  response.write "<option value="&orspo("id_position_thesis")&">"&orspo("position_thesis")&"</option>"
									'  orspo.movenext
									'  loop
			'end if
	%>
                              
	<%
	'sqlle="select * from lecturer order by name_lec"
		'	set orsle=server.createobject("adodb.recordset")
		'	orsle.open sqlle,conn,1,3
		'	if not orsle.eof then
		'	orsle.movefirst
		'	do while not orsle.eof
             '                         response.write "<option value="&orsle("id_lecturer")&">"&orsle("name_lec")&"  "&orsle("sur_lec")&"</option>"
			'						  orsle.movenext
			'						  loop
			'end if
	%>
	
	

<%end if%>
</td></tr>

</tr>
                            </table></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 '���Է�

%>
            </div></table>	
      </td>
  </tr>
  <tr> 
    <td colspan="2" background="Image/bghead1.gif">Contact Admin:: wassanaw@swu.ac.th 
      tel.02-649-5000 ext 17600</td>
  </tr>
</table>
</body>
</html>

File Manager

Editing: add_advisor_thesis_form.asp