I have updated to wordpress 2.0

It was so simple as it normally used to be. Single step. This is why I love wordpress so much..

Now I have to check why my plugin is not working in wp 2.0…

Heheheh :-p

Wow it is reall wonderful to be back with my family after a long time. Meeting all my friends and finding out what is happening. Yet to meet a lot of them in the coming week. No office and no tension about any project just relaxed with my family and spending sometime on internet..

I wish all my friends are here so that we can party all day and night. I am so greedy.

Wordpress 2.0 is out might be updating the blog with that. So bloggy ur engine is gonna be upgraded soon be happy for that

My friend Divya presented me a cool silver zippo. Wow it is so nice and it has my name ‘imthi’ engraved on it. It is so nice….no words to explain how much I love it ….

Paul Andrew requested me to update a advanced example of asp doi menu where sub menus are possible.

Sorry Paul I was very busy with my project and excuse my lazy nature.

The version what I have posted before is capable of doing them. It is a little trick we have to follow to generate the sub menus.

If you want you can download the code here.. Asp Doi Menu.


[asp] Dim objMenu
Dim mParent
Dim mSubParent
Set objMenu = New DoiMenu
‘Create Root Menu and get the return value by calling it as function
mParent = objMenu.Add (”",”Staff”,”0″,”",”",”Option Menu”)’
‘Use the return value to put the menu under the root
objMenu.Add mParent,”Home”,”",”a”,”/staff/member/index.asp”,”Home”
objMenu.Add mParent,”My Box”,”nmail.png”,”a”,”/staff/member/box/in.asp”,”Home”
objMenu.Add mParent,”Check Mail”,”",”a”,”/staff/member/mail.asp”,”Home”
objMenu.Add mParent,”My Profile”,”",”a”,”/staff/member/profile.asp”,”Home”
objMenu.Add mParent,”Change Password”,”",”a”,”/staff/member/cpass.asp”,”Home”
objMenu.Add mParent,”Logout”,”",”a”,”/staff/member/logout.asp”,”Logout”
‘little more weird stuff
mAssign = objMenu.Add (mParent,”Assign Permission”,”",”",”",”Assign Report”)
Dim Sub_Assign_Menu(9)
For I_D = 1 to 9
Sub_Assign_Menu(I_D) = objMenu.Add (mAssign,arrUserType(I_D),”",”",”",”Department ” & arrUserType(I_D))
Next
Set Dep_Rs = Server.CreateObject (”adodb.recordset”)
Dep_Rs.CursorLocation = adUseClient
Dep_Sql = “select users.id as Id, Profile.name, users.usertype from users,profile where users.id=profile.userid”
Dep_Rs.open Dep_Sql, Application(”db”),adOpenForwardOnly,adLockReadOnly
If Not Dep_Rs.EOF Then
Do While Not Dep_Rs.EOF
UId = cInt(Dep_Rs.Fields(”id”))
SName = Dep_Rs.Fields(”name”)
Dep = cInt(Dep_Rs.Fields(”usertype”))
Assign_Url = “/staff/member/report/assign.asp”
Assign_Url = AddVar(Assign_Url,”user”,trim(cStr(UId)))
XX= objMenu.Add (Sub_Assign_Menu(Dep),SName,”",”a”,objSes.SetTag(Assign_Url),”Assign for ” & SName)
Dep_Rs.MoveNext
Loop
Dep_Rs.Close
End If
[/asp]

There are some other objects which I have used in the code. U can just ignore them when u implement in your code.
Have Fun..

The first phase of the project which I was designing for the company is almost ready. It is now is testing and bug fixing stage. Soon the old system will be migrated to the new architecture and launched.