'Function Click(Id,strName,strMenu)
'Dim strFileLocation

'If (UCase(strName)="PRESENTATIONS" and UCase(strMenu)="INFO CENTER") or (UCase(strName)="BROCHURES" and UCase(strMenu)="INFO CENTER") or (UCase(strName)="EMAIL TO US" and Ucase(strMenu)="CONTACT US") or (UCase(strName)="NEWS LETTER" and UCase(strMenu)="INFO CENTER") or (UCase(strName)="MANAGEMENT TEAM" and UCase(strMenu)="CORPORATE")Then 

   ' If UCase(strName)="PRESENTATIONS" and UCase(strMenu)="INFO CENTER" Then
'        location.href="DispalyPresentation.aspx"
'    End IF

'    If UCase(strName)="BROCHURES" and UCase(strMenu)="INFO CENTER" Then
'        location.href="DisplayBrochures.aspx"
'    End IF


'    If UCase(strName)="EMAIL TO US" and Ucase(strMenu)="CONTACT US" Then
'        location.href="mailto:indus@indus-systems.com"
'    End IF

'    If UCase(strName)="NEWS LETTER" and UCase(strMenu)="INFO CENTER" Then
'        location.href="ShowNewsLetter.aspx"
'    End IF
'    
'    If UCase(strName)="MANAGEMENT TEAM" and UCase(strMenu)="CORPORATE" Then
'        location.href="DisplayManagementTeam.aspx"
'    End IF

'Else
'    location.href="DynamicPageContent.aspx?SubId=" & Id
'end if
'    
'End Function