ciao atutti secondo voi dovè che sbaglio.....??? io propio non riesco a capire????
ciao e grazie
-----------------------------------------------------------------------------------------------------------------------------
ERRORE
Microsoft VBScript compilation error '800a03ea'
Syntax error
/film/index.asp, line 75
-------------------------------------------------------------------------------------------------------------
CODICE
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<!-- #include file = "log-in/adovbs.inc" -->
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Untitled Document</title>
<style type="text/css">
<!--
#login {
position:absolute;
width:200px;
height:115px;
z-index:1;
left: 10px;
top: 48px;
}
#loggato {
position:absolute;
width:200px;
height:115px;
z-index:2;
left: 10px;
top: 77px;
}
#corpo {
position:absolute;
width:621px;
height:115px;
z-index:3;
left: -2px;
top: 182px;
}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_findObj(n, d) { //v4.01
var p,i,x; if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
if(!(x=d
)&&d.all) x=d.all
; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i]
;
for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
if(!x && d.getElementById) x=d.getElementById(n); return x;
}
function MM_showHideLayers() { //v6.0
var i,p,v,obj,args=MM_showHideLayers.arguments;
for (i=0; i<(args.length-2); i+=3) if ((obj=MM_findObj(args[i]))!=null) { v=args[i+2];
if (obj.style) { obj=obj.style; v=(v=='show')?'visible':(v=='hide')?'hidden':v; }
obj.visibility=v; }
}
function tmt_DivAlign(theDiv,h,v,hPx,vPx){
var obj,fun,dw,dh,lw,lh,x,y;
fun = (document.getElementById) ? "document.getElementById" : "MM_findObj";
obj = (document.getElementById) ? document.getElementById(theDiv) : MM_findObj(theDiv);
if(obj){if(document.all){
dw = document.body.clientWidth;dh = document.body.clientHeight;}
else{dw = innerWidth;dh = innerHeight;}
if(document.layers){lw = obj.clip.width;lh = obj.clip.height;}else{
lw = obj.style.width.replace("px","");lh = obj.style.height.replace("px","");}
x = (document.layers) ? ".left" : ".style.left";
y = (document.layers) ? ".top" : ".style.top";
if(h == "l"){eval(fun+"('"+theDiv+"')"+x+"="+hPx);}
if(h == "c"){eval(fun+"('"+theDiv+"')"+x+"="+dw+"/2-"+lw+"/2");}
if(h == "r"){eval(fun+"('"+theDiv+"')"+x+"="+dw+"-"+lw+"-"+hPx);}
if(v == "t"){eval(fun+"('"+theDiv+"')"+y+"="+vPx);}
if(v == "m"){eval(fun+"('"+theDiv+"')"+y+"="+dh+"/2-"+lh+"/2");}
if(v == "b"){eval(fun+"('"+theDiv+"')"+y+"="+dh+"-"+lh+"-"+vPx);}}
}
//-->
</script>
</head>
<body onload="tmt_DivAlign('login','c','','0','0');tmt_DivAlign('loggato','c','','0','0');tmt_DivAlign('corpo','c','','0','0');
MM_showHideLayers('login','','<%= if Request("login") <> "" then login = Request("login") else login= "show" end if %>','loggato','','<%= if Request("loggato") <> "" then loggato= Request("loggato") else loggato="hide" end if%> ','corpo','','<%= if request("corpo") <> "" then corpo=Request("corpo") else corpo="show" end if%>')">
<div id="login">
<form action="log-in/verifica.asp" method="POST" target="_self" >
<table width="601" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="404" rowspan="4" align="center" valign="middle"><div align="right"><font size="7" face="Times New Roman">CATALOGO
FILM</font> </div></td>
<td width="25" rowspan="4" align="center" valign="middle"> </td>
<td width="70"><font face="Verdana" size="2">Username:</font></td>
<td width="102"> <input type="text" name="username" size="15"></td>
</tr>
<tr>
<td width="70" height="28"><font face="Verdana" size="2">Password:</font></td>
<td width="102"> <div align="left">
<input type="password" name="password" size="15">
</div></td>
</tr>
<tr>
<td height="37" colspan="3" align="center" valign="middle"> <p align="center">
<input name="B1" type="submit" >
</p></td>
</tr>
<tr>
<td height="37" colspan="3">
<div align="center"><font color="#333333" size="3" face="Times New Roman">Sei
il visitatore numero
<!--#include file="visite.asp" -->
</font> </div></td>
</tr>
</table>
</form>
</div>
<div id="loggato">
<table width="601" border="0" align="center" cellpadding="0" cellspacing="0">
<tr>
<td width="404" align="center" valign="middle"><div align="right"><font size="7" face="Times New Roman">CATALOGO
FILM</font> </div></td>
<td width="25" align="center" valign="middle"> </td>
<td colspan="2"><div align="center"><font color="#333333" size="3" face="Times New Roman">Sei
il visitatore numero
<!--#include file="visite.asp" -->
</font> </div> </td>
</tr>
</table>
</form>
</div>
<div id="corpo">
<%
username = Session("Username")
url_DB = "driver={Microsoft Access Driver (*.mdb)}; DBQ=D:\inetpub\webs\milanonightcom\mdb-database\catalogofilm.mdb"
Set Conn = Server.CreateObject("ADODB.Connection")
conn.Open url_DB
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM utenti where username = '" & username &"'"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
if not RecSet.Eof then
%>
<BR>
<%
RecSet.Close
Set RecSet = Nothing
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM film"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
record = RecSet.recordCount
%>
<div align="center" class="Stile1"><%=username%> nel catalogo sono inseriti <%=record%> film </div>
<BR>
<%
RecSet.Close
Set RecSet = Nothing
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM data "
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
<div align="center" class="Stile1">ed è aggiornato al <%=RecSet("data")%> alle ore : <%=RecSet("ora")%></div>
<%
ELSE
RecSet.Close
Set RecSet = Nothing
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT ID FROM film"
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
record = RecSet.recordCount
%>
<BR> <BR>
<div align="center" class="Stile1">nel catalogo sono inseriti <%=record%> film </div>
<BR>
<%
RecSet.Close
Set RecSet = Nothing
Set RecSet = Server.CreateObject("ADODB.Recordset")
SQL = "SELECT * FROM data "
RecSet.Open SQL, Conn, adOpenStatic, adLockOptimistic
%>
<div align="center" class="Stile1">ed è aggiornato al <%=RecSet("data")%> alle ore : <%=RecSet("ora")%></div>
<p>
<%
END IF
RecSet.Close
Set RecSet = Nothing
conn.Close
Set conn = Nothing
%>
</p>
</div>
</body>
</html>
Modificato da woz2600 il 24 ottobre 2005 18.13 -
