<%If Date < CDate("7 November 1999") Then 'Only display up to the final%> <%End If%> <%If UserID > 0 Then%> <%End If%>
Certified Professional  
 
News of the Day
This will be replaced by the latest and greatest news!
 
<% 'Get ALL Products and Display them here 'This hard coded here but should be retreived from a database %>
SafeWorX
  
Legacy
  
<% 'End Of Product Dropdown %>
Vendors
 •
 •
 •
 •
DB=<%=Application("DBType")%>
<% Dim I, iCount ' standard looping var ' Loop through the count integer showing each digit iCount = CLng(Application("Visits")) 'Just for Debugging 'iCount = ICount + 100000 For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "" Next %> <% 'Add the number of user currently on site iCount = CLng(Application("ActiveUsers")) 'iCount = ICount + 10 For I = 1 to Len(iCount) ' Output the IMG tag using the right digit Response.Write "" Next %>