Subversion Repositories DevTools

<%
'=====================================================
'|                                                   |
'|                              MEMBERS MENU                             |
'|                                                   |
'=====================================================
%>
<%
'------------ Variable Definition -------------
Dim parMemberMenu
'------------ Constants Declaration -----------
'------------ Variable Init -------------------
'parMemberMenu = QStrPar("membermenu")
'----------------------------------------------
%>
<%Sub Member_Menu( SSmenu )%>
<table width="100%" border="0" cellspacing="0" cellpadding="0">
  <%' Views submenu%>
  <%If SSmenu = "views" Then%>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_personal_view.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Personal View</a></td>
  </tr>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_public_view.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Public View</a></td>
  </tr>
  <%End If%>

  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif"><img src="images/bt_mydetails.gif" width="20" height="29" vspace="5" hspace="5"></td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_my_details.asp" class="form_wtxt_link">My Details</a></td>
  </tr>
  <%' Views submenu%>
  <%If SSmenu = "my details" Then%>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_my_details.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Account Details&nbsp;</a></td>
  </tr>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_change_password.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Change Password&nbsp;&nbsp;&nbsp;</a></td>
  </tr>
  <%End If%>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif"><img src="images/bt_my_roles.gif" vspace="5" hspace="5"></td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_my_roles.asp" class="form_wtxt_link">My Roles</a></td>
  </tr>
  <%If SSmenu = "my_roles" Then%>
  <tr>
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_my_roles.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Roles&nbsp;</a></td>
  </tr>
  <tr> 
    <td nowrap align="center" background="images/bg_member_dark.gif">&nbsp;</td>
    <td nowrap background="images/bg_member_dark.gif"><a href="members_my_access_details.asp" class="form_wtxt_link"><img src="images/h_wdot.gif" width="4" height="4" hspace="5" align="absmiddle" border="0">Access Details&nbsp;</a></td>
  </tr>
  <%End If%>
</table>
<%End Sub%>