<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN"
"[URL unfurl="true"]http://www.w3.org/TR/html4/loose.dtd">[/URL]
<html>
<head>
<title>Hooo Yeee</title>
<style type="text/css">
<!--
body {
background-color: #006699;
}
-->
</style>
<script language="JavaScript" type="text/JavaScript">
<!--
function MM_reloadPage(init) { //reloads the window if Nav4 resized
if (init==true) with (navigator) {if ((appName=="Netscape")&&(parseInt(appVersion)==4)) {
document.MM_pgW=innerWidth; document.MM_pgH=innerHeight; onresize=MM_reloadPage; }}
else if (innerWidth!=document.MM_pgW || innerHeight!=document.MM_pgH) location.reload();
}
MM_reloadPage(true);
//-->
</script>
</head>
<body>
<div id="LrBanner" style="position:absolute; left:8px; top:6px; width:1035px; height:88px; z-index:1; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000;">
<div align="center"></div>
</div>
<div id="LrProcura" style="position:absolute; left:8px; top:104px; width:225px; height:28px; z-index:2; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000;">
<form name="frmProcura" method="post" action="maincomprocura.asp">
<div align="right">
<br>
<input type="text" name="txtProcura">
<input type="submit" name="Submit" value="Procurar">
</div>
</form>
</div>
<div id="LrTitle" style="position:absolute; left:244px; top:103px; width:798px; height:25px; z-index:6; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000;">
<%
Dim adoConLogin
Dim strSQLLogin
Dim rsProcuraLogin
Set adoConLogin = Server.CreateObject("ADODB.Connection")
adoConLogin.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbs\users.mdb")
strSQLLogin = "SELECT top 1 User FROM Logins ORDER BY User ASC"
Set rsProcuraLogin = Server.CreateObject("ADODB.Recordset")
rsProcuraLogin.Open strSQLLogin, adoConLogin
BoasVindas(rsProcuraLogin("User"))
rsProcuraLogin.Close
adoconLogin.close
set rsProcuraLogin = Nothing
set adoConLogin = Nothing
%>
[Novos]</div>
<%
Dim adoConTop
Dim strSQLTop
Dim rsProcuraDVDTop
Dim ContadorTop
ContadorTop = 0
Set adoConTop = Server.CreateObject("ADODB.Connection")
adoConTop.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbs\dvdsempelicas.mdb")
strSQLTop = "SELECT top 10 Lista.Portugues, Lista.Chave FROM Lista ORDER BY Lista.Top DESC"
Set rsProcuraDVDTop = Server.CreateObject("ADODB.Recordset")
rsProcuraDVDTop.Open strSQLTop, adoConTop
%>
<div id="LrTop" style="position:absolute; left:8px; top:176px; width:225px; height:200px; z-index:3; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000;">
<div align="center">
<p><strong>.: Top 10 :</strong>.<br>
<%
Do While (not rsProcuraDVDTop.EOF) and (ContadorTop < 10)
response.Write("<br>")
response.Write("<a href='mostrafilme.asp?Num=" & rsProcuraDVDTop("Chave") & "' target='_blank'; style='text-decoration:none; color:#000000; font-size: x-small;'>" & rsProcuraDVDTop("Portugues") & "</a>")
rsProcuraDVDTop.MoveNext
ContadorTop = ContadorTop + 1
Loop
rsProcuraDVDTop.Close
adoconTop.close
set rsProcuraDVDTop = Nothing
set adoConTop = Nothing
%>
</div>
</div>
<%
Dim adoConRecente
Dim strSQLRecente
Dim rsProcuraDVDRecente
Set adoConRecente = Server.CreateObject("ADODB.Connection")
adoConRecente.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("dbs\dvdsempelicas.mdb")
strSQLRecente = "SELECT top 10 Lista.Portugues, Lista.Chave FROM Lista WHERE Lista.Chave ORDER BY Lista.Chave DESC"
Set rsProcuraDVDRecente = Server.CreateObject("ADODB.Recordset")
rsProcuraDVDRecente.Open strSQLRecente, adoConRecente
%>
<div id="LrRecente" style="position:absolute; left:8px; top:386px; width:225px; height:200px; z-index:4; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000;">
<div align="center">
<p><strong>.: Recentes :.</strong><br>
<%
Do While not rsProcuraDVDRecente.EOF
response.Write("<br>")
response.Write("<a href='mostrafilme.asp?Num=" & rsProcuraDVDRecente("Chave") & "' target='_blank'; style='text-decoration:none; color:#000000; font-size: x-small;'>" & rsProcuraDVDRecente("Portugues") & "</a>")
rsProcuraDVDRecente.MoveNext
Loop
rsProcuraDVDRecente.Close
adoconRecente.close
set rsProcuraDVDRecente = Nothing
set adoConRecente = Nothing
%>
</div>
</div>
<div id="LrMain" style="position:absolute; left:244px; top:141px; width:799px; height:513px; z-index:5; background-color: #FF9900; layer-background-color: #FF9900; border: 1px none #000000; color: #000000;">
<p>NOTICIAS</p>
<p>O Zé Barnabé tem um pé que cheira a cholé!</p>
</div>
<%
Sub BoasVindas (User)
Dim HoraFormatada
Dim NumeroHora
HoraFormatada = FormatDateTime(Time, 4)
NumeroHora = Left(HoraFormatada, 2)
If NumeroHora > 20 then
response.write("Boa noite, " & User)
else
If NumeroHora > 12 then
response.Write("Boa tarde, " & User)
else
response.Write("Bom dia, " & User)
end if
end if
End Sub
%>
</body>
</html>