menu og dynamisk side
Jeg er ved at lave en side med en dynamisk menu som skal kobles sammen med nogle htm filer - som volder mig nogle problemer!MENU siden ser således ud:
<% response.buffer = true
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("dataentry/menu.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
on error resume next
set rstest=server.CreateObject("ADODB.Recordset")
rstest.open "SELECT * FROM tblTOPMENU ",conn
test = 0
do while not rstest.eof
test = test + 1
rstest.movenext
loop
if test < 1 then msg ="<TD VALIGN='top' COLSPAN='7'><FONT FACE='arial, helvetica, verdana' COLOR='#000000' SIZE='2'>Der er ingen produkter oprettet endnu</FONT></TD>" end if
%>
<body leftmargin="0" topmargin="0" marginwidth="0" marginheight="0">
<table width="150" border="0" cellspacing="0" cellpadding="0">
<tr>
<td align="left"> </td>
</tr>
<tr>
<td align="left">
<!------- MENU -------->
<%
set rs=server.CreateObject("ADODB.Recordset")
rs.open "SELECT * FROM tblTOPMENU where aktiv='Y' and sprog='DK' order by raekkefoelge ASC ",conn
%> <%
f = 0
farve = "#ffffff"
do while not rs.eof %>
</td>
</tr>
<tr>
<td height="20" align="left"> <% if rs("ELx") = "Y" Then %> <A HREF="http://<%=rs("EL")%>" target="_blank"><br>
<%=rs("menu")%></A>
<% else if rs("MAILx") = "Y" Then %>
<A HREF="mailto:<%=rs("MAIL")%>"> <%=rs("menu")%></A>
<% else if rs("MENUx") = "Y" Then %>
<A HREF="main.asp?id=<%=rs("Id")%>">
<% =rs("menu") %>
</A>
<% end if
end if
end if %>
</td>
</tr>
<% rs.MoveNext()
loop
%>
</table>
MAIN page ser sådan ud!!!!
<% response.buffer = true
set conn=server.createobject("adodb.connection")
cnpath="DBQ=" & server.mappath("dataentry/menu.mdb")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)}; " & cnpath
on error resume next
%>
<%
SQL = "SELECT * FROM forside"
Set rs = Conn.execute(SQL)
%>
<HTML><HEAD><TITLE><% =rs("titletop") %></TITLE>
<LINK href="style.css" type=text/css
rel=stylesheet>
</HEAD>
<BODY background="<% =rs("billedebaggrund") %>" leftMargin=0 topMargin=0 scroll="no">
<TABLE width="100%" height="100%" border=0 cellPadding=0 cellSpacing=0 >
<TBODY>
<TR>
<TD vAlign=top>
<TABLE cellSpacing=0 cellPadding=0 width=745 border=0>
<TBODY>
<TR>
<TD width=150 height=95></TD>
<TD width=600> <P align=center><B><FONT face=Verdana color=#ffff00
size=3> </FONT></B></P></TD>
</TR>
</TBODY>
</TABLE>
<TABLE cellSpacing=0 cellPadding=0 width=745 border=0>
<TBODY>
<TR>
<TD width=150 align="center" vAlign=top>
<!--#include file="menu.asp" -->
<TABLE width="100%" border=0>
<TBODY>
</TBODY>
</TABLE><!--#include file="submenu.asp" -->
</TD>
<TD vAlign=top width=600>
<%
SQL = "SELECT * FROM main WHERE id= '" & request.querystring("id") & "'"
Set rs = Conn.execute(SQL)
%>
<br>
<Div> <IFRAME SRC="../users/test/<% =rs("tekst") %>.htm" HEIGHT=410 WIDTH=850 FRAMEBORDER=0 SCROLLING="auto"></IFRAME></Div>
HER ER POBLEMET SÅ!!!!
Min IFRAME ville jeg gerne have til at hente <% =rs("tekst") %> i tabellen tblTOPMENU i stedet for i tabellen MAIN......
Men det kan jeg bare ikke få hen....
