<%Option explicit%> <% '******************************************************* ' Login logic for customer Service Center ' Version 5,00 April 5, 2003 '******************************************************* dim sAction, strPassword, newuser dim UsePassword, msg UsePassword="Yes" ' set to "Yes" for pasword instead of e-mail If getconfig("init")="" then dim conn shopopendatabase conn shopclosedatabase conn end if if ucase(getconfig("xpassword"))<>"YES" Then UsePassword="No" ' set to "Yes" for pasword instead of e-mail end if SetSess "CurrentUrl","shopcustadminlogin.asp" SetSess "FollowonURL","shopcustadminlogin.asp" Serror=GetSess("Loginerror") ' possible mesage from login SetSess "Loginerror","" ' error from shop login NewUser=Request("New") if Newuser<>"" then ResetCustomerSessiondata Setsess "CustomerLogincid","" end if If GetSess("Customerid")<>"" and Getsess("Lastname") <>"" then If getsess("Customerlogincid")="" then SetSess "CustomerLoginCID",Getsess("Customerid") msg=getlang("langLoginSuccessful") else msg=getlang("langCustAlreadyloggedIn") end if response.redirect "shopcustadmin.asp?msg=" & server.urlencode(msg) end if AddForm ' Sub AddForm() dim caption, mylink ShopPageHeader SetSess "Customerlogincid","" if sError<> "" then shopwriteerror SError Serror="" end if shopwriteheader getlang("langCustAdminLogin") Shoploginform If getconfig("xAllowcustomerregister")="Yes" Then response.write ("

" & getlang("langMaillistSubject") & "

") end if ShopPageTrailer end sub %>