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.
RSS