Nu ska menyn även vara dynamisk, med underrubriker som ska komma fram antingen genom att klicka på ett +, eller när man håller muspekaren över ett menyalternativ(Jag har inte bestämt mig än)
Nu är det så att själva asp-filen som skriver ut menyn ser ut så här:
<table width="120" border="0" align="left" cellpadding="3" cellspacing="2" class="menu">
<tr>
<td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='main.asp'"><strong><a href="main.asp" target="_self">
Startsidan</a></strong></td>
</tr>
<% 'IF nTYP = 0 And Session("VisaPris") <> False Then %>
<% IF Session("VisaPris") <> False Then %>
<tr>
<td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='forfragan.asp'"><strong><%= "<a href='forfragan.asp' target='_self'><font color='#999999'>e</font>Offert</a><br>" %></strong></td>
</tr>
<%
End IF
Sel = "Select * from Sidor Where Osynlig = False And Year(Datum) < 2100"
RecSet.Open Sel, Connect
if not recset.eof then
RecSet.Movefirst
Do Until RecSet.Eof
IF RecSet("StartSida") = False And UCASE(RecSet("Namn")) <> "GSTEXT" Then
%>
<tr>
<td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='page.asp?s=<%= RecSet("ID") %>';"><strong>
<%
Response.Write("<a href='page.asp?s=" & RecSet("ID") & "' target='_self'>" & RecSet("Namn") & "</a><br>")
%>
</strong></td>
</tr>
<%
End IF
RecSet.MoveNext
Loop
end if
RecSet.Close
%>
<tr>
<td align="left" valign="middle" class="MenuItem" style="cursor: hand;" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='stadmin/logout.asp';"><strong><a href="stadmin/logout.asp" target="_self" title="Logga alltid ut så att obehöriga inte kan visa sidan.">Logga
ut</a> </strong></td>
</tr>
<tr>
<td align="left" valign="middle"> <strong><br>
Kategorier</strong></td>
</tr>
<%
response.write("Grenställsoffert: " & Session("GrenstallOffert"))
' Kolla om användare har rättighet att se offert i menyn
IF Session("GrenstallOffert") = TRUE THEN
%>
<tr>
<td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" style="cursor: hand;" onClick="document.location='grenstall.asp'">· <a href="grenstall.asp" target="_self">Grenställ (offert)</a></td>
</tr>
<%
END IF
IF nTYP = 0 or nTYP = 2 Then
Sel = "Select * from Kategorier Where Osynlig = False Order By KategoriNamn"
RecSet.Open Sel, Connect
if not RecSet.Eof then
RecSet.Movefirst
Do Until RecSet.Eof
%>
<tr>
<td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='products.asp?cat=<%= RecSet("KategoriID") %>'" style="cursor: hand;">
<%
Response.Write("· <a href='products.asp?cat=" & RecSet("KategoriID") & "' target='_self'>" & RecSet("KategoriNamn") & "</a>") & vbcrlf
%>
</td>
</tr>
<%
RecSet.MoveNext
Loop
end if
RecSet.Close
End IF
IF Session("VisaPris") = False Then
%>
<tr>
<td><font size="1"><br>
Hej <%= Session("AnvNamn") %>, du är inloggad som gäst och inga priser kommer att
visas på sidan.</font></td>
</tr>
<% End IF %>
</table>
Koden ovan är den fungerande, och nu vill jag ändra denna så att den kollar efter Underrubriker också, och om dessa finns så ska dom finnas med i menyn, fast gömda tills användaren vill se dessa.
här har jag ändrat sql-satsen till en join, och så var tanken att kolla om det finns en underrubrik med ett parentID som är samma som KategoriID på de vanliga rubrikerna, om inte, så ska allt skrivas ut som det gör i koden ovan, annars läggs ett "+" till istället för en prick före menyalternativet, och sedan ska man kunna klicka fram underrubrikerna.
Sel = "Select Kategorier.KategoriID, Kategorier.KategoriNamn, Kategorier.KategoriBeskrivning, Kategorier.Osynlig, Kategorier.position from Kategorier LEFT JOIN Underkategorier ON Kategorier.KategoriID = Underkategorier.parentID Where Kategorier.Osynlig = False Order By Kategorier.position ASC"
RecSet.Open Sel, Connect
if not RecSet.Eof then
RecSet.Movefirst
Do Until RecSet.Eof
IF RecSet("Underkategorier.parentID") == null
%>
<tr>
<td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='products.asp?cat=<%= RecSet("KategoriID") %>'" style="cursor: hand;">
<%
Response.Write("· <a href='products.asp?cat=" & RecSet("KategoriID") & "' target='_self'>" & RecSet("KategoriNamn") & "</a>") & vbcrlf
%>
</td>
</tr>
<%
ELSE IF RecSet("Underkategorier.parentID") == RecSet("Kategorier.KategoriID")
%>
<tr>
<td align="left" valign="middle" class="MenuItem" onmouseover="this.style.backgroundColor='#FFFFFF';" onmouseout="this.style.backgroundColor='';" onClick="document.location='products.asp?cat=<%= RecSet("KategoriID") %>'" style="cursor: hand;">
<%
Response.Write("+ <a href='products.asp?cat=" & RecSet("KategoriID") & "' target='_self'>" & RecSet("Kategorier.KategoriNamn") & "</a>") & vbcrlf
%>
</td>
</tr>
<%
End IF
Koden jag har skrivit dit här ovan fungerar inte, och jag får inte ett enda felmeddelande när jag kodar i klassisk asp, jag måste gissa mig fram hela tiden. just nu får jag bara fram att sidan inte kan visas. Kan det vara sql-satsen, eller är det if-satserna som är fel?
Kan jag kanske hitta felmeddelanden om jag öppnar dessa filer i VS2010? Jag ska ta och testa det nu, återkommer straxt
Mvh Sanji
