|
<%
Dim KTIPSLink, ARIEmpartWeb, ARILoginID, ARILoginPWD, ARIUserName, ARIExpDate, ARIDistID, ARIUserLevel, ARIEmpartLink
If Session("KTipsAccess") = "1" Then
'ARIEmpartWeb = "ktips.kcm-america.com/empartweb_50/createuser.asp"
'ARILoginID = Session("UserName")
'ARILoginPWD = Session("UserPassword")
'ARIUserName = Session("FirstName") & " " & Session("LastName")
'ARIExpDate = Session("ExpireDate")
'ARIDistID = Session("ARIDistributorID")
'ARIUserLevel = Session("ARIUserLevel")
'ARIEmpartLink = "?Username=" & ARIUserName & "&ExpDate=" & ARIExpDate & "&DistID=" & ARIDistID & "&UserLevel=" & ARIUserLevel & "&loginID=" & ARILoginID & "&loginPwd=" & ARILoginPWD
'KTIPSLink = ":: K-TIPS "
KTIPSLink = ":: K-TIPS "
Else
KTIPSLink = ""
End If
If (Session("AccessGroup") = "kcm_admin") Then
Response.Write(" Sitemap :: Contact Us :: Admin Center " & KTIPSLink)
ElseIf (Session("AccessGroup") = "kcm_employee") Then
Response.Write(" Sitemap :: Contact Us :: Employee Center " & KTIPSLink)
ElseIf (Session("AccessGroup") = "dlr_admin") Then
Response.Write(" Sitemap :: Contact Us :: Dealer Admin Center " & KTIPSLink)
ElseIf (Session("AccessGroup") = "dlr_employee") Then
Response.Write(" Sitemap :: Contact Us :: Dealer Center " & KTIPSLink)
ElseIf (Session("AccessGroup") = "cus_major_account") Then
Response.Write(" Sitemap :: Contact Us :: Major Accounts " & KTIPSLink)
ElseIf (Session("AccessGroup") = "cus_general") Then
Response.Write(" Sitemap :: Contact Us :: Customer Services ")
Else 'visitor
Response.Write(" Sitemap :: Contact Us :: Dealer Login ")
End If
%>
|
