Upgrade to Wordpress 2.0

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

Save trees. Trees saves.

Save trees .Tree Saves

Back in India

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. :-D

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 Zippo

My Zippo

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 …. :-)

ASP Doi Menu Example

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. :D

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:
  1. Dim objMenu
  2. Dim mParent
  3. Dim mSubParent
  4. Set objMenu = New DoiMenu
  5. 'Create Root Menu and get the return value by calling it as function
  6. mParent = objMenu.Add ("","Staff","0","","","Option Menu")'
  7. 'Use the return value to put the menu under the root
  8. objMenu.Add mParent,"Home","","a","/staff/member/index.asp","Home"
  9. objMenu.Add mParent,"My Box","nmail.png","a","/staff/member/box/in.asp","Home"
  10. objMenu.Add mParent,"Check Mail","","a","/staff/member/mail.asp","Home"
  11. objMenu.Add mParent,"My Profile","","a","/staff/member/profile.asp","Home"
  12. objMenu.Add mParent,"Change Password","","a","/staff/member/cpass.asp","Home"
  13. objMenu.Add mParent,"Logout","","a","/staff/member/logout.asp","Logout"
  14. 'little more weird stuff
  15. mAssign = objMenu.Add (mParent,"Assign Permission","","","","Assign Report")
  16. Dim Sub_Assign_Menu(9)
  17. For I_D = 1 to 9
  18. Sub_Assign_Menu(I_D) = objMenu.Add (mAssign,arrUserType(I_D),"","","","Department " & arrUserType(I_D))
  19. Next
  20. Set Dep_Rs = Server.CreateObject ("adodb.recordset")
  21. Dep_Rs.CursorLocation = adUseClient
  22. Dep_Sql = "select users.id as Id, Profile.name, users.usertype  from users,profile where users.id=profile.userid"
  23. Dep_Rs.open Dep_Sql, Application("db"),adOpenForwardOnly,adLockReadOnly
  24. If Not Dep_Rs.EOF Then
  25. Do While Not Dep_Rs.EOF
  26. UId = cInt(Dep_Rs.Fields("id"))
  27. SName = Dep_Rs.Fields("name")
  28. Dep = cInt(Dep_Rs.Fields("usertype"))
  29. Assign_Url = "/staff/member/report/assign.asp"
  30. Assign_Url = AddVar(Assign_Url,"user",trim(cStr(UId)))
  31. XX= objMenu.Add (Sub_Assign_Menu(Dep),SName,"","a",objSes.SetTag(Assign_Url),"Assign for " & SName)
  32. Dep_Rs.MoveNext
  33. Loop
  34. Dep_Rs.Close
  35. End If

Advanced Asp Doi Menu

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.. ;-)

Project Phase I complete

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.

Next Page »