 |
<%
'***************************************
' Copyright (c) 2005, 2006, 2007 WebFirm
' http://www.webfirm.com.au
' Ph: +61 + 1 08 9221 8077
'
' File: _inc-nav.asp
' Author: Steven Taddei
' Modified By: Steven Taddei
' Date Created: 08/06/2007
' Last Modified: 08/06/2007
'
' Purpose:
' This Page is the navigation include.
' it drags the Equipment Catalogue out
' of the database
'***************************************
DIM NAV_oConn
DIM NAV_sSQL
DIM NAV_rsCategory
'Opens connection to the database
SET NAV_oConn = SERVER.CREATEOBJECT("ADODB.Connection")
NAV_oConn.OPEN SESSION("g_sDataConnStr_Container")
%>
- Home
- Profile
- Equipment Catalogue
<%
'Lookup the Menu Table
NAV_sSQL = "SELECT * FROM Category WHERE ParentID=0 ORDER BY Rank"
SET NAV_rsCategory = SERVER.CREATEOBJECT("ADODB.RecordSet")
NAV_rsCategory.ACTIVECONNECTION = NAV_oConn
NAV_rsCategory.CURSORTYPE = 3 'adOpenStatic
NAV_rsCategory.CURSORLOCATION = 3 'adUseClient
NAV_rsCategory.LOCKTYPE = 3 'adLockOptimistic
NAV_rsCategory.OPEN NAV_sSQL
SET NAV_rsCategory.ACTIVECONNECTION = NOTHING
'Release the database connection
NAV_oConn.CLOSE
SET NAV_oConn = NOTHING
'Make sure we actually have some data
IF ( NOT NAV_rsCategory.EOF ) THEN
'Loop through all the records
DO WHILE ( NOT NAV_rsCategory.EOF )
'Make sure we actually have some data
IF ( NOT ISNULL(NAV_rsCategory("CategoryName")) AND LEN(TRIM(NAV_rsCategory("CategoryName")))>0 ) THEN
%>
- "><%=NAV_rsCategory("CategoryName")%>
<%
END IF
NAV_rsCategory.MOVENEXT
LOOP
NAV_rsCategory.CLOSE
END IF
%>
- Service
- Modification/Additions
- Storage/Handling
- Client Login
- Contact Us
<%
'Release the database connection
SET NAV_rsCategory = NOTHING
%>
|
|