errore compatibilità?

**gaia2003** · 19-09-2005, 16:38

ciao a tutti.
ho creato una pagina asp (jscript) con una serie di campi presi da un db; separatamente una pagina di login per l'accesso ad un'area protetta.
il problema è che quando cerco di includere il codice della seconda nella prima mi da un errore:

[I]Microsoft JScript compilation error '800a03ec'

Expected ';'

/inc_common.asp, line 3

If isCommonCreated <> True Then
---^/I]
Questo il codice delle 2 pagine:

home page

<?xml version="1.0" encoding="iso-8859-1"?>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<%@LANGUAGE="JAVASCRIPT" CODEPAGE="1252"%>

<%
var prima = Server.CreateObject("ADODB.Recordset");
prima.ActiveConnection = MM_dbgiornale_STRING;
prima.Source = "SELECT * FROM primapagina";
prima.CursorType = 0;
prima.CursorLocation = 2;
prima.LockType = 1;
prima.Open();
var prima_numRows = 0;
%>

<%
var Repeat1__numRows = 3;
var Repeat1__index = 0;
ultimapagina_numRows += Repeat1__numRows;
%>

<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<title>titolopagina</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<link href="pagina.css" rel="stylesheet" type="text/css">

<script type="text/javascript" language="JavaScript1.2" src="stm31.js">
// Menù sport
</script>

<script language="javascript">
// Data e Ora
// -------------------------
gg = new
Array('Domenica','Lunedì','Martedì','Mercoledì','G iovedì','Venerdì','Sabato');
ms = new
Array('Gennaio','Febbraio','Marzo','Aprile','Maggi o','Giugno','Luglio','Agosto','Settembre','Ottobre ','Novembre','Dicembre');
function visua()
{
var ora = new Date();
var aa = ora.getDate();
var mm = ora.getMonth();
var yy = ora.getFullYear();
var oo = ora.getHours();
var mn = ora.getMinutes();
var sec = ora.getSeconds();
var dd = ora.getDay();
var aa2 = ((aa < 10) ? "0" : "");
var oo2 = ((oo < 10) ? "0" : "");
var mn2 = ((mn < 10) ? ":0" : ":");
var sec2 = ((sec < 10) ? ":0" : ":");
var Data = aa2 + aa +" "+ ms[mm] + " " + yy;
var hh = oo2 + oo - 12 + mn2 + mn + sec2 + sec;
var amopm="Am"
if (oo>12){
amopm="Pm"
}
if(document.all){
document.all.primo.innerHTML = gg[dd] + " " + Data + " - " + hh + " " +amopm;
}
else if(document.getElementById){
document.getElementById('primo').innerHTML = gg[dd] + " - " + Data + " - " + hh + " " +amopm;
}
else if(document.layers){
document.layers['primo'].document.write('<p id="primo" style="position:absolute; font-family:Verdana; font-size:10pt; font-weight:bold; color:#ffffff">Con Netscape: '+gg[dd] + " - " + Data + " - " + hh+ " " +amopm+'</p>');
document.layers['primo'].document.close()
}
window.setTimeout("visua()",1000);
}
</script>
</head>
<script language=javascript>
function apripopup(id)
{
window.open("dettaglio.asp?id="+id,"","width=650,h eight=500,resize=no,scrollbars=yes")
}
</script>
<body>
<table width="796" cellspacing="0" style="border-collapse: collapse; border: 1px solid #e71a1f; padding: 0" border="0" align="center">
<tr>
<td height="20" bgcolor="#FF0000" valign="top" class="txt_notizie2"> <a id="primo" style="position:absolute; font-family:Verdana; font-size:10pt; font-weight:normal; color:#ffffff"></a>
<script language="javascript">
window.setTimeout("visua()",1000);
</script>
</td>
</tr>
<tr>
<td><div align="center">[img]images/logo_giornaleIT.jpg[/img]
</div></td>
</tr>
<tr>
<td><table width="400" border="0" align="center" cellspacing="0" style="border-collapse: collapse; border: 1px solid #e71a1f; padding: 0">
<tr>
<td width="13%" class="tit_notizie2">ULTIMORA</td>
<td width="87%">

