Problema asp-access

**andy77** · 18-01-2006, 19:22

Salve a tutti,
sono un neofita di asp e mi trovo ad affrontare un problema riguardo un trasferimento di dominio.
Il sito, che non è di mia creazione, è realizzato con asp e database access.

Sto provando in locale il funzionamento ma ho riscontarto il seguente problema:

ADODB.Connection (0x800A0BB9)
Gli argomenti non sono di tipo valido, non sono compresi nell'intervallo consentito o sono in conflitto.
/euroclamp/flashEuro.asp, line 113

Vi posto il codice di flashEuro.asp:

codice:

<%@ Language=VBScript %>

<% if StartPageProcessing() Then Response.End() %>
<form name="thisForm" METHOD="post">
<html>
<head>
<script ID="serverEventHandlersVBS" LANGUAGE="vbscript" RUNAT="Server">
Sub thisPage_onenter()
setPage "dataUltimoAggiornamento"
contenuti.open 
if flashEuro.firstEntered then
	session("lingua")="italiano"
end if
if Request.QueryString("lingua")<>"" then
	session("lingua")=Request.QueryString("lingua")
end if
session("pagina")="flashEuro.asp"
End Sub
sub setPage(Page)
	sql="SELECT * from contenuti where pagina='" & page & "'"
	contenuti.setSQLText(sql)
end sub
</script>
<link REL="stylesheet" TYPE="text/css" HREF="Style.CSS">
</head>
<body>
<!--METADATA TYPE="DesignerControl" startspan
<OBJECT classid="clsid:8CC35CD6-E98B-11D0-B218-00A0C92764F5" id=PageObject1 style="LEFT: 0px; TOP: 0px" VIEWASTEXT>
	<PARAM NAME="ExtentX" VALUE="4233">
	<PARAM NAME="ExtentY" VALUE="1270">
	<PARAM NAME="State" VALUE="(ObjectName_Unmatched=\qflashEuro\q,NavigateMethods=(Rows=0),ExecuteMethods=(Rows=0),Properties=(Rows=0),References=(Rows=0))"></OBJECT>
-->
<SCRIPT LANGUAGE=JavaScript RUNAT=SERVER>
/* VIPM PAGE DESCRIPTION
<DSC NAME="flashEuro">
   <OBJECT NAME="navigate">
      <METHOD NAME="show" SCENARIOS="CLIENT,SERVER"/>
   </OBJECT>
</DSC>
VIPM PAGE DESCRIPTION */
</SCRIPT>
<%
Sub [_PO_OutputClientCode]()
%>
<SCRIPT LANGUAGE=JavaScript>
if (typeof flashEuro_onbeforeserverevent == 'function' || typeof flashEuro_onbeforeserverevent == 'unknown')
	thisPage.advise('onbeforeserverevent', 'flashEuro_onbeforeserverevent()');
flashEuro = thisPage;
flashEuro.location = "flashEuro.asp";
flashEuro.navigate = new Object;
flashEuro.navigate.show = Function('thisPage.invokeMethod("", "show", this.show.arguments);');
</SCRIPT>
<%
End Sub
%>
<SCRIPT LANGUAGE=JavaScript RUNAT=SERVER>
function _PO_getClientAccessor(serverValue)
{
	if (serverValue == null)
		return 'null';
	return 'unescape("' + escape(serverValue) + '")';
}
function _PO_ctor()
{
	thisPage.getClientAccessor = _PO_getClientAccessor;
flashEuro = thisPage;
flashEuro.location = "flashEuro.asp";
flashEuro.navigate = new Object;
flashEuro.navigate.show = Function('return;');
thisPage._objEventManager.adviseDefaultHandler('flashEuro','onenter');
thisPage._objEventManager.adviseDefaultHandler('flashEuro','onexit');
thisPage._objEventManager.adviseDefaultHandler('flashEuro','onshow');
	thisPage.registerVTable(thisPage.navigate, PAGE_NAVIGATE);
}
function _PO_dtor()
{
if (thisPage._redirect == '')
	_PO_OutputClientCode();
}
</SCRIPT>

<!--METADATA TYPE="DesignerControl" startspan
<OBJECT id=contenuti style="LEFT: 0px; TOP: 0px" classid="clsid:9CF5D7C2-EC10-11D0-9862-0000F8027CA0" VIEWASTEXT>
	<PARAM NAME="ExtentX" VALUE="12197">
	<PARAM NAME="ExtentY" VALUE="2090">
	<PARAM NAME="State" VALUE="(TCConn_Unmatched=\qConnection1\q,TCDBObject_Unmatched=\qSQL\sStatement\q,TCDBObjectName_Unmatched=\q\q,TCControlID_Unmatched=\qcontenuti\q,TCPPConn_Unmatched=\qConnection1\q,TCPPDBObject=\qTables\q,TCPPDBObjectName=\qcontenuti\q,RCDBObject=\qRCSQLStatement\q,TCSQLStatement_Unmatched=\q\q,TCCursorType=\q3\s-\sStatic\q,TCCursorLocation=\q3\s-\sUse\sclient-side\scursors\q,TCLockType=\q3\s-\sOptimistic\q,TCCacheSize_Unmatched=\q10\q,TCCommTimeout_Unmatched=\q10\q,CCPrepared=0,CCAllRecords=1,TCNRecords_Unmatched=\q10\q,TCODBCSyntax_Unmatched=\q\q,TCHTargetPlatform=\q\q,TCHTargetBrowser_Unmatched=\qServer\s(ASP)\q,TCTargetPlatform=\qInherit\sfrom\spage\q,RCCache=\qRCBookPage\q,CCOpen=0,GCParameters=(Rows=0))"></OBJECT>
