FOR n=0 TO maxcounter
Sql="Select * From tblQuota "
Set Rs=server.CreateObject("adodb.recordset")
Rs.open Sql,conn,1,3
while not rs.eof
response.write "DB:"& "("&n&")" &rs("idcard")&" | "
response.write Ltrim(myIdentity(n))
if rs("idcard")=Ltrim(myIdentity(n)) then%>
<script language="JavaScript">
alert("รหัสประจำตัวประชาชน : <%=myIdentity(n)%> ได้ทำการสมัครไปแล้ว");
window.history.go(-1);
</script>
<%
exit for
end if
rs.movenext
wend
on error resume next
if GPA(n)>4 then%>
<script language="JavaScript">
alert("รูปแบบของเกรดเฉลี่ยไม่ถูกต้อง");
window.history.go(-1);
</script>
<%
exit for
end if
if Len(myIdentity(n)) <13 then%>
<script language="JavaScript">
alert("มีรหัสประชาชนน้อยกว่า 13 หลัก");
window.history.go(-1);
</script>
<%
exit for
else
%>
<%
Rs.addnew
Rs("prefix")=Ltrim(SName(n))
Rs("firstname")=Ltrim(name_index(n))
Rs("lastname")=Ltrim(myLastName(n))
Rs("gpa")=Ltrim(GPA(n))
Rs("idcard")=Ltrim(myIdentity(n))
Rs("school")=NameSchool
Rs("province")=Provice
Rs("city")=City
Rs("tambon") =Tambon
Rs("MajorID")=myID
Rs("ZipCode")=ZipCode
Rs("myconfirm")=0
Rs.update
end if
next
Rs.close
%>
<script language="JavaScript">
alert("ได้ทำการบันทึกข้อมูลเรียบร้อยแล้ว");
window.location="List_amount.asp";
</script>
Load balance : Server 05