<div align="left">

<SCRIPT language="JavaScript">

</SCRIPT>
<applet code="Banners.class" codebase="http://www.adnkronos.com/applet" width=670 height=21 mayscript="true">
<param name="bgColor" value="#ffffff">
<param name="pause" value="5">
<param name="font" value="Verdana">
<param name="size" value="14">
<param name="fps" value="20">
<param name="cpf" value="6">
<param name="borderWidth" value="0">
<param name="borderColor" value="gray">
<param name="enter" value="ScrollLeft">
<param name="exit" value="ScrollLeft">
<param name="textColor" value="#000000">
<param name="repeat" value="5">
<param name="msgFile" value="http://www.adnkronos.com/applet/bannerNotizie.txt">
<param name="reloadInterval" value="50">
</applet>

</div></td>
</tr>
</table></td>
</tr>
<tr>

<td class="occhiello"><%=(prima.Fields.Item("occhiello ").Value)%>

</td>
</tr>
<tr>

<td valign="top" class="titolone"><%=(prima.Fields.Item("titolo").V alue)%></td>
</tr>
<tr>
<td><table width="796" border="0">
<tr>
<td width="420" valign="top" class="notizie"><div align="left">

[img]<% =(prima.Fields.Item([/img]" width="157" height="170" hspace="10" border="1" align="left" />
<%var testo=prima.Fields.Item("notizia").Value%> ....

pagina di login

<%
If Request.QueryString("step") = "2" THEN
'Rimuovo l'username e la password da caratteri illegali come per esempio '.
str_username = Replace(Request.Form("username"), "'", "''")
str_password = Replace(Request.Form("password"), "'", "''")

Set rs_login = Server.CreateObject ("ADODB.RecordSet")
strSQL = "SELECT * FROM tbl_authors WHERE name='" & str_username & "' AND pass='" & str_password & "'"
rs_login.open strSQL,adoCon

'Se la combinazione username e password non esiste, reindirizzo l'utente ad un altra pagina
If rs_login.EOF _
Or rs_login.BOF Then
Response.Redirect("login_errato.asp")
Else
'Scrivo l'user code nel cookie
Response.Cookies("Login")("userCode") = rs_login("code")
'Reindirizzo alla pagina appropriata
If adminEmail = "ss@ddad.it" AND str_password = "xxx" Then
Response.Redirect("setup.asp?setup=firstTime")
Else
Response.redirect("visualizza_profilo.asp")
End If
End If
End if
%>
<head>
<title><%=pageTitle%> .::. Login .::.</title>
<LINK href="css/file.css" type=text/css rel=stylesheet></head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<center>
<% If Request.QueryString("disp") = "login" Then %>

Grazie per esserti registrato, <%=Session("tmpUN")%>! Per loggarti inserisci la password</p>
<% Else %>

Se non sei registrato, registrati!</p>
<% End If %>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="100%" height="14">
<tr>
<td width="100%" height="14">
<p align="center">[img]images/login.gif[/img]</p>
</td>
</tr>
</table>
<form action="login.asp?step=2" method="post" onReset="return confirm('Cencello i campi?');">
<div align="center">
<center>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="300">
<tr>
<td>Username</td>
<td>
<input type="text" name="username" size="30" maxlength="80" value="<%If Request.QueryString("disp") = "login" Then Response.Write(Session("tmpUN")) Else Response.Write(str_users_name) End If%>"></td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td>Password</td>
<td><input type="password" name="password" size="30" maxlength="80"></td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td colspan="2">
<p align="center"><input type="submit" value="Login">
<input type="reset" value="Reset"> </p>
</td>
</tr>
<tr>
<td colspan="2" height="8"></td>
</tr>
<tr>
<td colspan="2">
<p align="center">Recupera password</p>
</td>
</tr>
</table>
</center>
</div>
</form>
</center>
<% Server.Execute("footer.asp") %>

Discussione: errore compatibilità?

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

errore compatibilità?

Permessi di invio