<%
dim DBPATH, DBCON, DBRS, DBSQL
dim db_PATH, db_CON, db_RS, db_SQL
DBPATH = "D:\Inetpub\wwwroot\Sky-WorldForum\pchoops-com\database\navigation.mdb"
'--------------------------------------------------------------
Set DBCON = Server.CreateObject("ADODB.CONnection")
DBCON.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & DBPATH
Set DBRS = Server.CreateObject("ADODB.Recordset")
DBSQL = "select * from config order by menu_name asc"
DBRS.CuRSorType = 2
DBRS.LockType = 3
DBRS.Open DBSQL, DBCON
while not dbrs.eof
%>
<!--START CUSTOM NAVIGATION (DO NOT MODIFY THIS) [
http://pchoops.sky-world.net - http://pchoops.sky-world.net ]-->
<%
'menu_id = 33 characters
MENU_ID = dbrs("menu_id")
MENU_TITLE = dbrs("menu_name")
%>
<div class="mnpMenuRow" style="BORDER-LEFT-COLOR: #999999; BACKGROUND: white; OVERFLOW-X: hidden; BORDER-BOTTOM-COLOR: #999999; WIDTH: 176px; CURSOR: default; BORDER-TOP-COLOR: #999999; BORDER-RIGHT-COLOR: #999999" menu="<%=MENU_ID%>">
<img class="mnpMenuArrow" title style="LEFT: 166px; VISIBILITY: hidden" height="7" alt="*" src="
http://pchoops.sky-world.net/pchoops-com/images/arrowLTR.gif - http://pchoops.sky-world.net/pchoops-com/images/arrowLTR.gif " width="4" border="0">
<%=MENU_TITLE%></div>
<!--END CUSTOM NAVIGATION [
http://pchoops.sky-world.net - http://pchoops.sky-world.net ]-->
<%
db_PATH = "D:\Inetpub\wwwroot\Sky-WorldForum\pchoops-com\database\navigation.mdb"
'--------------------------------------------------------------
Set db_CON = Server.CreateObject("ADOdb.CONnection")
db_CON.Open "DRIVER={Microsoft Access Driver (*.mdb)}; dbQ=" & db_PATH
Set db_RS = Server.CreateObject("ADOdb.Recordset")
db_SQL = "select * from navigation where menu_id='" & menu_id & "' order by id desc"
db_RS.CuRSorType = 2
db_RS.LockType = 3
db_RS.Open db_SQL, db_CON
%>
All help is greatly appreciated, Right now what i have up there does work but i think that in the end it may end up crashing because it is not efficiently coded the way i think it probally should be.
