Undgå at kalde på default.asp
Hvordan kan jeg ungå med min kode, at kalde på default.asp hele tiden ??-- Vil gerne have siden jeg ser på til at blive, imens jeg klikker på menuer, der har undermapper.
Det den går når jeg klikker på en menu, så henter den default siden frem og åbner samtidelig med underliggende mapper/menuer.
Skriv hvis I ikke kan forstå situationen....
-------------kode----------
Function VisMenuLinierne()
if Request.QueryString("MenuID") Then
Set rstSimple = cnnSimple.Execute("SELECT * FROM Menu Where ParentID = " & Request.QueryString("MenuID") & " ORDER By MenuID")
Do While Not rstSimple.EOF
%>
<tr>
<td height="20" colspan="2" class="MenuSystem"> <% VisArrowMenu() %><a href="<%= rstSimple.Fields("MenuLink").Value %>"><b> <%= rstSimple.Fields("MenuNavn").Value %></b></a></td>
</tr>
<%
If Request.QueryString("SubID") Then
Set rstSimple2 = cnnSimple.Execute("SELECT * FROM Menu Where ParentID = " & Request.QueryString("SubID") & " ORDER By MenuID")
Do While Not rstSimple2.EOF
If CINT( Request.QueryString("SubID") ) = CINT ( rstSimple.Fields("MenuID").Value ) Then
%>
<tr>
<td background="/system/Sub.jpg" width="16%"> </td><td class="MenuSystem"><a href="<%= rstSimple2.Fields("MenuLink").Value %>"><%= rstSimple2.Fields("MenuNavn").Value %></a></td>
</tr>
<%
End If
rstSimple2.MoveNext
Loop
rstSimple2.Close
Set rstSimple2 = Nothing
End If
rstSimple.MoveNext
Loop
rstSimple.Close
cnnSimple.Close
Set cnnSimple = Nothing
Set rstSimple = Nothing
End If
End Function
-----------------------kode slut-----------
Nogen som har kode sig væk fra det problem ??
