<%
Set Conn2=Server.Createobject("ADODB.Connection")
Conn2.Open"DRIVER={MySQL ODBC 3.51 Driver}; SERVER=localhost;DATABASE=database; UID=root; OPTION=3"
sql ="Select * From ตาราง where user='ตัวแปรuser' and Pass='ตัวแปรPass' "
Set Rs = Conn2.Execute(sql)
If Rs.EOF Then
%>
<script>alert("ไม่สามารถล๊อกอินได้ครับ");</script>
<%Else%>
มีข้อมูล
<script>alert("ล๊อกอินได้ครับ");</script>
<%
End If
%>
