<%
user= Request.Form("user")
password= Request.Form("pass")
neo= Request.Form("neo")
opencon
response.Write(user)
response.Write(password)
set rs=Server.CreateObject("ADODB.recordset")
sqlstmt = "SELECT * FROM administrator where admin='"& user &"'and pass ='"& password &"' "
rs.open sqlstmt, connectme
if not rs.eof then
session("user")=RS.Fields("admin").value
session("pass")=RS.Fields("pass").value 'เก็บเปง session ot
rs.movenext
response.redirect "index.asp"
else
response.redirect "login_from.asp"
end if
%>
