File Manager

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

<html>
<head>
<style>

</style>
<SCRIPT language=JavaScript>
var rate = 20; // Increase amount(The degree of the transmutation)
var obj; // The object which event occured in
var act = 0; // Flag during the action
var elmH = 0; // Hue
var elmS = 128; // Saturation
var elmV = 255; // Value
var clrOrg; // A color before the change
var TimerID; // Timer ID
if (navigator.appName.indexOf("Microsoft",0) != -1 && parseInt(navigator.appVersion) >= 4) {
Browser = true;
} else {
Browser = false;
}
if (Browser) {
document.onmouseover = doRainbowAnchor;
document.onmouseout = stopRainbowAnchor;
}
function doRainbow()
{
if (Browser && act != 1) {
act = 1;
obj = event.srcElement;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
function stopRainbow()
{
if (Browser && act != 0) {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
function doRainbowAnchor()
{
if (Browser && act != 1) {
obj = event.srcElement;
while (obj.tagName != 'A' && obj.tagName != 'BODY') {
obj = obj.parentElement;
if (obj.tagName == 'A' || obj.tagName == 'BODY')
break;
}
if (obj.tagName == 'A' && obj.href != '') {
act = 1;
clrOrg = obj.style.color;
TimerID = setInterval("ChangeColor()",100);
}
}
}
function stopRainbowAnchor()
{
if (Browser && act != 0) {
if (obj.tagName == 'A') {
obj.style.color = clrOrg;
clearInterval(TimerID);
act = 0;
}
}
}
function ChangeColor()
{
obj.style.color = makeColor();
}
function makeColor()
{
if (elmS == 0) {
elmR = elmV; elmG = elmV; elmB = elmV;
}
else {
t1 = elmV;
t2 = (255 - elmS) * elmV / 255;
t3 = elmH % 60;
t3 = (t1 - t2) * t3 / 60;
if (elmH < 60) {
elmR = t1; elmB = t2; elmG = t2 + t3;
}
else if (elmH < 120) {
elmG = t1; elmB = t2; elmR = t1 - t3;
}
else if (elmH < 180) {
elmG = t1; elmR = t2; elmB = t2 + t3;
}
else if (elmH < 240) {
elmB = t1; elmR = t2; elmG = t1 - t3;
}
else if (elmH < 300) {
elmB = t1; elmG = t2; elmR = t2 + t3;
}
else if (elmH < 360) {
elmR = t1; elmG = t2; elmB = t1 - t3;
}
else {
elmR = 0; elmG = 0; elmB = 0;
}
}
elmR = Math.floor(elmR);
elmG = Math.floor(elmG);
elmB = Math.floor(elmB);
clrRGB = '#' + elmR.toString(16) + elmG.toString(16) + elmB.toString(16);
elmH = elmH + rate;
if (elmH >= 360)
elmH = 0;
return clrRGB;
}
</SCRIPT>
<title>::BSRI::</title>
<meta name="keywords" content="�Ԩ�¾ĵԡ�����ʵ��, �Ԩ��, �ĵԡ���, �ĵԡ�����ʵ��, �Ԩ�¾ĵԡ���, Behavioral science research institute, research, behavioral, behavior, Research, Behavioral, Behavior, Behavior Science">
<meta name="description" content="ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� ��� ��觷��Ԩ�� ��м�Ե�ѳ�Ե���͹�����س�Ҿ���Ե�ͧ����">
 
<title>ʶҺѹ�Ԩ�¾ĵԡ�����ʵ��</title>
 
<meta http-equiv="Content-Type" content="text/html; charset=windows-874">
  
<style type="text/css">

</style>
<SCRIPT language=JavaScript>
function clearsearch() {
        document.form2.username1.value = '';
}
function clearsearch1() {
     document.form2.password1.value = '';
}
function clearsearch2() {
     document.form1.q.value = '';
}
</SCRIPT>

<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<script>

</script>
<div align="center">
  <table width="812" border="0" cellspacing="0" cellpadding="0">
    <tr> 
      <td width="138" valign="top" background="image/menu.jpg"><img src="image/h1.jpg" width="138" height="171"> 
        <table widt="100%" border="0" cellpadding="0" cellspacing="0" background="image/menu3.jpg">
          <tr> 
            <td width="134" height="20" background="image/menu3.jpg" bgcolor="#FFFFCC"><a href="https://docs.google.com/forms/d/1HS7hpXp64xM9hfG1A_5rQzXTsV51zXZtsYkGGbvdvvM/viewform" ><font color="#FFFFFF">��Ѥ÷ҧ�Թ������</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg" bgcolor="#FFFFCC"><a href="application.doc" ><font color="#FFFFFF">Download 
              ���Ѥ�</font></a></td>
          </tr>
          <tr> 
            <td height="20" background="image/menu3.jpg" bgcolor="#FFFFCC">&nbsp;</td>
          </tr>
        </table>
        <br> <form name="form2" method="post" action="index_member.asp">
        </form>
        <br> <br> </td>
      <td colspan="2" valign="top"><table width="100%" border="0" cellspacing="0" cellpadding="0">
          <tr background="image/h6.jpg"> 
            <td width="800" background="image/h6.jpg"><img src="image/h2.gif" width="624" height="76" ></td>
          </tr>
          <tr > 
            <td height="28" background="image/h7.jpg"><div align="right"><a href="http://bsri.swu.ac.th"  ><font color="#FFFFFF" face="MS Sans Serif, Tahoma, sans-serif">˹���á</font></a><font face="MS Sans Serif, Tahoma, sans-serif"> 
                | <a href="http://www.swu.ac.th" target="_blank"><font color="#FFFFFF">SWU</font></a> 
                | <a href="http://mail.swu.ac.th"><font color="#FFFFFF">E-mail</font></a> 
                |</font></div></td>
          </tr>
        </table>
        <br> <table width="100%" border="0" cellpadding="0" cellspacing="1">
          <tr> 
            <td> 
<table border="1" cellpadding="0" cellspacing="0" width="800" height="100%" align="center" bgcolor="#F4F4F6">
  <tr> 
    <td width="770" height="100%" colspan="8" valign="top"><table width="100%"  border="0" cellspacing="0" cellpadding="0">
        <tr> 
          
		  <% 
		 
		  set ors=server.createobject("adodb.recordset")
		  sql="select * from statregis"
		  ors.open sql,conn,1,3
		  if not ors.eof then

%>
          <td valign="middle" class="heading" colspan=7>�����ż����Ѥ÷����� </td>
        </tr>
		<%
		set orst=server.createobject("adodb.recordset")
		sqlt="select * from type_stat"
		orst.open sqlt,conn,1,3
		if not orst.eof then
		orst.movefirst
		do while not orst.eof 
		response.write "[<a href=detail_course.asp?id_type="&orst("id_type")&">"
		'response.write "[<a href=detail_course.asp>"
		response.write orst("type_name")
		'response.write  "</a>]"
		response.write "["
'		------
 x=0
		' stat=request("id_type")
		 'response.write stat
		 stat=orst("id_type")
		 set ors11=server.createobject("adodb.recordset")
		  sql11="select * from regis where stat="&stat&""
		  ors11.open sql11,conn,1,3
		  if not ors11.eof then
	
	ors11.movefirst
		  do while not ors11.eof
           id_regis=ors11("id_regis")

set ors1=server.createobject("adodb.recordset")
		  sql1="select * from statregis where id_regis="&id_regis&""
		  ors1.open sql1,conn,1,3

if not ors1.eof then
  
   
   ors1.movefirst

do while not ors1.eof

x=x+1
		
  ors1.movenext
  loop

end if

ors11.movenext
loop
end if
response.write x
response.write "]<br>"

'----
		
		orst.movenext
		loop
		end if
		
		%>
        <tr>
                   <td valign="middle" class="heading"></td><td height="20"></td>
        </tr>
      </table></td>
  </tr>
  <tr valign="center"> 
    <td valign="top"><div align="center">�ӴѺ���  </td><td><div align="center">����-ʡ��</td><td><div align="center">��ѡ�ٵ÷����Ѥ�</td><td ><div align="center">�Ըա�ê����Թ  </td><td><div align="center">��������´</td><td><div align="center">�������Ѿ��</td><td><div align="center" width="60">ῡ��</td>
  <td><div align="center">ʶҹС�ê����Թ</td></tr>
  <%
  x=1
  do while not ors.eof 
  response.write "<tr><td>"
  response.write x&"<td>"&ors("fname")&" "&ors("name")&" "&ors("sname")&"<td>"
		set orscourse=server.createobject("adodb.recordset")
		sqlcourse="select * from regis where id_regis="&ors("id_regis")&""
		orscourse.open sqlcourse,conn,1,3
		if not orscourse.eof then
		orscourse.movefirst
		do while not orscourse.eof
		set ors1=server.createobject("adodb.recordset")
		  sql1="select * from type_stat where id_type="&orscourse("stat")&" "
		  ors1.open sql1,conn,1,3
		  response.write "-"&ors1("type_name")&"<br>"
		orscourse.movenext
		loop
		end if
 set ors2=server.createobject("adodb.recordset")
		  sql2="select * from pay where id_pay='"&ors("pay")&"' "
		  ors2.open sql2,conn,1,3
  response.write "<td>"&ors2("pay")&"<td><a href=statshowdetail.asp?id_regis="&ors("id_regis")&">��������´</a><td>"&ors("tel")&"</td><td>"&ors("fax")&"</td>"
  response.write "<td>"&ors("status_pay")&"</td></tr>"
  x=x+1
  ors.movenext
  loop
  %>
  <tr> </tr>
  <tr> 
    <td valign="top"></td>
  </tr>
 
</table>
<%

else
%>
   <td valign="middle" class="heading"></td>
        </tr>
        <tr>
          <td height="20"></td>
          <td valign="middle" class="heading"></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td width="770" height="280" colspan="2" rowspan="2" valign="top"> <div style="padding-left: 150; padding-top: 25; padding-bottom: 25"> 
        <p>��辺������...��س���Ѥ���Ҫԡ</p>
      </div></td>
  </tr>
  <tr> </tr>
  <tr> 
    <td width="770" height="200%" colspan="2" rowspan="2" valign="top">&nbsp;</td>
  </tr>
 
</table>
<%
end if
%>

</td>
          </tr>
        </table></td>
    </tr>
    <tr > 
      <td  background="image/bottomedge.jpg"> 
       
        <div align="center">Visitor No::  <br>
        (16 �Զع�¹ 2549)</div></td>
      <td height="52" colspan="2" background="image/bottomedge.jpg" > ʶҺѹ�Ԩ�¾ĵԡ�����ʵ�� 
        ����Է�������չ��Թ�����ò [Behavioral Science Research Institute] <br>
        �آ���Է 23 �ǧ��ͧ���˹�� ࢵ�Ѳ�� ��ا෾ 10110 �� 02-649-5000 ��� 
        7600 ����� 02-649-5182 <A 
                        href="mailto:wassanaw@swu.ac.th">webmaster</A> </td>
    </tr>
  </table>
  
</div>
</body>
</html>

File Manager

Editing: stat17/statall_regis.asp