ASP Menu med pic afslutning

- Som jeg forstår det, så skal du vel have én eller anden if-sætning, som kan hente et bestemt billede hvis en bestemt " - Sub" hentes...

Men kan du ikke prøve at vise mig noget kode?

\Dan

If Request.QueryString("UnID") Then
           
Set rstSimple3 = cnnSimple.Execute("SELECT * FROM Menu Where ParentID = " & Request.QueryString("UnID") & " ORDER By MenuID")

While Not rstSimple3.EOF

If CINT( Request.QueryString("UnID") ) = CINT ( rstSimple2.Fields("MenuID").Value ) Then
%>
<tr>
  <td width="17%"><img src="/io/Sub2.jpg" align="right" /></td>
  <td><h5 class="D">&nbsp;<a href="<%= rstSimple3.Fields("MenuSide").Value %><%=    rstSimple3.Fields("MenuSideID").Value %>"><%= rstSimple3.Fields("MenuNavn").Value %></a></h5></td>
</tr>                               
<%    End If                           

rstSimple3.MoveNext
Wend

rstSimple3.Close       
Set rstSimple3 = Nothing
               
End If

-- Denne styk kode, udskruver sub menuerne, og UNDER den sidste submenu. kunne jeg godt tænke mig at der kunen sættes et lilel slut pic ind. Så brugerne kan se at submenuerne går der til.

hmm...
der findes sikkert mange måder at gøre dette på, men umiddelbart så ville jeg da bare gøre sådan her:
If Request.QueryString("UnID") Then
           
Set rstSimple3 = cnnSimple.Execute("SELECT * FROM Menu Where ParentID = " & Request.QueryString("UnID") & " ORDER By MenuID")

While Not rstSimple3.EOF

If CINT( Request.QueryString("UnID") ) = CINT ( rstSimple2.Fields("MenuID").Value ) Then
%>
<tr>
  <td width="17%"><img src="/io/Sub2.jpg" align="right" /></td>
  <td><h5 class="D">&nbsp;<a href="<%= rstSimple3.Fields("MenuSide").Value %><%=    rstSimple3.Fields("MenuSideID").Value %>"><%= rstSimple3.Fields("MenuNavn").Value %></a></h5></td>
</tr>                               
<%
if rstSimple3.Fields("MenuSide").Value = "EnBestemtURL" then%>
<img src="AdressenPaaBilledet" border="0">
<% elseif rstSimple3.Fields("MenuSide").Value = "EnAndenURL" then%>
<img src="AdressenPaaEtAndetBillede" border="0">
<%
end if
End If                           

rstSimple3.MoveNext
Wend

rstSimple3.Close       
Set rstSimple3 = Nothing
               
End If

-------------
Så skal if-sætningen selvfølgelig lige rettes lidt til, til dine data...

\Dan