Salve a tutti
ho un problema di questo tipo
Active Server Pages, ASP 0141 (0x80004005)
Il comando @ può essere utilizzato una sola volta in una pagina ASP.
/menu.asp, line 1
Il file menu.asp è richiamato da login.asp in questo modo
<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<HTML>
<HEAD>
<script type="text/javascript" src="ajax.js"></script>
<script language="JavaScript">
function Controlla()
{
var Errore=0;
var numero = srv.idutente.value;
if (isNaN(numero))
{
alert("ATTENZIONE! Nel campo id utente devi inserire numeri ");
Errore = 1;
}
else if (srv.idutente.value == "")
{
alert('Inserire l\'utente');
Errore = 1;
}
else if (srv.password.value == "")
{
alert('Inserire la password di accesso');
Errore = 1;
}
else if (srv.reparto.value == "")
{
alert('Inserire il reparto');
Errore = 1;
}
if (Errore == 0)
{
srv.submit();
}
}
</script>
</head>
<TITLE>Login</TITLE>
<link rel="stylesheet" href="/css/base.css">
<body>
<%
dim errore
errore=Request.QueryString("errore")
If Request.QueryString("save")="yes" then
dim rs, sql
set RS=Server.CreateObject("ADODB.Recordset")
sql="Select id, Riparazioni, Produzioni, Report, Tabelle, Abilitazioni, Reparto from T_Utenti where id = " & cint(Request.form("idutente")) & " and password ='" & request.form("Password") & "'"
RS.ActiveConnection=Objconn
RS.Open(sql),Objconn,1,3
if rs.EOF or rs.BOF then%>
<div style="margin-left:46%;">[img]immagini/logo.jpg[/img]</div>
<p align="Center"><font face='Verdana, Tahoma' size=2 color="#CE2528">Utente o Password non riconosciuti</font></p>
<form id=form1 name=form1>
<input type="button" value="Indietro" align="absmiddle" style="margin-left:588px " onClick="javascript:history.back()" name="button">
</form> <%
else
session("UID")=RS.fields(0)
fnzRip=RS.fields(1)
session("fnzRip")=fnzRip
fnzProd=RS.fields(2)
session("fnzProd")=fnzProd
fnzRep=RS.fields(3)
session("fnzRep")=fnzRep
fnzTab=RS.fields(4)
session("fnzTab")=fnzTab
fnzAbi=RS.fields(5)
session("fnzAbi")=fnzAbi
'reparto=RS.fields(6)
reparto=Request.form("reparto")
session("reparto")=fncRdCodrep(reparto)
session("autorizzato")=True
%>
<%
end if
rs.Close
set rs=nothing
Le prime righe del file menu.asp
<% Response.Buffer=True%>
Le righe del file config.asp
Set objconn = Server.CreateObject("ADODB.Connection")
objconn.open = "Driver={MySQL ODBC 5.1 Driver}; Server=192.168.0.7; Database=powerone; UID=powerone; pwd=tanka"
conn=objconn
root=server.MapPath("/")
Session.Timeout=480
La cosa strana è che questo problema non me lo da se faccio girare il tutto a livello di dominio e non di cartella virtuale.
Qualcuno mi può aiutare ?
Rispondi quotando
