<%
Dim use_leader, pass_leader
use_leader=Request.Form("use_leader")
pass_leader=Request.Form("pass_leader")
if((use_leader="use_leader") and (pass_leader="pass_leader"))then
session("use_leader")=Use_leader
session("pass_leader")=pass_leader
Response.Write "<br><br><br><br><center>username and password ไม่ถูกต้อง</center>"
end if
%>
<META HTTP-EQUIV="REFRESH" CONTENT="4; URL=index.html">
file chkmember.asp
<%@ Language="VBScript" %>
<!--#include file="MSSQL.asp" -->
<%
Dim data
Dim data_numRows
Set data = Server.CreateObject("ADODB.Recordset")
Sql="Select * from leader where use_leader='& use_leader &' and pass_leader='& pass_leader &' "
data.open Sql, MM_MSSQL_STRING,1,3
%>
<%
session("use_leader")=Use_leader
session("pass_leader")=pass_leader
response.write"<center>ยินดีต้อนรับเข้าสู่ระบบ</center>"
Response.Redirect "index2.html"
%>
<%
if (admin = "" or password = "") then
response.write"<center>กรุณาใส่ username และ password</center>"
End if
%>
<META HTTP-EQUIV="REFRESH" CONTENT="2; URL=index.html">
Load balance : Server 00
