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