Centrering
på http://home1.stofanet.dk/snoopy/ loader main altså den lille side med nyhedssystemet i en iframe.. Men hvis du kigger nøje efter så er den lille tabel inden i ikke centeret .. Hvordan får jeg den til at blive det .... FIlen der loades derinde er sådan her ..------<% Response.Buffer = True %>-----
<!--#include file=\"smileys.asp\"-->
<html>
<head>
<title>Nyheder</title>
<style>
body {
background : 000000;
background-color: #486a8c;
FONT-FAMILY: Tahoma, Arial, Verdana, Helvetica, sans-serif;
FONT-SIZE: 8pt
color: white;
color: #000000;
font-size: 10px;
font-family: Tahoma;
scrollbar-face-color: \"#FFFFFF\";
scrollbar-shadow-color: \"#FFFFFF\";
scrollbar-highlight-color: \"#000000\";
scrollbar-3dlight-color: \"#000000\";
scrollbar-darkshadow-color: \"#000000\";
scrollbar-track-color: \"#FFFFFF\";
scrollbar-arrow-color: \"#000000\";
}
input,textarea,select,option {
font-family: verdana;
font-size: 10px;
background: #FFFFFF;
border:1px solid #111111;
color: #000000;
}
TD
{
COLOR: #000000; FONT-FAMILY: Verdana; FONT-SIZE: 8pt
}
SMALL
{
FONT-SIZE: 8pt
}
A:link
{
COLOR: #000033; TEXT-DECORATION: none
}
A:visited
{
COLOR: #003333; TEXT-DECORATION: none
}
A:hover
{
COLOR: #BFBFBF; TEXT-DECORATION: none
}
</style>
</head>
<body>
<% mode=request(\"mode\")
\'--- Kommentarer ---
if mode=\"kommentarer\" then %>
<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud
sql = \"SELECT * From nyheder Where ID = \" & Request.Querystring(\"ID\")
Set rs = Con.Execute(Sql)
%>
<table align=\"center\" width=\"443\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td width=\"476\" valign=\"top\">
<table width=\"451\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#6699CC\" width=\"3\"><%=(smileys(rs(\"smiley\")))%></td>
<td bgcolor=\"#6699CC\" width=\"430\"><table border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\" width=\"100%\">
<tr><td><%=rs(\"title\")%></td><td align=\"right\"><%= FormatDateTime(rs(\"dato\"),1)%> - <%= FormatDateTime(rs(\"dato\"),3)%></td></td></table></td>
</tr>
<tr>
<td bgcolor=\"#6699CC\" colspan=\"2\" width=\"441\"><%=rs(\"nyhed\")%><br><br>Postet af <em><%=rs(\"forfatter\")%></em></td>
</tr>
</table>
</table>
<br>
<center>
<font size=\"2\"><strong>- Kommentarer -</strong></font>
<br>
<%
\' Connection til database
Set Con = Server.CreateObject(\"ADODB.Connection\")
DBPath = \"DBQ=\" & server.mappath(\"db.mdb\")
Con.Open \"DRIVER={Microsoft Access Driver (*.mdb)}; \" & DBPath
\' Her hiver vi indholdet af databasen ud
sql = \"SELECT * From kommentarer Where nyhedsid = \" & Request.Querystring(\"id\")
Set rs = Con.Execute(Sql)
%>
<br>
<table width=\"221\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#6699CC\" align=\"center\" colspan=\"2\" width=\"486\">
<hr width=\"350\" color=\"#000000\" size=\"1\">
<% Do While Not rs.EOF %>
<table width=\"369\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td align=\"left\" valign=\"top\" width=\"150\"><strong>Dato</strong></td><td align=\"left\" valign=\"top\" width=\"380\"><%= FormatDateTime(rs(\"Dato\"),1)%> - <%= FormatDateTime(rs(\"Dato\"),3)%></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\"><strong>Navn</strong></td><td align=\"left\" valign=\"top\" width=\"380\">
<%
\' Hvis brugeren ikke har skrevet nogle email skriver den email\'en uden det bliver til et link
If rs(\"email\") = \"\" Then
Response.Write rs(\"navn\")
Else
Response.Write \"<a href=\"& \"mailto:\" & rs(\"email\") &\">\"& rs(\"navn\") &\"</a>\"
End If
%>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\"><strong>ICQ</strong></td><td align=\"left\" valign=\"top\" width=\"380\">
<%
\' Hvis brugeren ikke har skrevet noget icq nummer skriver den Ingen ICQ
If rs(\"icq\") = \"\" Then
Response.Write \"Ingen ICQ\"
Else
Response.Write \"<a href=\"& \"http://msg.mirabilis.com/scripts/contact.dll?msgto=\"& rs(\"icq\") &\">\"& rs(\"icq\") &\"</a>\"
End If
%>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" width=\"150\"><strong>Hjemmeside</strong></td><td align=\"left\" valign=\"top\" width=\"380\">
<%
\' Hvis brugeren ikke har skrevet nogle adresse skriver den Ingen Hjemmeside
If rs(\"url\") = \"http://\" Then
Response.Write \"Ingen Hjemmeside\"
Else
Response.Write \"<a href=\"& rs(\"url\") &\" target=\"\"_blank\"\">\"& rs(\"url\") &\"</a>\"
End If
%>
</td>
</tr>
<tr>
<td align=\"left\" valign=\"top\" colspan=\"2\" width=\"480\">
<br><%=(smileys(rs(\"kommentar\")))%>
<hr width=\"350\" color=\"#000000\" size=\"1\"></td>
</tr>
</table>
<%
rs.MoveNext
Loop
%>
</td>
</tr>
</table>
<br>
<table width=\"269\" border=\"0\" bgcolor=\"#000000\" cellspacing=\"1\" cellpadding=\"2\" class=\"ContentStyle\">
<tr>
<td bgcolor=\"#6699CC\" width=\"500\" align=\"center\"><strong>Skriv en Kommentar</strong></td>
</tr>
<td bgcolor=\"#6699CC\" colspan=\"2\" width=\"388\">
<form action=\"nyheder.asp?mode=kommentarer&id=<%=Request.Querystring(\"id\")%>\" method=\"post\">
<table width=\"90%\" align=\"center\" border=\"0\" cellspacing=\"10\" cellpadding=\"0\" class=\"ContentStyle\">
<tr>
<td align=\"left\" valign=\"top\">
<%
\'Åbner connection til databasen
Set conn = Server.CreateObject(\"ADODB.Connection\")
Conn.Open \"DRIVER={Microsoft Access Driver (*.mdb)};DBQ=\"&Server.MapPath(\"db.mdb\")
\'Hvis brugeren har submittet formularen
if Request.ServerVariables(\"REQUEST_METHOD\") = \"POST\" then
\'Tjecker om felterne er udfyld
if (Request.Form(\"navn\") <> \"\" AND Request.Form(\"kommentar\") <> \"\") then
\'Tilføjer brugeren til databasen
Set rs = Server.CreateObject(\"ADODB.Recordset\")
strSQL = \"select * from kommentarer\"
rs.Open strsql, conn, 1, 3
\'Tilføjer brugeren til databasen og sender ham/hende til login siden
rs.AddNew
rs(\"nyhedsid\") = Server.HTMLEncode(Request(\"nyhedsid\"))
rs(\"navn\") = Server.HTMLEncode(Request(\"navn\"))
rs(\"email\") = Server.HTMLEncode(Request(\"email\"))
rs(\"icq\") = Server.HTMLEncode(Request(\"icq\"))
rs(\"url\") = Server.HTMLEncode(Request(\"url\"))
rs(\"kommentar\") = Server.HTMLEncode(Request(\"kommentar\"))
rs(\"dato\") = Now()
rs.update
Response.Redirect(\"nyheder.asp?mode=kommentarer&id=\"& Request.Querystring(\"id\") &\"\")
rs.Close
set rs = nothing
else
Response.Write(\"<strong><font color=\'red\'>Du mangler at udfylde felter !</font></strong>\")
end if
end if
%>
</td>
</tr>
<tr>
<input type=\"hidden\" name=\"nyhedsid\" value=\"<%=Request.Querystring(\"id\")%>\">
<td align=\"left\" valign=\"top\"><b>Dit Navn <font color=\"#336699\">*</font></b></td><td align=\"right\"><input name=\"navn\" type=\"textbox\" class=\"InputTable\" size=\"40\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><b>Din E-mail</b></td><td align=\"right\"><input name=\"mail\" type=\"textbox\" class=\"InputTable\" size=\"40\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><b>Dit ICQ Nummer</b></td><td align=\"right\"><input name=\"icq\" type=\"textbox\" class=\"InputTable\" size=\"40\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><b>Din Hjemmeside</b></td><td align=\"right\"><input name=\"url\" type=\"textbox\" class=\"InputTable\" size=\"40\"></td>
</tr>
<tr>
<td align=\"left\" valign=\"top\"><strong>Kommentar <font color=\"#336699\">*</font></strong></td><td align=\"right\"><textarea cols=\"39\" rows=\"10\" name=\"kommentar\">-------
