Hej!
Kolla på http://tanneforsif.com.loopiadns.com
Om ni använder Firefox eller Mozilla så ser ni att hela mittenframen fylls ut som det ska. Men IE vägrar att fylla tabellen hela vägen ut....
Vad är fel? Har inget i css:en som bråkar heller... Här är koden:
Tacksam för hjälp!
Mvh,
Richard
<!--#include file="variables.asp"-->
<%
'//
'// Open database, declare variables.
'//
Set dbConn = Server.CreateObject("ADODB.Connection")
Set rsPage = Server.CreateObject("ADODB.Recordset")
dbConn.Open connString
dim strSQL
%>
<!--
**************************************************
*
**************************************************
-->
<html>
<head>
<title>Tannefors IF main</title>
<link href="style.css" rel="stylesheet" type="text/css" />
</head>
<body topmargin=0 leftmargin=0 rightmargin=0 bgcolor="#000000">
<table width="100%" height="100%" border="0" cellspacing="0" cellpadding="0" style="border: 1 solid #990000;">
<tr>
<td valign="top">
<table width="100%" border="0" cellspacing="1" cellpadding="1" align="center" style="border: 1 solid #990000;">
<tr bgcolor="#333333">
<td width="71%" colspan="2" style="border: 1 solid #990000;">
<%
'//
'// Open the main page and save info in variables.
'//
dim pageId
dim pageHeadline
dim pageContent
dim pageParent
dim pageASP
dim pageLink
IF request.QueryString("p") <> "" THEN
strSQL = "SELECT * FROM sitePages WHERE pageLink = '" &request.QueryString("p") &"'"
ELSE
strSQL = "SELECT * FROM sitePages WHERE pageLink = 'main'"
END IF
Set rsPage = dbConn.Execute(strSQL)
IF rsPage.EOF THEN
response.Redirect("default.asp")
ELSE
pageId = rsPage("pageId")
pageHeadline = rsPage("pageHeadline")
pageContent = rsPage("pageContent")
pageParent = rsPage("pageParent")
pageASP = rsPage("pageASP")
pageLink = rsPage("pageLink")
'//
'// Print the menu
'//
strSQL = "SELECT * FROM sitePages WHERE pageParent = 0"
Set rsPage = dbConn.Execute(strSQL)
IF rsPage.EOF THEN
response.write "Ingen meny"
ELSE
Do Until rsPage.EOF
' Response.Write "<a href=""default.asp?p=" &rsPage("pageLink") &""">" &rsPage("pageHeadline") &"</a><br />"
rsPage.MoveNext
Loop
END IF
'//
'// print sub menu
'//
strSQL = "SELECT * FROM sitePages WHERE pageParent = " &pageId
Set rsPage = dbConn.Execute(strSQL)
IF rsPage.EOF THEN
ELSE
' response.write "<p><b>" &pageHeadline &"</b><br />"
Do Until rsPage.EOF
' Response.Write "<a href=""default.asp?p=" &rsPage("pageLink") &""" class=""NotUnderline"">" &rsPage("pageHeadline") &"</a><br />"
rsPage.MoveNext
Loop
response.write "</p"
END IF
%>
</td>
</tr>
<tr>
<td bgcolor="#CCCCCC"% width="71%" style="border: 1 solid #990000;">
<%
'//
'// Print page.
'//
IF pageASP = 0 THEN
Response.Write pageContent
ELSE
ExecuteGlobal pageContent
END IF
END IF '// End mainpage.
'//
'// If subpage, link back to mainpage.
'//
IF pageParent <> 0 THEN
Set rsSubPage = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT * FROM sitePages WHERE pageId = " &pageParent
Set rsSubPage = dbConn.Execute(strSQL)
IF rsSubPage.EOF THEN
ELSE
response.write "<div align=""right""><a href=""default.asp?p=" &rsSubPage("pageLink") &"""> <br><< Tillbaka till " &rsSubPage("pageHeadline") &"</a></div><br />"
END IF
rsSubPage.Close
Set rsSubPage = nothing
END IF
%>
<%
'//
'// Close database.
'//
rsPage.Close
Set rsPage = nothing
dbConn.Close
Set dbConn = nothing
%>
</td>
<td bgcolor="#333333"% style="border: 1 solid #990000; width="29%""> </td>
</tr>
</table>
</td>
</tr>
</table>
</body>
</html>