<%
'-----------------------------------------------
' .:: Developed ::.
' Module : Menu
' Start date : 31st Oct 2003
' End date : 31st Oct 2003
' By : Zuraida Mohammad Rezuan
' Teras Teknologi Sdn Bhd
'-----------------------------------------------
'---------- Get cookies ----------
Dim cksUserID,cksUserROC,goSeek
cksUserID = request.cookies("cUserID")
cksUserROC = request.cookies("cUserROC")
'--------- Get privilege ---------
if len(cksUserID) <> 0 then
Dim SQLpriv,RsPriv
SQLpriv = "SELECT user_type FROM acct_info WHERE userid='"&cksUserID&"'"
Set RsPriv = Server.CreateObject("ADODB.Recordset")
RsPriv.Open SQLpriv,connObj,3,3
end if
%>
DNX
<%if len(cksUserID) <> 0 then%>
<%goSeek = func1_menuName(RsPriv(0))
response.write(goSeek)%>
<%end if%>
|
<%
function func1_menuName(strPriv)
if strPriv = "0" then
func1_menuName = "| "&""&"Create user "
func1_menuName = func1_menuName & " "&"| Rate Maintenance "
func1_menuName = func1_menuName & " "&"| Feedback List "
func1_menuName = func1_menuName & " "&"| Create shipping Schedule "
elseif strPriv = "1" then
func1_menuName = "| Create user "&" "
elseif strPriv = "4" then
func1_menuName = ""
end if
end function
%> |