<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim error_msg
dim login
if request("logout") <> "" then
session("memberid") = ""
session("login") = ""
session("firstname") = ""
end if
login = request("login")
password = request("password")
submit = request("submit")
if submit <> "" then
session("memberid") = ""
session("login") = ""
session("firstname") = ""
' if login = "" then pusherror "Invalid login id."
Set rslogin = Server.CreateObject("ADODB.Recordset")
rslogin.ActiveConnection = MM_connection_STRING
rslogin.Source = "SELECT * FROM tbl_member WHERE login = '" & parse(login) & "' and password ='" & parse(password) & "'"
rslogin.CursorType = 0
rslogin.CursorLocation = 2
rslogin.LockType = 1
rslogin.Open()
if rslogin.eof then
pusherror "Invalid login id or password."
else
session("memberid") = rslogin("memberid")
session("login") = rslogin("login")
session("firstname") = rslogin("firstname")
response.Redirect("myaccount.asp")
end if
end if
sub pusherror(str)
if error_msg = "" then
error_msg = "• " & str
else
error_msg = error_msg & " " & "• " & str
end if
end sub
%>
Member Login
