Cecco BS
03-07-2003, 13:51
Questa pagina ASP dipende da un modulo. Ha sempre funzionato finchè non ho deciso di introdurre la funzione INNER JOIN (che, scritta nella stessa modalità, funzionava senza problemi in un'altra pagina).
L'errore restituito è, relativo alla linea della stringa di connessione:
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Il nome di colonna 'COD_CLI' è ambiguo. :confused: :confused:
<%
id=Request.QueryString("T_ANACLI")
Dim conn1, RS, login, password, codclie
login=Request.Form("login")
password=Request.Form("password")
cod_cli=Request.Form("codclie")
Session("cod_cli")=cod_cli
set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=SQLOLEDB;SERVER=ATSSERVER;DATABASE=db;UID=xxx;PWD=xxx"
Set RS = conn1.Execute("SELECT * FROM tabella1 INNER JOIN tabella2 ON tabella1.cod_cli = tabella2.cod_cli WHERE num_scheda='"&num_scheda&"' AND cod_cli='"&cod_cli&"' AND password='" &password& "' AND login='" &login& "'")
'Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE codcli='"&cod_cli&"' AND password='" &password& "' AND login='" &login& "'")
'if not RS.EOF Then
'if Rs("password")=password AND ("cod_cli")=cod_cli AND ("login")=login then
'Session("cod_cli")=Rs("cod_cli")
'end if
'end if
%>
<head>
<title>GESTIONE ARCHIVI DAL WEB</title>
</head>
<body>
<p align="center"><font face="Verdana" size="2"><b>GESTIONE ARCHIVI DAL WEB</b></font></p>
<p align="left"><font face="Verdana" size="2">Cliente: <%=rs("nome") %>, codice cliente # <%=rs("cod_cli") %></font></p>
'<%
'if Session("cod_cli")="" then
'%>
<p align="left"><font face="Verdana" size="2"><b>Schede</b></font><p align="left">
<p align="left">&nbsp;<ul>
<li>
<p align="left"><font face="Verdana" size="2">ORDINI ATTIVI</font></li>
<li>
<p align="left"><font face="Verdana" size="2">ORDINI EVASI</font></li>
<li>
<p align="left"><font face="Verdana" size="2">MAGAZZINO PRODOTTI FINITI</font></li>
</ul>
<p align="left">&nbsp;</p>
<p align="left"><font face="Verdana" size="2">&lt;<a href="loginprogetto.asp">indietro</a>&gt;</font></p>
</body>
</html>
<html>
'<%
'else Response.Redirect("errore.htm")
'%>
'<% Response.Redirect("tabelle.asp") %>
'<%
'end if
'%>
L'errore restituito è, relativo alla linea della stringa di connessione:
Microsoft OLE DB Provider for SQL Server (0x80040E14)
Il nome di colonna 'COD_CLI' è ambiguo. :confused: :confused:
<%
id=Request.QueryString("T_ANACLI")
Dim conn1, RS, login, password, codclie
login=Request.Form("login")
password=Request.Form("password")
cod_cli=Request.Form("codclie")
Session("cod_cli")=cod_cli
set conn1=Server.CreateObject("ADODB.Connection")
conn1.Open "Provider=SQLOLEDB;SERVER=ATSSERVER;DATABASE=db;UID=xxx;PWD=xxx"
Set RS = conn1.Execute("SELECT * FROM tabella1 INNER JOIN tabella2 ON tabella1.cod_cli = tabella2.cod_cli WHERE num_scheda='"&num_scheda&"' AND cod_cli='"&cod_cli&"' AND password='" &password& "' AND login='" &login& "'")
'Set RS = conn1.Execute("SELECT * FROM T_ANACLI WHERE codcli='"&cod_cli&"' AND password='" &password& "' AND login='" &login& "'")
'if not RS.EOF Then
'if Rs("password")=password AND ("cod_cli")=cod_cli AND ("login")=login then
'Session("cod_cli")=Rs("cod_cli")
'end if
'end if
%>
<head>
<title>GESTIONE ARCHIVI DAL WEB</title>
</head>
<body>
<p align="center"><font face="Verdana" size="2"><b>GESTIONE ARCHIVI DAL WEB</b></font></p>
<p align="left"><font face="Verdana" size="2">Cliente: <%=rs("nome") %>, codice cliente # <%=rs("cod_cli") %></font></p>
'<%
'if Session("cod_cli")="" then
'%>
<p align="left"><font face="Verdana" size="2"><b>Schede</b></font><p align="left">
<p align="left">&nbsp;<ul>
<li>
<p align="left"><font face="Verdana" size="2">ORDINI ATTIVI</font></li>
<li>
<p align="left"><font face="Verdana" size="2">ORDINI EVASI</font></li>
<li>
<p align="left"><font face="Verdana" size="2">MAGAZZINO PRODOTTI FINITI</font></li>
</ul>
<p align="left">&nbsp;</p>
<p align="left"><font face="Verdana" size="2">&lt;<a href="loginprogetto.asp">indietro</a>&gt;</font></p>
</body>
</html>
<html>
'<%
'else Response.Redirect("errore.htm")
'%>
'<% Response.Redirect("tabelle.asp") %>
'<%
'end if
'%>