Ciao, ho un problema con la connessione al database.
Nella seguente pagina potete vedere l'errore restituito: http://www.hotelwilly.com/cms/pages/
l'applicazione che sto tentando di istallare dovrebbe permettere di creare un CMS. Nel file di spiegazione dell'istallazione dicono di modificare il percorso al database, che nel mio caso (Aruba) si trova nella cartella mdb-database. Di seguito incollo il codice della connessione sulla pagina /cms/pages/icludes/portalconection.asp

inizio codice-------------------------
<%
dim PortalConnectString
dim strRootpath,strPortalTitle
dim fileuploadpath,ImagePath
dim FromEmail
dim Show_Title_Above_Content
dim CMS_Title_Color
dim CMS_Title_Font
dim CMS_Background_Color

PortalConnectString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=\mdb-database\CMSDB.mdb;Persist Security Info=False"


fileuploadpath = "\public\cms\Pages\"
ImagePath = "\public\cms\Pages\Images\"

FromEmail="info@next01.it"
strPortalTitle="CMS"
Show_Title_Above_Content = "1" '1 = yes, 0 = no
CMS_Title_Color = "White" 'only if Show_Title_Above_Content = 1 (yes)
CMS_Title_Font = "Arial" 'only if Show_Title_Above_Content = 1 (yes)
CMS_Background_Color = "Steelblue"
%>
fine codice-------------------------

L'errore che viene restituito dice che non funziona qualcosa sulla pagina /cms/pages/includes/database.asp, di cui riporto il codice:

inizio codice-------------------------
<%
function killChars(strWords)

dim badChars
dim newChars ,i

badChars = array("select", "drop", ";", "--", "insert", "delete", "xp_")
newChars = strWords

for i = 0 to uBound(badChars)
newChars = replace(newChars, badChars(i), "")
next

killChars = newChars

end function
function SQLSafeString(pstrString)
SQLSafeString=replace(pstrString,"'","''")
end function

function QuerySafeString(pstrString)
QuerySafeString=replace(pstrString,"'","''")
QuerySafeString=killChars(QuerySafeString)
end function

Class clsDatabase
Public GetConnectionString

'Private Sub Class_Initialize
' End Sub

' Private Sub Class_Terminate
' End Sub

Public Function Execute(strSQL,strErrorMessages)

Dim oRS
'on error resume next
strErrorMessages=""
Set oRS = Server.CreateObject("ADODB.Recordset")
oRS.CursorLocation = 3
'Response.Write strSQL
oRS.Open strSQL, CStr(GetConnectionString) ,3,3
if err.number <> 0 then
strErrorMessages = strErrorMessages & " Error occured. " & err.description & ""
err.clear
end if
oRS.ActiveConnection = Nothing
Set Execute = oRS
Set oRS = Nothing

End Function


Public sub ExecuteDML(strSQL,strErrorMessages)

Dim con
'on error resume next
Set con = Server.CreateObject("ADODB.Connection")
Con.Mode = 3
con.Open CStr(GetConnectionString) ,"Admin",""

if err.number <> 0 then
strErrorMessages=strErrorMessages & " Error occured. " & err.description & ""
err.clear
end if
con.Execute (strSQL)
if err.number <> 0 then
strErrorMessages = strErrorMessages & " Error occured. " & err.description & ""
err.clear
end if

End sub

End Class

function TableBodyList(byval pstrSQL,pstrHeaderRowParameters, _
pstrHeaderColumnParameters,pstrDataRowParameters, _
pstrDataColumnParameters,byref pconClass)

dim strTemp,rst,i,intFieldCount',conClass
'set conClass =new ClsDataBase
'conClass.getconnectionstring = PortalConnectString
'set rst= conClass.Execute (pstrSQL)
'esponse.Write pstrSQL
'esponse.End
set rst= pconClass.Execute(pstrSQL,strTemp)

if strTemp<>"" then
strTemp="<TR " & pstrDataRowParameters & "><TD " & pstrDataColumnParameters & ">" & strTemp & "</TD></TR>"

TableBodyList = strTemp

exit function
else

strTemp="<TR " & pstrHeaderRowParameters & ">"
intFieldCount=rst.fields.count-1
for i = 0 to intFieldCount
strTemp= strTemp & "<TH " & pstrHeaderColumnParameters & ">" & Replace(rst.fields(i).name,"'","") & "</TH>"
next
strTemp= strTemp & "<TH " & pstrHeaderColumnParameters & ">Delete</TH>"
strTemp= strTemp & "</TR>"
while NOT rst.eof
strTemp= strTemp & "<TR " & pstrDataRowParameters & ">"

strTemp= strTemp & "<TD " & pstrDataColumnParameters & "><A HREF =""javaScript:ModifyData('" & rst(0).value & "')"" >" & _
rst(0).value & "</A></TD>"
for i = 1 to intFieldCount
strTemp= strTemp & "<TD " & pstrDataColumnParameters & ">" & rst(i).value & "</TD>"
NEXT
strTemp= strTemp & "<TD " & pstrDataColumnParameters & "><A HREF =""javaScripteleteData('" & rst(0).value & "')"">Delete</TD>"

strTemp= strTemp & "</TR>"
rst.movenext
wend
end if
TableBodyList = strTemp
set rst = nothing
exit function

end function

function ComboBoxOptionList(byval pstrSQL,pstrSelectedValue, _
byref pconClass)
dim strTemp,rst,strTempResults
set rst= pconclass.Execute (strsql,strTempResults)
strTemp = ""
if strTempResults ="" then

while not rst.eof
strTemp=rst(0).value
IF pstrSelectedValue=strTemp then
strTempResults = strTempResults & "<OPTION SELECTED VALUE='" & strTemp & "'>" & rst(1).value & "</OPTION>"
else
strTempResults = strTempResults & "<OPTION VALUE='" & strTemp & "'>" & rst(1).value & "</OPTION>"
end if

rst.movenext
wend
else
strTempResults = "<OPTION VALUE=''>" & strTempResults & "</OPTION>"
end if
ComboBoxOptionList = strTempResults

set rst = nothing
exit function

end function


function TableMenuList(byval pstrSQL,pstrHeaderRowParameters, _
pstrHeaderColumnParameters,pstrDataRowParameters, _
pstrDataColumnParameters,byref pconClass)

dim strTemp,rst
set rst= pconClass.Execute(pstrSQL,strTemp)

if strTemp<>"" then
strTemp="<TR " & pstrDataRowParameters & "><TD " & pstrDataColumnParameters & ">" & strTemp & "</TD></TR>"

TableMenuList = strTemp

exit function
else

while NOT rst.eof
strTemp= strTemp & "<TR " & pstrDataRowParameters & ">"

strTemp= strTemp & "<TD " & pstrDataColumnParameters & "><A target =""Pages"" HREF =""" & rst(1).value & """ >" & _
rst(0).value & "</A></TD>"
strTemp= strTemp & "</TR>"
rst.movenext
wend
end if
TableMenuList = strTemp
set rst = nothing
exit function

end function

%>
fine codice-------------------------

Potete aiutarmi? Grazie