asp/html problem..
HVad er fejlen her? på siden viser den ikke Tilføj knappen ?<!--#Include File="../inc.asp"-->
<HTML>
<HEAD>
<TITLE>Tilføj nyt menupunkt</TITLE>
</HEAD>
<BODY BGCOLOR="#FFFFFF">
<TABLE WIDTH="100%">
<TR><TD COLSPAN="2"><A HREF="default.asp">Tilbage</A></TD></TR>
<TR><TD COLSPAN="2"><HR></TD></TR>
<FORM ACTION="send.asp" METHOD="POST">
<TR><TD>Navn:</TD><TD><INPUT TYPE="TEXT" NAME="Navn"></TD></TR>
<TR><TD>Link:</TD><TD><INPUT TYPE="TEXT" NAME="Link"></TD></TR>
<TR><TD>Target:</TD><TD><INPUT TYPE="TEXT" NAME="Target"></TD></TR>
<TR><TD>Sortering:</TD><TD><INPUT TYPE="TEXT" NAME="Order"></TD></TR>
<TR><TD>Pladsering:</TD><TD>
<SELECT NAME="MenuID">
<OPTION VALUE="0">Hovedmenu</OPTION>
<OPTION>----------------</OPTION>
<%
Function BygUnderMenu(MenuID)
UnderSQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = " & MenuID & " ORDER BY [Order]"
Call OpenRS(Conntemp,UnderSQL,UnderRS)
While Not UnderRS.EOF
Response.Write "<OPTION VALUE=""" & UnderRS("ID") & """>" & Level & UnderRS("Navn") & "</OPTION>"
If CountSubs(UnderRS("ID")) > 0 Then
Level = Level + Level
BygUnderMenu UnderRS("ID")
End If
UnderRS.MoveNext
Wend
End Function
Function CountSubs(MenuID)
CountSQL = "SELECT ID FROM Menu WHERE MenuID = " & MenuID & ""
Call OpenRS(Conntemp,CountSQL,CountRS)
CountSubs = CountRS.RecordCount
End Function
LavDatabase Conntemp
SQL = "SELECT ID, Navn, Link FROM Menu WHERE MenuID = 0 ORDER BY [Order]"
Call OpenRS(Conntemp,SQL,RS)
Level = " "
RS.MoveFirst
While Not RS.EOF
Response.Write "<OPTION VALUE=""" & RS("ID") & """>" & RS("Navn") & "</OPTION>"
If CountSubs(RS("ID")) > 0 Then
BygUnderMenu RS("ID")
End If
Level = " "
RS.MoveNext
Wend
LukDatabase Conntemp
%>
</SELECT>
</TD></TR>
<TR><TD COLSPAN="2"><INPUT TYPE="SUBMIT" VALUE="Tilføj"></TD></TR>
</FORM>
</TABLE>
</BODY>
</HTML>
