Problmer med kolloner!
Hejsa.... Er ved at opbygge et website.... Har lidt problemer medat få designet til at se ud som jeg gerne vil!
Mit site ligger på www.hdmusic.dk
Jeg anvender en tabel til opbygning af de forskellige dele af sitet.
Jeg har problemer med at få kollonerne til at passe sammen.
Koller der placeres ved siden af hinanden passer som de skal, men jeg kan ikke få det til at passe ned ad siden.
(Dem vil jeg gerne have til at stå med samme mængde mellemrum, som dem ved siden af hinanden)
Så snart jeg laver en ny række, laves et alt for stort mellemrum mellem cellerne!
Jeg anvender lidt simpel CSS kode til at give cellerne farve.
Lige meget hvilken højde jeg angiver på cellerne, laves der kun farve til der hvor tekst eller billed i kollen slutter.
Kan man ikke ændre på det, så jeg kan angive at en kollone der skal være 250 i height skal være hvid hele vejen igennem!
Håbeer jeg har gjort mig forståelig nok!...
Jeg vedhæfter en stump af min kode herunder!
Er der nogen som kan fortælle mig hvad jeg gør forkert, eller om jeg måske skal have en helt anden indgangsvinkel!
Mvh.
Lasse
------------------------------------------
<!-- ######################################## -->
<!-- # Angiver oplysninger omkring # -->
<!-- # programmeringssprog. # -->
<!-- ######################################## -->
<% @ LANGUAGE = VBScript %>
<!-- ######################################## -->
<!-- # Henter Include Files # -->
<!-- ######################################## -->
<!--#include virtual="/includes/firmaoplysninger.asp"-->
<!--#include virtual="/includes/filoplysninger.asp"-->
<!--#include virtual="/includes/variabler.asp"-->
<!--#include virtual="/includes/farver.asp"-->
<!-- ######################################## -->
<!-- # Sætter farver hva. farver.asp # -->
<!-- ######################################## -->
<%
response.write "<body bgcolor=""" & mainbgcolor & """ text=""" & maintxtcolor & """ link=""" & mainlinkcolor & """ alink=""" & mainalinkcolor & """ vlink=""" & mainvlinkcolor & """>"
%>
<!-- ######################################## -->
<!-- # Laver CSS Scroll Bar # -->
<!-- ######################################## -->
<head>
<style type="text/css">
body {
scrollbar-arrow-color: ffff00;
scrollbar-base-color:ffff00;
scrollbar-dark-shadow-color: 000000;
scrollbar-track-color: 000033;
scrollbar-face-color: ffff00;
scrollbar-shadow-color: 000000;
scrollbar-highlight-color: ffff00;
scrollbar-3d-light-color: 000000;
}
<!-- ######################################## -->
<!-- # Sætter CSS Farver til Hx afsnit # -->
<!-- ######################################## -->
h1 {
color: #000000;
background-color: #FFFFFF;
}
h2 {
color: #000000;
background-color: #FF9966;
}
h3 {
color: #FFFFFF;
background-color: #808080 ;
}
</style>
<!-- ######################################## -->
<!-- # Skriver Browser Titel # -->
<!-- ######################################## -->
<title> <% response.write slogan %> </title>
</head>
<!-- ######################################## -->
<!-- # Starter selve siden. Opbygget med # -->
<!-- # tabeller # -->
<!-- ######################################## -->
<table>
<tr>
<!-- ######################################### -->
<!-- # Her er kode til visning af flash logo # -->
<!-- ######################################### -->
<body bgcolor="#333333">
<CENTER>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" id=test align=center width=100% height=80 codebase="http://active.macromedia.com/flash2/cabs/swflash.cab#version=4,0,0,0">
<param name="movie" value="logo.swf">
<param name="quality" value="high">
<param name="play" value="true">
<param name="loop" value="true">
<SCRIPT LANGUAGE=JavaScript>
<!--
var ShockMode = 0;
if (navigator.mimeTypes && navigator.mimeTypes["application/x-shockwave-flash"] && navigator.mimeTypes["application/x-shockwave-flash"].enabledPlugin) {
if (navigator.plugins && navigator.plugins["Shockwave Flash"])
ShockMode = 1;
} if (ShockMode ) {
document.write('<embed src="logo.swf"');
document.write(' width=934 height=80 quality="high" loop="true"');
document.write(' TYPE="application/x-shockwave-flash" PLUGINSPAGE="http://www.macromedia.com/shockwave/download/">');
document.write('</EMBED>');
} else if (!(navigator.appName && navigator.appName.indexOf("Netscape")>=0 && navigator.appVersion.indexOf("2.")>=0)) { document.write('<IMG SRC="nonflash.gif" width=934 height=80>');
}
//-->
</SCRIPT><NOEMBED><IMG SRC="nonflash.gif" width=934 height=80 BORDER=0></NOEMBED><NOSCRIPT><IMG SRC="nonflash.gif" width=934 height=80 BORDER=0></NOSCRIPT></OBJECT>
</CENTER>
</BODY>
<!-- ######################################## -->
<!-- # Her oprettes indhold menuen # -->
<!-- # Links likker i Menulinks.ini filen # -->
<!-- ######################################## -->
<center><body bgcolor="FFFFFF">
<APPLET CODE=MenuLynx.class ARCHIVE="MLynx.zip" ALIGN=top HEIGHT=30 WIDTH=640 NAME=MenuLynx>
<PARAM NAME="cabbase" VALUE="MLynx.cab">
<PARAM NAME="INIFile" VALUE="Menulinks.ini">
<PARAM NAME="FontName" VALUE="TimesRoman">
<PARAM NAME="FontStyle" VALUE="1">
<PARAM NAME="MenuColor" VALUE="333333">
<PARAM NAME="MenuText" VALUE="FFFFFF">
<PARAM NAME="NoLines" VALUE="1">
</APPLET>
</center>
</tr>
<tr>
<!-- ######################################### -->
<!-- # Kode, så 1 reele kollone ikke står # -->
<!-- # helt ud til venstre i skærmen # -->
<!-- ######################################### -->
<td width=2 height=200 valign="top">
</td>
<td width=200 height=250 valign="top">
<h3>
<!-- ######################################### -->
<!-- # Her er kode til visning af nyheder # -->
<!-- ######################################### -->
<body>
<font face="arial" size="3" color="#FFFF00"> </font>
<br>
<CENTER>HdMusic.dk - Nyheder</CENTER>
<%
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Const TristateUseDefault = -2
Const TristateTrue = -1
Const TristateFalse = 0
Dim objFS, objTextS, strLine, Besked
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Beskedsti=server.mappath("/news/forside.txt")
Set objTextS = objFS.OpenTextFile((beskedsti), ForReading, TristateFalse)
strLine = ""
Do While objTextS.AtEndOfStream <> True
strLine = objTextS.ReadLine
%>
<CENTER><font face="Verdana" size="1" ><%Response.Write "<BR><BR><BR>" & strLine%></font></CENTER>
<%
Loop
if strLine = "" then
strLine = "Ingen nyheder i øjeblikket."
%>
<CENTER><font face="Verdana" size="1" ><%Response.Write "<BR>" & strLine%></font></CENTER><%
End if
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
<br>
</body>
</h3>
<br>
</td>
<td width=600 height=100% valign="top">
<h1>
<!-- ######################################## -->
<!-- # Skriver Slogan til TopTekst # -->
<!-- ######################################## -->
<font face="arial" size="4" color="#FF6633">
<% response.write slogan %> <br>
</font>
<!-- ######################################## -->
<!-- # Henter og skriver tekstindhold # -->
<!-- ######################################## -->
<br>
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objTextS = objFS.OpenTextFile((forside_top), 1, TristateFalse)
strLine = ""
Do While objTextS.AtEndOfStream <> True
strLine = objTextS.ReadLine
%>
<font face="Verdana" size="1"><%Response.Write " " & strLine%></font>
<%
Loop
if strLine = "" then
strLine = ingentekst
%>
<CENTER><font face="Verdana" size="1" <%Response.Write "<BR>" & strLine%> </font> </CENTER>
<%
End if
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
<br>
</h1>
</td>
<!-- ######################################## -->
<!-- # Banner visning for HDMusic.dk # -->
<!-- ######################################## -->
<td width="200" height=250 valign="top">
<h1>
<center>
<object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000"
codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=5,0,42,0"
id="hdmusicbanner" width="145" height="82">
<param name="movie" <% response.write "value=""" & banner1 & """>" %>
<param name="bgcolor" value="#000000">
<param name="quality" value="high">
<param name="allowscriptaccess" value="samedomain">
<embed type="application/x-shockwave-flash"
pluginspage="http://www.macromedia.com/go/getflashplayer"
width="145" height="82"
name="hdmusicbanner" <% response.write "src=""" & banner1 & """>" %>
bgcolor="#000000" quality="high"
swLiveConnect="true" allowScriptAccess="samedomain"
</embed>
</object>
</center>
<br>
<br>
<!-- ######################################## -->
<!-- # Billede 1 vises # -->
<!-- ######################################## -->
<img border="0" <% response.write "src=""" & højrebillede1 & """ "%> width="141" height="103">
<br>
<br>
</h1>
</td>
<!-- ######################################### -->
<!-- # Kode, så sidste reele kollone ikke # -->
<!-- # står helt ud til højre i skærmen # -->
<!-- ######################################### -->
<td width=2 height=200 valign="top">
</td>
</tr>
<tr>
<!-- ######################################### -->
<!-- # Kode, så 1 reele kollone ikke står # -->
<!-- # helt ud til venstre i skærmen # -->
<!-- ######################################### -->
<td width=2 height=200 valign="top">
</td>
<td width=200 height=200 valign="top">
<h2>
<!-- ############################################ -->
<!-- # HOT OR NOT KODE "stadig under udvikling" # -->
<!-- ############################################ -->
<body>
<font face="arial" size="5" color="#990000">
<CENTER>HOT OR NOT</CENTER>
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Beskedsti=server.mappath("/news/forside.txt")
Set objTextS = objFS.OpenTextFile((beskedsti), ForReading, TristateFalse)
strLine = ""
Do While objTextS.AtEndOfStream <> True
strLine = objTextS.ReadLine
%>
<CENTER><font face="Verdana" size="1" color="#808080"><%Response.Write "<BR><BR><BR>" & strLine%></font></CENTER>
<%
Loop
if strLine = "" then
strLine = "Ingen nyheder i øjeblikket."
%>
<CENTER><font face="Verdana" size="1" color="#808080"><%Response.Write "<BR>" & strLine%></font></CENTER><%
End if
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
</body>
</h2>
</td>
<td width=600 height=200 valign="top">
<h1>
<!-- ######################################## -->
<!-- # Skriver Slogan til main Tekst # -->
<!-- ######################################## -->
<center> <% response.write slogan %> <br> </center>
<!-- ######################################## -->
<!-- # Henter og skriver tekstindhold # -->
<!-- ######################################## -->
<br>
<%
Set objFS=Server.CreateObject("Scripting.FileSystemObject")
Set objTextS = objFS.OpenTextFile((forside), 1, TristateFalse)
strLine = ""
Do While objTextS.AtEndOfStream <> True
strLine = objTextS.ReadLine
%>
<font face="Verdana" size="1"><%Response.Write " " & strLine%></font>
<%
Loop
if strLine = "" then
strLine = ingentekst
%>
<CENTER><font face="Verdana" size="1" <%Response.Write "<BR>" & strLine%> </font> </CENTER>
<%
End if
objTextS.Close
Set objTextS = Nothing
Set objFS = Nothing
%>
</h1>
</td>
<td width=200 height=200 valign="top">
<h1>
<!-- ######################################## -->
<!-- # Henter online bruger data fra # -->
<!-- # global.asa - skriver antal i browser #
<!-- ######################################## -->
<center>
<font face="Verdana" size="1"> Antal Online lige nu <br><br>
<font face="Verdana" size="1"><% Response.Write Application("BrugereOnline") %>
</center>
<br>
<br>
<!-- ######################################## -->
<!-- # Counter Funktion # -->
<!-- # Henter antal fra tekstfil, skriver # -->
<!-- # dette til browser, lægger et tal til # -->
<!-- # og lukker filen igen # -->
<!-- ######################################## -->
<%
Set File = CreateObject("Scripting.FileSystemObject")
Set Count = File.OpenTextFile(counterfil)
Counter = Cint(Count.ReadLine)
Count.Close
If Session("Counter") = "" Then
Session("Counter") = Counter
Counter = Counter + 1
Set Count = File.CreateTextFile(counterfil,true)
Count.WriteLine(Counter)
Count.Close
End If
Set File = Nothing
Set Count = Nothing
%>
<center>
<font face="Verdana" size="1" <% response.write color=""" & maintxtcolor2 & """%>> <width="141" height="140"> Vores site er besøgt <b><%=Counter%></b> gange siden D. 28/07/2004.
</center>
</h1>
</td>
</tr>
</table>
