layout problem - skalering af baggrundsbillede
HejsaHer har vi formegentligt en klasikker.
Som udgangspunkt viser netscape 6.x det som det skal, bortset fra at baggrundsbilledet bliver tilet istedet for skaleret. Hvordan skalere man det i stedet for?
Ok, her er et link til det som det ser ud nu http://www.theghetto.net:8080/html/index2.asp
Kan man evt. fuske med noget jscript eller asp så man får en "dynamisk" bredde på billedet, alt efter browserens størrelse? (hvis man ikke kan lave det på anden vis)
Sourcen er lidt lang og fuld af alt muligt, men her er den alligevel:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN">
<html>
<head>
<title>InfWeb2002</title>
</head>
<body>
<!-- frame buster - code by Gordon McComb -->
<script language="JavaScript" type="text/javascript">
<!-- Hide script from older browsers
setTimeout ("changePage()", 3000);
function changePage() {
if (self.parent.frames.length != 0)
self.parent.location=document.location;
}
// end hiding contents --></script>
<%
strConnection = "driver={MySQL};server=localhost;uid=root;pwd=;database=INF2002"
Set adoDataConn = Server.CreateObject("ADODB.Connection")
adoDataConn.Open strConnection
function Two(S)
two = CStr(S)
while len(two)<2
two = "0" & two
wend
end function
function DatoTid()
da = Two(Year(Now)) & "-" & Two(Month(Now)) & "-" & Two(Day(Now))
ti = Two(Hour(Now)) & ":" & Two(Minute(Now)) & ":" & Two(Second(Now))
DatoTid = da & " " & ti
end function
function Dato()
dat = Two(Year(Now)) & "-" & Two(Month(Now)) & "-" & Two(Day(Now))
Dato = dat
end function
Response.Expires = -1000 'Makes the browser not cache this page
Response.Buffer = True 'Buffers the content so our Response.Redirect will work
Session("UserLoggedIn") = ""
%>
<table cellspacing="0" cellpadding="0" border="0" width="100%" background="orange_gradient.jpg">
<tbody>
<tr>
<td colspan="4" height="60%" width="60%">
<table cellpadding="5" cellspacing="0" border="0" width="100%">
<tbody>
<tr>
<td valign="Top" width="60%"><br>
<h1> <font face="Times New Roman, Times, serif">
InfWeb '02</font><br>
</h1>
<br>
</td>
<td valign="Top"><br>
<div align="Center"><img src="help.gif" alt="" width="91" height="91">
<br>
</div>
</td>
<td valign="Top"><br>
</td>
</tr>
<tr>
<td valign="Top">
<form action="search.asp" method="Post"><input type="submit" value="søg"><input type="text" name="searchstring"></form>
</td>
<td valign="Top"><br>
</td>
<td valign="Top"><br>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
<tr>
<td colspan="4">
<table cellpadding="0" cellspacing="0" border="0" width="100%">
<tbody>
<tr>
<td valign="Top" width="60">
<div align="Center"><img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
<img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
<img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
<img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
<img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
<img src="knap.jpg" alt="" width="50" height="50">
<br>
<br>
</div>
</td>
<td valign="Top" width="60%" bgcolor="#ffffff">Nyheder:<br>
<%
strQuery = "select * from news where dato > "&dato()&" ORDER BY `dato` DESC LIMIT 0, 4;"
Set rsData = adoDataConn.Execute(strQuery)
Do While Not rsData.EOF
%>
<P><B><%=rsData("overskrift").Value %></B><I> (<%=rsData("dato").value %>)</I><BR>
<%=rsData("indhold").Value %></P>
<% rsData.MoveNext
Loop
%>
<br>
</td>
<td valign="Top" width="10"><br>
</td>
<td valign="Top" bgcolor="#ffffff">Kalender:<br>
måned <br>
dage...<br>
dage....<br>
dage.....<br>
<br>
måned<br>
dage..<br>
dage..<br>
dage..<br>
<br>
<hr width="100%" size="1" noshade="">
<%
' login dimsen
If Request.Form("req") = "true" Then
CheckLogin
Else
ShowLogin
End If
sub ShowLogin
%>
<!---- VIS LOGIN Dimsen --->
<form method=post action=index.asp>
Login:<input type=text name=login><BR>
Password: <input type="password" name=password><BR>
<input type=hidden name="req" value="true">
<input type=submit value="Login!" /form>
<%
end sub
sub CheckLogin
strQuery ="SELECT ID, navn, password, login from person where login='"&Request.form("login")&"';"
set rsData = adoDataConn.execute(strQuery)
if not rsData.eof then
If (Request.Form("password") = rsData("password")) Then
Session("UserLoggedIn") = "true"
Session("UserID")=rsData("ID")
Response.write("Login fuldført<br>Velkommen "&rsData("navn"))
%><form method=post action=logout.asp><input type=submit value="Logout" /form><%
Else
Response.Write("Login Fejl, brugernavn eller password er forkert.<br><br>")
%><form method=post action=index.asp><input type=submit value="Forfra!" /form><%
End If
else
response.write("Login ("&request.form("login")&") Not found in user database")
%><form method=post action=index.asp><input type=submit value="Forfra!" /form><%
end if
End Sub
%>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>
