Salve a tutti,
ho acquistato un dominio che però ha come unica cartella database abilitata in scrittura all'esterno della root del sito.
Vorrei perciò sapere dove è il problema: di seguito scriverò il codice (che per altro ho scaricato da questo sito)che mi da problemi dio connessioni al database! magari dateci un'ochiata e fatemi sapere dove è l'errore:
:::::::CODICE:::::::

<%
If isCommonCreated <> True Then
'Determino il timeout dello script
Server.ScriptTimeout = 90

'Determino le dimensioni delle variabili
Dim StrConnect 'Variabile
Dim cString 'Variabile
Dim adoCon 'Variabile
Dim strSQL 'Variabile

'Setto la variabile per una connessione ADO
Set adoCon = Server.CreateObject("ADODB.Connection")

'------------------------------------------------------------------------------------
'Cambiare il path del database
StrConnect = "Provider = Microsoft.Jet.OLEDB.4.0;
Data Source = c:\domains\MIO_DOMINIO.XX\db\MIO_DATABASE.mdb;
Persist Security Info = False"
'------------------------------------------------------------------------------------

'Stringa per la connessione
'Se la seguente linea non funziona, commentare con ' e scegliere un altra stringa
'cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath(strDataBasePath)

'Usa questa stringa se usi Access Database 2000 o 2002
cString = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source = c:\domains\MIO_DOMINIO.XX\db\MIO_DATABASE.mdb


'Usa questa stringa se usi DSN
'cString = "DSN=NAME_OF_DSN"
'Sostituisci il NAME_OF_DSN con il DSN

adoCon.Open cString

'Richiesta dei valori utente

'Setta the variable to the value in the users cookie
str_userscode = Request.Cookies("Login")("userCode")

'Se l'user code non è vuota allora
IF str_userscode <> "" THEN
'Creo un nuovo record set
Set rsUserLog = Server.CreateObject("ADODB.RecordSet")

'Setta una nuova stringa sql
StrSql="SELECT * FROM tbl_authors WHERE code='" & str_userscode & "';"

'Apro il recordset e eseguo il codice sql
rsUserLog.open StrSql,cString

'Se non ci sono record che accertano l'identita dei dati dai cookies dell'utente
'setta la variabile vuota

If rsUserLog.EOF Then
Response.cookies("Login")("userCode") = ""
'Se non c'è nessun record allora
Else

' Setta i valori del database con le variabili
str_users_name = rsUserLog("name")
str_users_password = rsUserLog("pass")
str_users_nome = rsUserLog("nome")
str_users_cognome = rsUserLog("cognome")
str_users_email = rsUserLog("email")
str_users_citta = rsUserLog("citta")
str_users_provincia = rsUserLog("provincia")
str_users_cap = rsUserLog("cap")
str_users_authority = rsUserLog("authority")
str_users_date = rsUserLog("dataregistrazione")
str_users_code = rsUserLog("code")
str_users_stato = rsUserLog("stato")
str_users_pagina_web = rsUserLog("pagina_web")
str_users_utentesospeso = rsUserLog("utentesospeso")
End If

'Chiudo
rsUserLog.Close
set rsUserLog = Nothing

'Se l'user code è vuoto allora l'utente è guest
Else
Response.cookies("Login")("userCode") = ""
End If

'--------------------------------------------------------------------------------------------

'Creo un nuovo record set
set rsPageAttributes = Server.CreateObject("ADODB.RecordSet")

'Query sql
pageSql = "SELECT * FROM tbl_admin"

'Apro il recordset e eseguo sql
rsPageAttributes.open pageSql,cString

adminEmail = rsPageAttributes("adminEmail")
pageTitle = rsPageAttributes("TitoloSito")
homePage = rsPageAttributes("homePage")
mailServer = rsPageAttributes("mailHost")
tipoMail = rsPageAttributes("tipoMail")
conf_email = rsPageAttributes("conf_email")

'Chiusura
rsPageAttributes.Close
set rsPageAttributes = Nothing

'--------------------------------------------------------------------------------------------
Else
Dim isCommonCreated
isCommonCreated = True
End If

'--------------------------------------------------------------------------------------------
Function GetState(intState)
Select Case intState
Case 0
GetState = "adStateClosed"
Case 1
GetState = "adStateOpen"
End Select
'Sintassi: GetState(adoCon.state)
End Function
'--------------------------------------------------------------------------------------------
%>