codice:
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd">
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<title>[..:: www.Computerline.it ::..] Home</title>
<link href="Stili/stile.css" rel="stylesheet" type="text/css">
<link href="Stili/linkclass.css" rel="stylesheet" type="text/css">
<link href="Stili/txtclass.css" rel="stylesheet" type="text/css">
</head>
<%
Dim rs, sql
set rs = Server.CreateObject("ADODB.recordset")
sql = "SELECT * FROM homepage ORDER BY RAND()"
rs.Open sql, objCon
select case rs("id")
case 1%>
<%case 2%>
<%case 3%>
<%case 4%>
<%case else%>
<%end select%>
<script language="javascript">
function resizeTable(tabella) {
if (screen.height == 1024){
document.getElementById(tabella).style.height = screen.height-468;
}
if (screen.height == 768){
document.getElementById(tabella).style.height = screen.height-724;
}
if (screen.width == 800){
document.getElementById(tabella).style.width = 300;
}
}
function resizeTableLogin() {
if (screen.width == 800){
document.getElementById('login').style.width = 300;
}
}
</script>
<body lang="it" onload="resizeTable('tabellacentrale');resizeTableLogin();">
<!-- <script>document.write(screen.height)</script>
-->
<table width="100%" height="100%" border="0" cellpadding="0" cellspacing="0">
---- quello che ci sta in mezzo ---
</table>
<%
Set rs = Nothing
%>
</body>
</html>