Classe per Include dinamici

[Fidelio-565]

Ti ringrazio per il suggerimento.

Ho provato ma non funziona.

E' come se i file inclusi dovessero sempre essere presenti sul server web.

Ho provato con server.execute e pare funzionare ma....

pare che non tenga in memoria le sub.

mi spiego meglio

Nel file index.asp ho questo:

<%
Set Fso = Server.CreateObject ("Scripting.FileSystemObject")
If Not Fso.FileExists (Server.Mappath("/sel/1.asp")) Then
Set Fso = Nothing
response.redirect("/default2.asp")
else
Set Fso = Nothing
server.execute"/sel/1.asp" -->
end if

Function ContaRecordInTaB (NomeTabella)
Call OpenConn(Conn)
strSQL = "select COUNT(IDHL) AS totaleRecord FROM "&NomeTabella&" WHERE considera = True"
Set objRs = Server.createObject("ADODB.Recordset")
objRs.Open strSQL, Conn
ContaRecordInTaB = objRs("totaleRecord")
Call CloseConn(Conn)
End Function

response.Write(ContaRecordInTaB("torte"))

%>

----------------------------------------------

Nel file 1.asp ho questo

<%
Sub OpenConne(NomeConnessione)
Set NomeConnessione = Server.CreateObject("ADODB.Connection")
NomeConnessione.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("/mdb-database/db.mdb;")
NomeConnessione.Open
End Sub
%>

Quando eseguo index.asp ricevo:

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'OpenConn'
/sel/index.asp, riga 12


Chi mi aiuta a venir fuori dal problema?

[ominox]

Ti ringrazio per il suggerimento.

Ho provato ma non funziona.

E' come se i file inclusi dovessero sempre essere presenti sul server web.

Ho provato con server.execute e pare funzionare ma....

pare che non tenga in memoria le sub.

mi spiego meglio

Nel file index.asp ho questo:

<%
Set Fso = Server.CreateObject ("Scripting.FileSystemObject")
If Not Fso.FileExists (Server.Mappath("/sel/1.asp")) Then
Set Fso = Nothing
response.redirect("/default2.asp")
else
Set Fso = Nothing
server.execute"/sel/1.asp" -->
end if

Function ContaRecordInTaB (NomeTabella)
Call OpenConn(Conn)
strSQL = "select COUNT(IDHL) AS totaleRecord FROM "&NomeTabella&" WHERE considera = True"
Set objRs = Server.createObject("ADODB.Recordset")
objRs.Open strSQL, Conn
ContaRecordInTaB = objRs("totaleRecord")
Call CloseConn(Conn)
End Function

response.Write(ContaRecordInTaB("torte"))

%>

----------------------------------------------

Nel file 1.asp ho questo

<%
Sub OpenConne(NomeConnessione)
Set NomeConnessione = Server.CreateObject("ADODB.Connection")
NomeConnessione.ConnectionString = "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & request.ServerVariables("APPL_PHYSICAL_PATH")&("/mdb-database/db.mdb;")
NomeConnessione.Open
End Sub
%>

Quando eseguo index.asp ricevo:

Errore di run-time di Microsoft VBScript error '800a000d'
Tipo non corrispondente: 'OpenConn'
/sel/index.asp, riga 12


Chi mi aiuta a venir fuori dal problema?

uhm, la funzione si chiama OpenConne e tu in index.asp la richiami con OpenConn?