record disconnesso e Aruba

[nicyork]

Ciao.
Ho una pagina che estrae dati da un DB e utilizza per la visualizzazione un record disconnesso... in locale funziona alla perfezione, caricato sull'hosting windows di Aruba invece mi da errore

Microsoft VBScript runtime error '800a000d' 

Type mismatch: 'getRs' 

/latestoffers.asp, line 52

e la riga 52 contiene:

set objRs = getRs(strSql)

Mica sarà che per qualche impostazione particolare dell'hosting windows non funzioni il record disconnesso?

Avete qualche indicazioni da darmi?
Grazie.

[nicyork]

Aggiungo che ho provato a a farmi restituire la query (strSql) che passo e a riportarla nel db access e funziona regolarmente...

Non capisco come mai non funzioni!
A casa su Win XP va, su un sito su Aruba, con hosting windows e linux va, su questo sito con hosting solo Windows (penso 2003) mi da questo problema...
Spero solo che non sia che su win 2003 questo sistema non si possa usare VVoVe:

[maxolino]

Incolla anche la chiamata al database e tutta la dichiarazione della query

[nicyork]

Allora, da dentro la pagina imposto un paramentro che gli voglio passare, poi richiamo una funzione che fa la chiamata alla query, e poi richiamo la funzione che mi restituisce il recordset disconnesso:

 
				
<%
'*** valorizzo objRs con il recorset restituito dalla funzione getRs ****
set objRs = getRs(strSql)
%>

CallSelTipologie.asp è:

<%
'*** valorizzo strSql con la query necessaria per l'estrazione dei dati ***
strSql = QrySelTipologie(IdTipologia)
%>

e la funzione QrySelTipologie è:

Function QrySelTipologie(IdTipologia)
	'**** query per estrazione dei dati delle tipologie ***
	dim strSql
	strSql = "SELECT *"
	strSql = strSql & " FROM Tipologie"
	if IdTipologia <> "" and IsNumeric(IdTipologia) then
		strSql = strSql & " WHERE IdTipologia = " & IdTipologia
	end if
	strSql = strSql & " ORDER BY DescrTipologia"

	QrySelTipologie = strSql
End Function
%>

e invece la funzione getRS è:

<%
Function getRs(strSql)
	%>
	
	
	
	<%
	Set objRS = Server.CreateObject("ADODB.Recordset")
	objRs.CursorLocation = adUseClient
	objRs.Open strSql, Conne, adOpenStatic, adLockBatchOptimistic

	'Disconnect the Recordset
  	Set objRs.ActiveConnection = Nothing

	%>
	
	

	<%
	Set getRs = objRs
End Function
%>

Tutto qui... e ribadisco che sul mio pc con Win NT tutto funziona, su un altro sito sempre su aruba, ma su un vecchio hosting che supporta Windows e Linux mi sembra, comunque dovrebbe essere NT, funziona, mentre su questo nuovo che dovrebbe avere Win 2003 non va (tra l'altro prima usavo le include file, ma anche quelle su 2003 davano problemi e sono passato alle include virtual.

Hai qualche indicazione da darmi?
Grazie.

[maxolino]

Non sono sicuro, ma distrutti il rs prima di leggerlo, fai una prova



A spostare questa riga

Set getRs = objRs

Prima delle seguenti

'Disconnect the Recordset
Set objRs.ActiveConnection = Nothing

[nicyork]

Mha... sono perplesso ma... funziona come hai detto tu... la cosa che non capisco è:
1. come mai mi ha sempre funzionato nel modo in cui l'ho sempre scritto
2. come mai su Win 2003 non funziona come era prima
3. sarà il caso che anche negli altri siti effettui questa modifica?

Comunque ti ringrazio molto perchè già mi vedevo costretto a modificare diverse pagine non utilizzando il recordset disconnesso, invece così una semplice modifica e ora tutto funziona!

Grazie!

[nicyork]

Mi correggo... per scrupolo ho fatto la "riprova" ripristinando il file originario... bhe, ora funziona tutto alla grande, anche con il file vecchio, che non andava e che ieri sera mi ha fatto fare le 1 passate!!!

Misteri di Aruba.... mha....

Grazie comunque e scusate... sono senza parole....

[maxolino]

Originariamente inviato da nicyork
Mha... sono perplesso ma... funziona come hai detto tu... la cosa che non capisco è:
1. come mai mi ha sempre funzionato nel modo in cui l'ho sempre scritto
2. come mai su Win 2003 non funziona come era prima
3. sarà il caso che anche negli altri siti effettui questa modifica?

Comunque ti ringrazio molto perchè già mi vedevo costretto a modificare diverse pagine non utilizzando il recordset disconnesso, invece così una semplice modifica e ora tutto funziona!

Grazie!

1. Bohhhhhh, a occhio sembra un errorino che dovrebbe NON funzionare neanche in locale/ o su altri siti
2. boh
3. se non è previsto un aggiornamento del server a win 2003 potresti anche evitare (se sono pochi siti ed è una modifica rapida già che ci sei potresti anche farlo)

Di niente