parallon
07-16-2009, 06:42 PM
Hello all. I have a page header which loads tabs (images) based on user permissions. Each tab has a recordset tied to it, and if the result is true, then the tab is displayed. The problem lies in the fact that I have all the tabs within one cell in a table, that way if a user doesn't have permissions to a specific module, then there won't be a space where the tab should be; they just slide on over next to the others.
I tried to clean up the code to make it more readable in case I have to add more tabs in the future, but when I separate all the statements, I get spaces between the tabs. The only way to get rid of the spaces is to lump all the If/Then statements together, which is really hard to read. I have attached an image of the tabs and the spaces. Any suggestions???
Here is the code...
<a HREF="../../welcome.asp"><% IF Module = "Home" THEN %><img SRC="/Images/tabHome_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img src="/Images/tabHome_off.jpg" width="81" height="26" border="0" /><% END IF %></a>
<% If Not rsTimesheet.EOF Or Not rsTimesheet.BOF Then %><a HREF="../../Timesheet/PickWeek1.asp"><% IF Module = "Timesheet" THEN %><img SRC="/Images/tabTimesheet_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabTimesheet_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsTimesheet.EOF Or NOT rsTimesheet.BOF %>
<% If Not rsTimesheet2.EOF Or Not rsTimesheet2.BOF Then %><a HREF="../../Timesheet/PickWeek2.asp"><% IF Module = "Timesheet" THEN %><img SRC="/Images/tabTimesheet_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img src="/Images/tabTimesheet_off.jpg" width="81" height="26" border="0" /><% END IF %></a><% End If ' end Not rsTimesheet2.EOF Or NOT rsTimesheet2.BOF %>
<% If Not rsEquipment.EOF Or Not rsEquipment.BOF Then %><a HREF="../../Timesheet/EQ_Select.asp"><% IF Module = "Equipment" THEN %><img src="/Images/tabEquipment_on.jpg" width="81" height="26" border="0" /><% Else %><img src="/Images/tabEquipment_off.jpg" width="81" height="26" border="0" /><% End If %></a><% End If ' end Not rsEquipment.EOF Or NOT rsEquipment.BOF %>
<% If Not rsExpense.EOF Or Not rsExpense.BOF Then %><a HREF="../../Expense/expense_main.asp"><% IF Module = "Expense" THEN %><img SRC="/Images/tabExpense_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabExpense_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsExpense.EOF Or NOT rsExpense.BOF %>
<% If Not rsKB.EOF Or Not rsKB.BOF Then %><a HREF="../../KB/KB_Main.asp"><% IF Module = "KB" THEN %><img SRC="/Images/tabKB_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabKB_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsKB.EOF Or NOT rsKB.BOF %>
<% If Not rsAdmin.EOF Or Not rsAdmin.BOF Then %><a HREF="../../Admin/admin_main.asp"><% IF Module = "Admin" THEN %><img SRC="/Images/tabAdmin_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabAdmin_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsAdmin.EOF Or NOT rsAdmin.BOF %>
<% If Not rsSuperUser.EOF Or Not rsSuperUser.BOF Then %><a HREF="../../Admin/Module_Admin_Main.asp"><% IF Module = "SuperUser" THEN %><img src="/Images/tabSuperUser_on.jpg" width="81" height="26" border="0" /><% ELSE %><img SRC="/Images/tabSuperUser_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsSuperUser.EOF Or NOT rsSuperUser.BOF %>
<% If Not rsCodes.EOF Or Not rsCodes.BOF Then %><% IF Module = "Codes" THEN %><img SRC="/Images/tabCodes_on.jpg" WIDTH="81" HEIGHT="26" /><% ELSE %><img SRC="/Images/tabCodes_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %><% End If ' end Not rsCodes.EOF Or NOT rsCodes.BOF %>
<% If Not rsOJT.EOF Or Not rsOJT.BOF Then %><% IF Module = "OJT" THEN %><img SRC="/Images/tabOJT_on.jpg" WIDTH="81" HEIGHT="26" border="0" /><% ELSE %><a href="../../OJT/OJT_EmpList.asp"><img SRC="/Images/tabOJT_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /></a><% END IF %><% End If ' end Not rsOJT.EOF Or NOT rsOJT.BOF %>
<% If Not rsCustomers.EOF Or Not rsCustomers.BOF Then %><a HREF="../../Customers/Cust_List.asp"><% IF Module = "Customers" THEN %><img SRC="/Images/tabCustomers_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabCustomers_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsCustomers.EOF Or NOT rsCustomers.BOF %>
<a HREF="../../Customers/Quote_Main.asp"><% IF Module = "Quotes" THEN %><img SRC="/Images/tabQuotes_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabQuotes_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a>
<% If Not rsBBS.EOF Or Not rsBBS.BOF Then %><a HREF="../../BBS/default.asp"><% IF Module = "BBS" THEN %><img SRC="/Images/tabBBS_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabBBS_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsBBS.EOF Or NOT rsBBS.BOF %>
Thanks in advance,
Mike
I tried to clean up the code to make it more readable in case I have to add more tabs in the future, but when I separate all the statements, I get spaces between the tabs. The only way to get rid of the spaces is to lump all the If/Then statements together, which is really hard to read. I have attached an image of the tabs and the spaces. Any suggestions???
Here is the code...
<a HREF="../../welcome.asp"><% IF Module = "Home" THEN %><img SRC="/Images/tabHome_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img src="/Images/tabHome_off.jpg" width="81" height="26" border="0" /><% END IF %></a>
<% If Not rsTimesheet.EOF Or Not rsTimesheet.BOF Then %><a HREF="../../Timesheet/PickWeek1.asp"><% IF Module = "Timesheet" THEN %><img SRC="/Images/tabTimesheet_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabTimesheet_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsTimesheet.EOF Or NOT rsTimesheet.BOF %>
<% If Not rsTimesheet2.EOF Or Not rsTimesheet2.BOF Then %><a HREF="../../Timesheet/PickWeek2.asp"><% IF Module = "Timesheet" THEN %><img SRC="/Images/tabTimesheet_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img src="/Images/tabTimesheet_off.jpg" width="81" height="26" border="0" /><% END IF %></a><% End If ' end Not rsTimesheet2.EOF Or NOT rsTimesheet2.BOF %>
<% If Not rsEquipment.EOF Or Not rsEquipment.BOF Then %><a HREF="../../Timesheet/EQ_Select.asp"><% IF Module = "Equipment" THEN %><img src="/Images/tabEquipment_on.jpg" width="81" height="26" border="0" /><% Else %><img src="/Images/tabEquipment_off.jpg" width="81" height="26" border="0" /><% End If %></a><% End If ' end Not rsEquipment.EOF Or NOT rsEquipment.BOF %>
<% If Not rsExpense.EOF Or Not rsExpense.BOF Then %><a HREF="../../Expense/expense_main.asp"><% IF Module = "Expense" THEN %><img SRC="/Images/tabExpense_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabExpense_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsExpense.EOF Or NOT rsExpense.BOF %>
<% If Not rsKB.EOF Or Not rsKB.BOF Then %><a HREF="../../KB/KB_Main.asp"><% IF Module = "KB" THEN %><img SRC="/Images/tabKB_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabKB_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsKB.EOF Or NOT rsKB.BOF %>
<% If Not rsAdmin.EOF Or Not rsAdmin.BOF Then %><a HREF="../../Admin/admin_main.asp"><% IF Module = "Admin" THEN %><img SRC="/Images/tabAdmin_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabAdmin_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsAdmin.EOF Or NOT rsAdmin.BOF %>
<% If Not rsSuperUser.EOF Or Not rsSuperUser.BOF Then %><a HREF="../../Admin/Module_Admin_Main.asp"><% IF Module = "SuperUser" THEN %><img src="/Images/tabSuperUser_on.jpg" width="81" height="26" border="0" /><% ELSE %><img SRC="/Images/tabSuperUser_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsSuperUser.EOF Or NOT rsSuperUser.BOF %>
<% If Not rsCodes.EOF Or Not rsCodes.BOF Then %><% IF Module = "Codes" THEN %><img SRC="/Images/tabCodes_on.jpg" WIDTH="81" HEIGHT="26" /><% ELSE %><img SRC="/Images/tabCodes_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %><% End If ' end Not rsCodes.EOF Or NOT rsCodes.BOF %>
<% If Not rsOJT.EOF Or Not rsOJT.BOF Then %><% IF Module = "OJT" THEN %><img SRC="/Images/tabOJT_on.jpg" WIDTH="81" HEIGHT="26" border="0" /><% ELSE %><a href="../../OJT/OJT_EmpList.asp"><img SRC="/Images/tabOJT_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /></a><% END IF %><% End If ' end Not rsOJT.EOF Or NOT rsOJT.BOF %>
<% If Not rsCustomers.EOF Or Not rsCustomers.BOF Then %><a HREF="../../Customers/Cust_List.asp"><% IF Module = "Customers" THEN %><img SRC="/Images/tabCustomers_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabCustomers_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsCustomers.EOF Or NOT rsCustomers.BOF %>
<a HREF="../../Customers/Quote_Main.asp"><% IF Module = "Quotes" THEN %><img SRC="/Images/tabQuotes_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabQuotes_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a>
<% If Not rsBBS.EOF Or Not rsBBS.BOF Then %><a HREF="../../BBS/default.asp"><% IF Module = "BBS" THEN %><img SRC="/Images/tabBBS_on.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% ELSE %><img SRC="/Images/tabBBS_off.jpg" WIDTH="81" HEIGHT="26" BORDER="0" /><% END IF %></a><% End If ' end Not rsBBS.EOF Or NOT rsBBS.BOF %>
Thanks in advance,
Mike