Newsgroup: it.comp.www.asp
Titolo: non so più dove sbattere la testa...

asp classic
windows 98 s.e.
access 2000
pws
ho scritto delle pagine asp che funzionano bene.
se perň elimino il database (per vedere se il messaggio d'errore
personalizzato viene visualizzato) iniziano i problemi.
Cioč il messaggio d'errore  viene visualizzato nel modo corretto il problema
viene dopo. Quando  rimetto il database al suo posto ogni tanto appare il
fatidico
Provider errore "80004005"
Errore non specificato.
/sviluppo/attivita_sportiva.asp, riga 94
l'errore appare ogni tanto e se riavvio il pc torna tutto a posto.
ho lurkato mezzo web ma ho letto solo che dovevo fare attenzione a chiudere
la connessione (cosa che credo di aver fatto lascio piů sotto il codice)
potrebbe essere una limitazione di win98+pws o č un errore mio?
sono andato a vedere la kb microsoft come consigliato sulle faq ma... boh?
non ho ricavato molto :-(
codice (prima pagina) :          (la riga 94 e' :       conn.Open
"driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("asp/database.mdb")      )
<%
        On Error Resume Next
        Dim conn,rs
        ' Mi connetto al database
        Set conn = Server.CreateObject("ADODB.Connection")
        conn.Open "driver={Microsoft Access Driver (*.mdb)};dbq=" &
Server.MapPath("asp/database.mdb")
        Set rs = Server.CreateObject("ADODB.Recordset")
        ' Eseguo la query SQL
        rs.Open "SELECT Campionato, Descrizione FROM Campionati ORDER BY
Descrizione",conn,3
        If Err.Number <> 0 Then
         Response.Write ("<font color=""white"" size=""+1"">Si č verificato
un errore! errore: " & Err.number &" "& Err.Description & " " & Err.Source
&"</font>")
        Else
          Response.Write( "<p><strong><font color=""#33CCFF"" size=""+1"">
Campionato di: " &_
                                                "<select
name=""attivita"">")
          If rs.EOF Then
          ' Se non trovo dei risultati avverto che non ci sono campionati
nel database
          scrivi_options rs,"Campionato",Array("Descrizione"),"---- Nessun
Campionato trovato nel database ----"
          else
          ' riempio le opzioni della lista di scelta
          scrivi_options rs,"Campionato",Array("Descrizione"),"---- 
Seleziona un Campionato ----"
          End If
         Response.Write("   </select></font></strong></p>" &_
                                                   "<p><div align=""right"">
"&_
                                                       "<button
type=""button"" onClick=""check_noinput();"" > Avanti </button>"&_
                                                   "</div></p>")
        End If
        ' mi sconnetto
        rs.Close
        conn.Close
        Set rs=Nothing
        Set conn=Nothing
        On Error GoTo 0
        %>
O.K. il codice č orrendo ma per ora basta che vada :-))
Sapete darmi una dritta?
Ringrazio in anticipo
Walter Bugliarelli

 Walter Bugliarelli
Ciao
-- 
AZ [Microsoft .NET MVP]
.NET Community: 
http://www.aspitalia.com/
Il mio blog: 
http://blogs.aspitalia.com/az/
Microsoft MVP: 
http://italy.mvps.org/
Sito personale: 
http://ciclismo.sitiasp.it/

 Server.MapPath("asp/database.mdb")
Hai provato con:
conn.Open "PROVIDER={Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & _
Server.MapPath("asp/database.mdb")
č piů efficiente
--
ciao!
....nixs..................................................
ni...@lucchettolagirandola.it
togli il LUCCHETTO per scrivermi
............................................................


Sei un genio.
Va alla grande :-)
Grazie mille !

> se però elimino il database
Mi sembra un metodo un po' drastico per
simulare un errore, perchè non cambi
il nome del DB nella stringa di connessione
con non_esiste.mdb e vedi se lo fa lo stesso?

 con non_esiste.mdb e vedi se lo fa lo stesso?
o.k. hai ragione. era per spiegare senza equivoci

 Grazie mille !
Prego :)
