If txtSearch<>"" Then
Select case ex_Search
Case 1
SQL="SELECT * FROM QrStudent WHERE StudentID="& txtSearch
Case 2
SQL="SELECT * FROM QrStudent WHERE PersonID='"& txtSearch &"'"
Case 3
SQL="SELECT * FROM QrStudent WHERE Name='"& txtSearch &"'"
Case 4
SQL="SELECT * FROM QrStudent WHERE NicName='"&txtSearch &"'"
Case 5
SQL="SELECT * FROM QrStudent WHERE Major_Thai_Name='"&txtSearch&"'"
End Select
Set RSFind =Server.CreateObject("ADODB.Recordset")
RSFind.Open SQL,Conn1,1,3
If RSFind.EOF Then
%>
<script language=javascript>
alert("ไม่พบข้อมูลที่ท่านได้ทำการค้นหา");
window.location="search_edit_scholarship_detail.asp";
</script>
<%Else%>
<%
SQL="SELECT * FROM QrScholaship_Detail WHERE StudentID="& RSFind("StudentID")
Set RS_Sch=Server.CreateObject("ADODB.Recordset")
RS_Sch.Open SQL,Conn,1,3
While Not RS_Sch.EOF
If Not RS_Sch.Eof Then
%>
Load balance : Server 02
