<%Option explicit%>
<%
'*******************************************************
' Login logic for customer Service Center
' Version 4.50 May 2, 2002
'*******************************************************
dim sAction, strPassword, newuser
dim UsePassword, msg
UsePassword="Yes" ' set to "Yes" for pasword instead of e-mail
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=LangLoginSuccessful
else
msg=LangCustAlreadyloggedIn
end if
response.redirect "shopcustadmin.asp?msg=" & server.urlencode(msg)
end if
AddForm
'
Sub AddForm()
ShopPageHeader
SetSess "Customerlogincid",""
if sError<> "" then
response.write getconfig("xfont") & "" & SError & "
"
Serror=""
end if
%>
<%=getconfig("xfont")%><%=LangCustAdminLogin%>
<%
if ucase(getconfig("xpassword"))="YES" Then
Response.Write("")
Response.Write("")
else
Response.Write("")
end if
ShopPageTrailer
end sub
%>