login
""""""""""""""""""""""""
<%
if ("username")=""then
%>
<a href="login.asp"></a>
<%
else
%>
<a href="logout.asp"></a>
<%
end if
%>
<% set data1= Server.CreateObject("ADODB.Connection")
data1.open"my_db"
if request ("u")<>"" and ("p")<>""then
sql="select * from Member where Username_Mem ='"&request("u")&"'and Password_Mem ='"&request("p")&"'"
'response.Write(sql)
set rs=data1.execute(sql)
if not rs.eof then
session ("username")=("Member")
response.Redirect"logout.asp"
else
response.Write "กรุณา login ใหม่"
end if
end if