Salve a tutti,
mi trovo nella necessità di dover trasferire un dominio e sto provando il tutto in locale.
Prendendo i file e copiandoli nella mia cartella ho riscontrato questo 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 della pagina flashEuro.asp:
<%@ Language=VBScript %>
<!--#include file="_ScriptLibrary/pm.asp"-->
<% 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" endspan-->
<!--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>
-->
<!--#INCLUDE FILE="_ScriptLibrary/Recordset.ASP"-->
<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>
<!--METADATA TYPE="DesignerControl" endspan-->
<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 della pagina global.asa che contiene la stringa di connessione al database:
<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>
Perdonatemi per la lunghezza del post ma spero in questo modo di essere stato il più chiaro possibile.
Ringrazio anticipatamente tutti coloro che vorranno aiutarmi