<%@ Control language="vb" debug="true"%>

<script language="VB" runat="server">

Sub Page_Load(Sender As Object, E As EventArgs)
	if not page.ispostback then
		update()	
	end if
End Sub


sub update()
   Select Case session("currentPage")
      Case 0
         phtitle.text = "Project Status"
         phdesc.text = "This Page is used to show at a glance the current status of a selected project."

      Case 1
         phtitle.text="Staff Information"
         phdesc.text="This Page is used to show at a glance all of the staff allocated to a single stage or all stages of a selected project."

      Case 2
         phtitle.text="Task Information"
         phdesc.text="This Page is used to show at a glance all of the tasks allocated to a single stage or all stages of a selected project."

   End Select

end sub

</script>


<table width="200" cellspacing="0" cellpadding="0" border="0">
<tr>
<td colspan="2" bgcolor="#6495ed" height="26">
<font face="Arial" size="-1" color="#FFFFFF">&nbsp;<b>ProjectPal Help</b></font>
</td>
</tr>
<tr>
<td valign="top">
<table width="200" height="200" cellpadding="2" cellspacing="3"  border="1" bordercolor="#6495ed" >
<tr>
<td align="left" valign="top" bgcolor="#f5f5f5">
<asp:label id="phtitle"	runat="server" text="" font-bold="true"/>
<hr>
<asp:label id="phdesc"	runat="server" text="" />
</td>
</tr>
<tr>
<td hieght="60" align="center" valign="top" bgcolor="#f5f5f5" >
<font size="-3" color="#808080">&copy Copyright, New Riders Publishing, 2001.</font>
</td>
</tr>
</table> 
</td>
</tr>
</table>
