accesso al DB

[felix the cat]

Salve ragazzi, premesso che di asp non ci capisco nulla, non riesco ad accedere al db su un sito.
Vi spiego:

ho un sito su register.it, e il mio db si trova in una cartella chiamata DB.
Seguendo degli esempi presi da un mio vecchio sito in cui la parte asp l'aveva fatta un programmatore, ho creato una cartella chiamata "include" dove ho messo un file chiamato "apriconnessidati.asp"

dentro questa sintassi:

<%
'Apre connessione al MDB "DATI"
Dim objConn
Set objConn = Server.CreateObject("ADODB.Connection")
objConn.ConnectionString = "DSN=xxxx"
objConn.Open
'
%>

All'interno poi di ogni pagina rimettevo l'include apriconnessione e chiudiconnessione

Il problema che non potendo chiedere il DSN al provider non funziona.

Register dice di usare questa sintassi per accedere al db access:


<%
Set ConnInd = Server.CreateObject("ADODB.Connection")
ConnStr = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & server.mappath("/db/miodb.mdb")
ConnInd.Open ConnStr
%>

ma non funzionaaaaa

Aiutatemi per favore.

grazie

[Mems]

La tua stringa di connessione DSN-Less sembra corretta.
Che errore ti appare sul browser?

[felix the cat]

Mi dice
Impossibile visualizzare la pagina

Però a questo punto penso che sia sbagliata la sintassi nella pagina finale:


<%
'Qui controllo se esiste una SESSION piena....
tipo=request("condizione")
marca=request("marca")
famiglia=request("famiglia")

if tipo="" OR tipo=NULL Then
filtro_tipo = ""
else
filtro_tipo = " AND moto.condizione LIKE '" &condizione& "%' "
end if


if marca="" OR marca=NULL Then
filtro_marca = ""
else
filtro_marca = " AND moto.marca LIKE '" &marca& "%' "
end if

if famiglia="" OR famiglia=NULL OR famiglia="Tutte" Then
filtro_famiglia= ""
else
filtro_famiglia= " AND moto.famiglia LIKE '" &famiglia& "%' "
end if

'Query per estrarre i record delle moto...
sql = " SELECT * "
sql = sql + " FROM Moto "
sql = sql + " WHERE visibile = 'Si' "
sql = sql + filtro_condizione
sql = sql + filtro_marca
sql = sql + filtro_famiglia
sql = sql + " ORDER BY marca, modello, cilindrata "
set rs = objConn.Execute(sql)
'

if rs.eof Then
response.redirect "nofound.asp"
end if
%>

:master:

grazie

[Mems]

Dalle opzioni avanzate di explorer TOGLI la spunta dalla voce Mostra messaggi di errore HTTP brevi.

[felix the cat]

eccola

Microsoft VBScript runtime error '800a01a8'

Object required: 'objConn'

/usato.asp, line 35

[Mems]

In effetti nella tua pagina manca la creazione dell'oggetto connessione...

[felix the cat]

HO RISOLTO!

grazie cmq della tua disponibilità....

Ciao