|
<%Dim KTIPSLink, ARIEmpartWeb, ARILoginID, ARILoginPWD, ARIUserName, ARIExpDate, ARIDistID, ARIUserLevel, ARIEmpartLink
If Session("KTipsAccess") = "1" Then
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%>
|
