<!-- #include file = "../include/config.asp" -->
<!-- #include file = "../include/NoCache.asp" -->
<!-- #include file = "../include/db.asp" -->
<!-- #include file = "../include/Func.asp" -->
<%
func = Request("func")

If func="mbrLogin" Then
	checkIsPost("login.asp")

	Account = Request("email")
	Password = Request("passwd")
	Return = Request("return")

	Str = "登入失敗"
	RetPage = "login.asp"

	'SQLSeg = "select id,passwd,CanLogin from Members where email1="&AdjStr(Account)
	SQLSeg = "select id,passwd from Members where email1="&AdjStr(Account)
	Set rs0 = Conn.Execute(SQLSeg)

	IF Not(rs0.EOF And rs0.BOF) Then
		If Password=CStr(rs0("passwd")) Then
			'If rs0(2) Then
				Session("MemberID") = rs0("id")
				Str = "登入成功"
				RetPage = Return
			'Else
			'	Str = "此帳號現在不可登入!"
			'End IF
		End IF
	End IF

	IF ""=retPage Then RetPage = "reformation.asp"

	AlertRedirect Str,RetPage
	Response.End
End IF

If func="mbrLogout" Then
	Session("MemberID") = NULL
	Session.Abandon

	AlertRedirect "登出完成","login.asp"
	Response.End
End IF

If func="mbrRefo" Then
  checkIsPost("reformation.asp")

	Passwd = Request("passwd")
	Title1 = Request("Title1")
	LastName = Request("LastName")
	FirstName = Request("FirstName")
	MidName = Request("MidName")
	Name = Request("Name")
	Company = Request("Company")
	Department = Request("Department")
	Title2 = Request("Title2")
	ComFax = Request("ComFax")
	ComTEL1 = Request("ComTEL1")
	ComTEL2 = Request("ComTEL2")
	TEL = Request("TEL")
	Mobile = Request("Mobile")
	OtherFax = Request("OtherFax")
	OtherTEL = Request("OtherTEL")
	RepTEL = Request("RepTEL")
	Email1 = Request("Email1")
	Email2 = Request("Email2")
	Email3 = Request("Email3")
	website = Request("website")

	IF ""=Passwd Then
		Passwd = ""
	Else
		Passwd = "passwd="&AdjStr(Passwd)&","
	End IF

	SQLSeg = "update Members set "&Passwd&"Title1="&AdjStr(Title1)&",LastName="&AdjStr(LastName)&",FirstName="&AdjStr(FirstName)&",MidName="&AdjStr(MidName)&",Name="&AdjStr(Name)&",Company="&AdjStr(Company)&",Department="&AdjStr(Department)&",Title2="&AdjStr(Title2)&",ComFax="&AdjStr(ComFax)&",ComTEL1="&AdjStr(ComTEL1)&",ComTEL2="&AdjStr(ComTEL2)&",TEL="&AdjStr(TEL)&",Mobile="&AdjStr(Mobile)&",OtherFax="&AdjStr(OtherFax)&",OtherTEL="&AdjStr(OtherTEL)&",RepTEL="&AdjStr(RepTEL)&",Email1="&AdjStr(Email1)&",Email2="&AdjStr(Email2)&",Email3="&AdjStr(Email3)&",website="&AdjStr(website)&" where id="&Session("MemberID")
	Conn.Execute(SQLSeg)

	AlertRedirect "資料修改完成","reformation.asp"
	Response.End
End IF

dbClose()
%>