nogen som kan få det her til at funke???

jeg har sidde her og leget lidt med
<!--#INCLUDE FILE=\"dbconnect.asp\"-->
<LINK REL=\"stylesheet\" HREF=\"style.css\" TYPE=\"text/css\">
<%
Response.Buffer = true

sql = \"select * from tbloverskrift where aktiv = true\"
rs.open sql, conn
dim varTemp()
dim intCount
Response.Write \"\"
Response.Write \"\"
do while not rs.eof

Response.Write \"<table width=\'100%\' class=\'yberC\'><td width=\'100%\'><a class=\'menu\'>\" & rs(\"overskrift\") & \"\"
intcount = intcount +1
    redim preserve vartemp(intcount)
    vartemp(intcount) = rs(\"id\")
rs.movenext

loop
rs.close

dim i
Response.Write \"\"

for i = 1 to intcount
sql = \"select * from tblmpunkt where fk_overskrift = \" & vartemp(i)
rs.open sql, conn

Response.Write \"\"
do while not rs.eof

Response.Write \"<td width=\'100%\'><a class=\'menu\' href=\'\" & rs(\"url\") & \"\'>\" & rs(\"mpunkt\") & \"</a>\"

rs.movenext
loop
Response.Write \"\"
rs.close
next
Response.Write \"\"
%>

alså det er meningen at de forskellige underpunkter skal kommer under over punkterne, men jeg kan ikke rigtigt få det til at virke, kan nogen af jer ???