errore nome ridefinito

[staticy2003]

Ciao, io ho fato una pagina asp perche deve mettere degli appelli online:
<% Dim Rs
Dim CN

'Seleziono i dati nel database
' Conneterti al DB
Set CN=server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
CN.ConnectionString = Application("StudentiDB")
CN.Open

dim StrSQL
StrSQL = "SELECT * " &_
"FROM qry_ElencoAppelli "


Rs.Open StrSQL,CN


while (Not Rs.EOF)
Response.Write "<h3><a href='Elenco_Appelli_eri.asp?IDCorso=" & Rs("IDCorso") & "&IDAppello=" & Rs("IDAppello") & ">" & Rs("NomeCorso") & "</a></h3>"

Rs.MoveNext
wend

Rs.Close
Set Rs = Nothing
CN.Close
Set Cs = Nothing
%>

ho incluso anche il file adovbs.inc e utility.asp in cui e incluso il file adovbs.inc e mi da sempre l'errore

Errore di compilazione di Microsoft VBScript (0x800A0411)
Nome ridefinito
/Capitolo_1/materiale tesi eri/bin/adovbs.inc, line 14, column 6
Const adOpenForwardOnly = 0

Ho provato a metterlo in commento o togliere la costante ma mi da l'errore sulla costante succesiva del file adobvs.

Non posso togliere l'inclusione del file adovbs.inc da nessuno dei 2 file perche mi da un altro errore:

Tipo di errore:
Microsoft OLE DB Provider for ODBC Drivers (0x80004005)
[Microsoft][Driver Manager ODBC] Nome origine dati non trovato e driver predefinito non specificato.
/Capitolo_1/materiale tesi eri/Seleziona_Appello_eri.asp, line 29

La linea 29 corrisponde alla connesione con il database.

C'è qualcuno che mi può aiutare.
Attendo risposta

 

[lukeonweb]

Prova ad aprire la connessione cosi

'Seleziono i dati nel database
' Conneterti al DB
Set CN=server.CreateObject("ADODB.Connection")
Set Rs = Server.CreateObject("ADODB.Recordset")
CN.Open Application("StudentiDB")

ed usa i cursori nell'apertura del recordset come segue

Rs.Open StrSQL,CN, 1

 

[daviduccio]

Posta il contenuto di adovbs.inc