Newsgroup: it.comp.www.asp
Titolo: problemi con connessione al database sul server

Salve a tutti, mi sono da poco cimentato con Asp ma ho dei problemi
con la creazione della mia area riservata.
Premetto che sono riuscito a creare il form per le mail e anche una
mailing list supportata da database access, senza riscontrare alcun
problema.
Il problema si presenta nell'area riservata; mi apre la pagina di
login senza problemi e quando inserisco user e password mi visualizza
un errore http 500. Ho impostato anche i permessi per la scrittura, ma
è uguale, non cambia niente.
L'Hosting l'ho fatto con hostingsolutions, se può essere d'aiuto.
vi mando inoltre lo script che dovrebbe fare la verifica dei dati nel
database.
Premetto che il servizio non contempla mysql nè ms sql, che devo
pagare a peso d'oro a parte.
In ogni caso vi mando gli script che ho fatto...
Questo l'ho testato con IIS e offline funzionava correttamente, ma on
line non va una mazza (sempre errore http 500)
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
Dim cn
Set cn = Server.CreateObject("ADODB.Connection")
cn.Open "driver={Microsoft Access Driver
(*.mdb)};dbq="&Server.MapPath("utenti.mdb")
Dim sql
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
       "' AND PASSWORD='" &pass& "'"
Dim rs
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
  Session("Autenticato") = "OK"
  Response.Redirect("riservato.asp")
else
    Response.Redirect("index.asp")
end if
%>
<body>
</body>
</html>
Allora ho letto nel sito le faq per la connessione al database, di cui
vi riporto lo script modificato.
<%
Dim nome_ut
Dim pass
nome_ut = Replace(Request.Form("nome_utente"), "'", "''")
pass = Replace(Request.Form("password"), "'", "''")
<%
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" &
server.MapPath("studiodab.mdb")
sql = "SELECT ID FROM Utenti WHERE NOMEUTENTE='" &nome_ut&_
      "' AND PASSWORD='" &pass& "'"
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Open sql, conn
%>
Set rs = cn.Execute(sql)
Dim autenticato
if rs.eof then
  autenticato = false
else
  autenticato = true
end if
rs.Close
cn.Close
Set rs = Nothing
Set cn = Nothing
if autenticato = true then
  Session("Autenticato") = "OK"
  Response.Redirect("riservato.asp")
else
  Response.Write("Attenzione, UserName o Password non sono corretti!"
  Response.Redirect("index.asp")
end if
%>
<body>
</body>
</html>
Il problema è che non ho ancora capito dove ho sbagliato.
Vi ringrazio fin d'ora per l'aiuto.
Antonio

 Antonio
La soluzione la scrivi tu stesso nella tua richiesta: offline funziona, sul
server di houstingsolutions no. Innanzitutto verifica che la cartella
accessibile in scrittura nel tuo servizio di hosting sia la stessa in cui
hai inserito il database.
Se hai seguito alla lettera le faq di houstingsolution e continui ad avere
problemi, contatta il loro servizio clienti e chiedi di verificare la
configurazione e comunica i problemi riscontrati.
Ciao
-- 
AZ [Microsoft - .NET MVP]
Mia Home page: 
http://ciclismo.sitiasp.it
Asp.Net community: 
http://www.aspitalia.com
Il mio blog: 
http://blogs.aspitalia.com/az