Hvis jeg fjerner html body i min include fil, så forsvinder noget af mine styles til de links.
Samt jeg kan bare stadigvæk ikke lige se hvad jeg skal ændre i for at få min menu include fil til af passe ind uden den rykker sig...
Min vurdering.asp side ser sådan her ud:
<%@LANGUAGE="VBSCRIPT"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "
http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd"><html xmlns="
http://www.w3.org/1999/xhtml"><!-- #include file="admin/DBconn.asp" -->
<!-- #include file="config/config.asp" -->
<!-- #include file="inc/include.asp" -->
<%
Dim rsWeblog
Dim rsComments
Dim rsCat
%>
<html>
<head>
<meta http-equiv="Content-Language" content="da">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Basket-Kort.dk - Vurdering</title>
<META NAME="author" CONTENT="
www.basket-kort.dk"> <META NAME="Description" CONTENT="Danmarks største basketkortmarket med købog bytte for private">
<META NAME="Keywords" CONTENT="brugt, køb, salg, bytte, handel, sælges, købes, handelsplads, søges, tilbydes, byttes">
<META NAME="Robots" CONTENT="ALL">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<LINK REL="shortcut icon" HREF="
http://www.basket-kort.dk/basket.ico"></head><body topmargin="0" leftmargin="0" rightmargin="0" bottommargin="0">
<%
Set conn = Server.CreateObject("ADODB.Connection")
Conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ="&Server.MapPath("../db/db.mdb")
%>
<table border="0" width="823" id="table1" style="background-image: url('design/bg.jpg'); background-repeat: no-repeat" height="857">
<tr>
<td height="149" width="230" valign="top"> </td>
<td height="149" width="583" colspan="2" valign="top">
</td>
</tr>
<tr>
<td height="38" width="230"> </td>
<td height="38" width="92"> </td>
<td height="38" width="487"><!<!--#include file="include/top_menu.asp"--></td>
</tr>
<tr>
<td height="42" width="230" valign="bottom"> </td>
<td height="42" width="583" colspan="2" valign="bottom">
<p align="center"><img src="logo/vurdering.gif" alt="1234" width="496" height="44"></p>
<p align="center">
<% if request.querystring("menu") = "" then %>
<% end if %>
<% if request.querystring("menu") <> "" and request.querystring("sub") = "" then %>
<%
sql = "SELECT * FROM menu WHERE menu = '" & request.querystring("menu") & "' and billede <> ''"
set rs = Conn.Execute(sql)
%>
<%
if rs.EOF or rs.BOF then%>
<img border="0" src="logo/intetlogo.jpg" height="44">
<%else%>
<img border="0" src="logo/<%=rs("billede")%>" height="44"><%
end if
%>
<% end if %>
<% if request.querystring("menunavn") <> "" and request.querystring("sub") <> "" then %>
<%
sql = "SELECT * FROM menu WHERE menunavn = '" & request.querystring("menunavn") & "' and subnavn = '" & request.querystring("sub") & "' and billede <> ''"
set rs = Conn.Execute(sql)
%>
<%
if rs.EOF or rs.BOF then%>
<img border="0" src="logo/intetlogo.jpg" height="44">
<%else%>
<img border="0" src="logo/<%=rs("billede")%>" height="44"><%
end if
%>
<% end if %>
</td>
</tr>
<tr>
<td height="531" width="230" valign="top">
<table border="0" width="193" id="table3">
<br>
<tr><td height="56">
<br>
<b><font face="Arial" size="2"><span style="text-decoration: none">
<font color="#000000"><a href="default.asp">
<span style="text-decoration: none"><font color="#000000">Forside</font></span></a></font></span><a href="default.asp"><span style="text-decoration: none"><font color="#000000">n</font></span></a><br>
</font></b><br>
<font face="Arial">
<span style="text-decoration: none; font-weight: 700">
<font size="2" color="#000000">
<a href="default.asp?menu=1" style="text-decoration: none">
<font color="#000000">Nyheder</font></a></font></span><font size="2"><br>
</font></font></td></tr><%
sql = "SELECT DISTINCT menunavn, menu FROM menu"
Set rs = Conn.Execute(sql)
Do While Not rs.EOF
%>
<tr><td>
<a href="default.asp?menu=<% =rs("menu") %>" style="text-decoration: none">
<span style="text-decoration: none; font-weight: 700">
<font size="2" color="#000000"><font face="Arial"><% =rs("menunavn") %></font></font></span></a><font face="Arial" size="2">
</font>
</td></tr>
<%
If rs("menu") = request.querystring("menu") Then
sql2 = "SELECT DISTINCT subnavn, menu, menunavn FROM menu WHERE menu = '" & request.querystring("menu") & "' order by subnavn asc"
set rs2 = Conn.Execute(sql2)
Do While Not rs2.EOF
%>
<tr><td>
<font face="Arial"><font size="2"> - </font> <a href="default.asp?menu=<%=rs2("menu")%>&menunavn=<%=rs("menunavn")%>&sub=<%=rs2("subnavn")%>" style="text-decoration: none">
<b>
<font size="2" color="#000000"><%=rs2("subnavn")%></font></b></a><font size="2">
</font></font>
</td></tr>
<%
rs2.MoveNext
Loop
End If
rs.MoveNext
Loop
%>
</table></td>
<td height="531" width="583" colspan="2" align="center" valign="top"><table width="200" border="0" align="left">
<tr>
<td><%
Dim rsA
Set rsA = ObjConn.Execute("SELECT * FROM vurdering")
%>
<h2><%=rsA("headline")%></h2>
<%=rsA("vurdering")%></td>
</tr>
</table>
<p align="left"></p>
<p align="left"> </p>
</td>
</tr>
<tr>
<td width="813" colspan="3">
<p align="center"><font face="Arial" size="2">Copyright © 2004-2006 Basket-Kort.dk </a>
</font></td>
</tr>
</table>
</body>
</html>
<%
Call CloseDatabase
%>
