MrCiircle

------------------- MENU.ASP --------------------------

<% 

 site = "http://localhost"
 
 sub sitelink(site, page)
  link="<A HREF='" & site & page & "'>"
  response.write( link )
 end sub
 
 dim page( 33, 2  )
 
 page( 0, 0 )="pages/home.php"
 page( 0, 1 )="Home"
 page( 0, 2 )="<meta name='keywords' content=''> <meta name='description' content=''> <title> </title>"

 page( 1, 0 )="pages/domains.php"
 page( 1, 1 )="Domains"
 page( 1, 2 )="<meta name='keywords' content=''> <meta name='description' content=''> <title> </title>"

 ... ... 
  etc
 ... ...
%>



--------------- SHOWMENU.ASP ----------------

<!--#include file="menu.asp"-->
<%

    for each counter in page
	 if isEmpty( page( counter, 1 ) ) then 
	    link = "<A HREF='" & site & "/index.asp?page=" & counter & "'>" & page( counter, 1 ) & "</A>"
		response.write( link )
		end if
	next

%>