-->

<SCRIPT LANGUAGE="JavaScript" RUNAT="server">
function _initcontenuti()
{
	var DBConn = Server.CreateObject('ADODB.Connection');
	DBConn.ConnectionTimeout = Application('Connection1_ConnectionTimeout');
	DBConn.CommandTimeout = Application('Connection1_CommandTimeout');
	DBConn.CursorLocation = Application('Connection1_CursorLocation');
DBConn.Open(Application('Connection1_ConnectionString'), Application('Connection1_RuntimeUserName'), Application('Connection1_RuntimePassword'));
	var cmdTmp = Server.CreateObject('ADODB.Command');
	var rsTmp = Server.CreateObject('ADODB.Recordset');
	cmdTmp.ActiveConnection = DBConn;
	rsTmp.Source = cmdTmp;
	cmdTmp.CommandType = 1;
	cmdTmp.CommandTimeout = 10;
//Errore del DTC Recordset. Impossibile ottenere il testo del comando.
	cmdTmp.CommandText = '';
	rsTmp.CacheSize = 10;
	rsTmp.CursorType = 3;
	rsTmp.CursorLocation = 3;
	rsTmp.LockType = 3;
	contenuti.setRecordSource(rsTmp);
	if (thisPage.getState('pb_contenuti') != null)	contenuti.setBookmark(thisPage.getState('pb_contenuti'));
}
function _contenuti_ctor()
{
	CreateRecordset('contenuti', _initcontenuti, null);
}
function _contenuti_dtor()
{
	contenuti._preserveState();
	thisPage.setState('pb_contenuti', contenuti.getBookmark());
}
</SCRIPT>

<Table align=center>
<tr>
  <td align=center><p align="left" class="intestazione">
<% if session("lingua")="italiano" then %>
Data ultimo aggiornamento: 
<%else%>
Last update:
<% end if %>
       <%       
        Response.Write contenuti.fields.getvalue( session("lingua")) 
        %>
         </td>
  </tr><tr>
  <td>
<object classid="clsid: D27CDB6E-AE6D-11cf-96B8-444553540000" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=4,0,2,0" width="500" height="370" >
    <param name=movie value="flash/euroclamp2.swf">
    <param name=quality value=high>
    <embed src="flash/euroclamp2.swf" quality=high pluginspage="http://www.macromedia.com/shockwave/download/index.cgi?P1_Prod_Version=ShockwaveFlash" type="application/x-shockwave-flash" width="500" height="370"  >
    </embed> 
  </object>
</td>
</tr>
</table>
</div>
</body>
<% EndPageProcessing() %>
</form>
</html>

Posto inoltre il codice del file global.asa che contiene il percorso del database:

codice:

<SCRIPT LANGUAGE=VBScript RUNAT=Server>
'In questo file è possibile aggiungere gestori di eventi speciali che verranno eseguiti automaticamente 'al verificarsi di eventi speciali nelle pagine ASP. Per creare questi gestori, creare una subroutine 'con uno dei nomi elencati di seguito, corrispondente all'evento che si desidera utilizzare. Per creare, 'ad esempio, un gestore di eventi per Session_OnStart, inserire nel file il codice seguente (senza i commenti):
'Sub Session_OnStart
session("lingua")="italiano"
session("flash")=1
'**Inserire il codice in questa posizione**
'End Sub
'EventName              Descrizione
'Session_OnStart        Viene eseguito la prima volta che un utente esegue una pagina dell'applicazione.
'Session_OnEnd          Viene eseguito in caso di timeout di una sessione utente oppure quando un utente esce dall'applicazione.
'Application_OnStart    Viene eseguito una volta quando la prima pagina dell'applicazione viene eseguita per la prima volta da un utente.
'Application_OnEnd      Viene eseguito una volta allo spegnimento del server Web.
</SCRIPT>
<SCRIPT LANGUAGE=VBScript RUNAT=Server>
Sub Application_OnStart
	'==Visual InterDev Generated - startspan==
	'--Project Data Connection
		'Application("Connection1_ConnectionString") = "dsn=euroclamp;"
		Application("Connection1_ConnectionString") = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=C:\Inetpub\wwwroot\euroclamp\wwweuroclampit\euroclamp.mdb;"
		Application("Connection1_ConnectionTimeout") = 15 
		Application("Connection1_CommandTimeout") = 30
		Application("Connection1_CursorLocation") = 3
	'-- Project Data Environment
		'Set DE = Server.CreateObject("DERuntime.DERuntime")
		'Application("DE") = DE.Load(Server.MapPath("Global.ASA"), "_private/DataEnvironment/DataEnvironment.asa")
	'==Visual InterDev Generated - endspan==
End Sub
</SCRIPT>

Non so proprio come venirne a capo, ringrazio anticipatamente tutti coloro che vorranno aiutarmi!

Discussione: Problema asp-access

Strumenti discussione

Ricerca discussione

Visualizza

Hybrid View

Problema asp-access

Permessi di invio