Hej Bo!
Jeg har siddet og rodet med menuen her til formiddag, og jeg kan godt få den til at hente hoved menuen op fra databasen, men det dynamiske i menuen kan jeg ikke rigtig få til at virke.. Er det er det css filen <!--#include virtual="/css/scroll_bar.css" --> jeg mangler? Det er som om at jeg ikke rigtig kan downloade menuen fra dit link. de filer der var med var en dafailt fil, en DB og 4 pile, mangler der noget? Det skal siges at jeg laver det hele i Dreamweaver er det et problem ?
Min kode ser således ud pt. Hvad er problemet???
P[ forh[nd tak
Rudi.
<html>
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="#FFFFFF" text="#000000" marginwidth="0" marginheight="0" topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="0" cellpadding="0" align="center" background="/design/bojohansenadsldk/design1/ojne_stribe_0.2.jpg" height="8">
<tr>
<td><img src="/billeder/spacers/780x1_transperent.gif" width="780" height="1"><br>
<table width="100%" border="0" cellspacing="0" cellpadding="3" height="14">
<tr>
<td height="23"><font color="#FFFFFF"><img src="/billeder/spacers/1x1_transperent.gif" width="14" height="16"><a href="/"><font color="#FFFFFF">Hjem</font></a> | Windows |
|</font></td>
</tr>
</table>
</td>
</tr>
</table>
<table width="100%" border="0" cellspacing="0" cellpadding="0" height="100%">
<tr>
<td valign="top" height="421" colspan="2">
<br> <table width="95%" border="0" cellspacing="0" cellpadding="5" align="center">
<tr>
<td width="160" valign="top"> <img src="/billeder/spacers/1x1_transperent.gif" width="160" height="1"><br>
<%
strRoot = Request("root"): If strRoot = "" Or Not IsNumeric(strRoot) Then strRoot = -1 ' To avoid failiure in CInt()
strKat = Request("kat"): If strKat = "" Or Not IsNumeric(strKat) Then strKat = -1 ' - ditto -
strSubKat = Request("sub"): If strSubKat = "" Or Not IsNumeric(strSubKat) Then strSubKat = -1 ' - ditto -
Set Conn = Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\koekkengrej\varer.mdb"
Set Rs = Conn.Execute("SELECT * FROM kategorier WHERE parent=0 ORDER BY sort;") ' Top kategorier has 0 as Parent.
Do Until Rs.EOF
Select Case (Cint(strRoot) = Rs("id"))
Case True: Response.Write "<img src='left.gif'><a href='default.asp' class='cat'> "& Rs("navn") & "</a><br>" & vbCrLf
Case False: Response.Write "<img src='left.gif'><a href='default.asp?root=" & Rs("id") & "' class='cat'>"& Rs("navn") & "</a><br>" & vbCrLf
End Select
If (Cint(strRoot) = Rs("id")) Then
Set KatRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & Rs("id") & ";")
Set SubIDRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & KatRs("id") & ";")
Do Until KatRs.EOF
Select Case CInt(KatRs("hassub")) = 1
Case True: Response.Write "<span class='subcat'><img src='subclick.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubIDRs("id") & "'>" & KatRs("navn") & "</a></span><br>" & vbCrLf
Case False: Response.Write "<span class='subcat'><img src='items.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&showart=1'>" & KatRs("navn") & "</a></span><br>" & vbCrLf
End Select
If (Cint(strKat) = KatRs("id")) Then
Set SubRs = Conn.Execute("SELECT * FROM kategorier WHERE parent=" & strKat & ";")
Do Until SubRs.EOF
Response.Write "<span class='subcat'> <img src='sub.gif'> <a href='default.asp?root=" & strRoot & "&kat=" & KatRs("id") & "&subkat=" & SubRs("id") & "&showart=1'>" & SubRs("navn") & "</a></span><br>" & vbCrLf
SubRs.movenext
Loop
End If
KatRs.movenext
Loop
End If
Rs.movenext
Loop
Conn.Close
Set Conn = Nothing
%>
</td>
<td valign="top" width="100%"> En lille tester </td>
</tr>
</table></td>
<td valign="top" width="9%" background="/design/bo-johansen.adsl.dk/design1/right_name_gitter_background.gif" rowspan="3"><img src="/billeder/spacers/1x1_transperent.gif" width="80" height="452"></td>
</tr>
<tr>
<td valign="top" width="r%" class="alm_tekst">
<div align="center">
<% = time %>
<br>
<% = date %>
</div>
</td>
<td valign="top" width="100%" rowspan="2" class="alm_tekst"><font color="#999999">
<% Dim Side, QueryString, Vars, SideInfo
Side = Request.Servervariables("PATH_INFO")
Vars = Request.Querystring
If Vars = "" Then
SideInfo = Side & "#"
Else
SideInfo = Side & "?" & Vars & "#"
End If
%>
</font><a href="<% = sideinfo %>">Gå til toppen af siden</a></td>
</tr>
<tr>
<td valign="top" class="alm_tekst"><img src="/billeder/spacers/80x1_transperent.gif" width="80" height="1"></td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>
Ny bruger
Nybegynder
Opret
Preview
