errore di run-time,necessario oggeto

[paul84]

ho fatto un codice che prende i dati da un database e DOVREBBE stamparli in una pagina news.asp e posizionarli a secondo di quale campo nel database è "checcato".Nel database ci sono due campi si/no (checkbox).
Il codice che io ho fatto mi sembra tutto giusto,ma da venerdì mi da lo stesso errore:

Tipo di errore:
Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto
/El Beso/news.asp, line 155

e il codice è questo:

<%
'connessione con il db
set conn=server.createobject("ADODB.connection")
set rs=server.createobject("ADODB.recordset")
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("news.mdb")
%>

<%
sql = "SELECT * from news where NEWSprincipale=true or NEWSnormale=true"
rs.Open sql, conn, 1, 3
newsp = rs("NEWSprincipale")
newsn = rs("NEWSnormale")
rs.close
set rs = nothing
conn.close
set conn = nothing
%>
<span class="l2">
<font color="#000000">
<%
if newsp = true then
rs.Open sql, conn, 1, 3
do while not rs.EOF
Response.Write("Titolo")
rs.movenext
loop
end if
%>
</font>
</span>
</td>
</tr>
</table>
</td>
</tr>
</table>
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%">
<tr>
<td width="100%">
<p align="left">
<span class="l2">

</span><span style="font-weight: 400; font-style: normal">
<%
if newsn = true then
rs.Open sql, conn, 1, 3
do while not rs.EOF
Response.Write("Titolo")
rs.movenext
loop
end if
rs.close
set rs = nothing
conn.close
set conn = nothing
%>

dove la linea 155 è

rs.Open sql, conn, 1, 3

siccome sono nuovo di asp,io so che questa riga qui sopra va messa,ma non so bene il significato... ...se qualcuno riuscisse a trovare l'errore e fosse anche così gentile da spiegarmi l'utilità di quella riga gliene sarei molto grato,grazie

[dedoweb]

Secondo me non riesce a connetersi al db.
Potrebbe essere un problema con il driver...

[paul84]

considerando che ho già fatto più volte una connessione ai database non penso sia quello...non è che tu riesci a spiegarmi il significato in parole povere di quella riga?!

rs.Open sql, conn, 1, 3

[Etilico]

apre il recordset utilizzando la connessione aperta in scrittura credo...

[dedoweb]

Forse ho capito il problema...

conn.close
set conn = nothing

Con queste due righe chiudi la connessione al db.
Dopo però riapri un altro recordset

rs.Open sql, conn, 1, 3

passandogli la stessa conn che però hai chiuso in precedenza!
Prova a spostare la chiusura del conn (per fare una prova mettili in fondo alla pagina)

[paul84]

caro collega,non so se ti ricordi di me,ma...ci siamo già incontrati qui la settimana scorsa...
senti,io non ci capisco molto,quindi ti ringrazio molto della tua risposta,ma dovresti farmi capire chiaramente cosa c'è che non va...

[Etilico]

semplicemente per aprire il recordset ti serve una connessione al database dal quale estrai il recordset... se la connessione è chiusa non puoi aprire il recordset... chiaro?

[paul84]

c'ho provato ma l'errore non è quello (chiudere la conn e poi a prire un altro recordset)...ho provato a metterlo in fondo alla pagina ma l'errore non cambia di una virgola,mi dice sempre che la riga è

rs.Open sql, conn, 1, 3

ma qualcuno mi dice cosa vuol dire questo qui sopra?!

[paul84]

e i due numeri?! rs.Open sql, conn, 1 , 3

comunque non si risolve niente,c'è sempre quell'errore di merda...

[Shagrat]

<% 
'connessione con il db 
set conn=server.createobject("ADODB.connection") 
set rs=server.createobject("ADODB.recordset") 
conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data source=" & Server.MapPath("news.mdb") 
%> 

<% 
sql = "SELECT * from news where NEWSprincipale=true or NEWSnormale=true" 
rs.Open sql, conn, 1, 3 
newsp = rs("NEWSprincipale") 
newsn = rs("NEWSnormale") 
rs.close 
set rs = nothing 
conn.close 
set conn = nothing   %> 
<span class="l2"> 
<font color="#000000"> 
<% 
if newsp = true then 
rs.Open sql, conn, 1, 3 
do while not rs.EOF 
Response.Write("Titolo") 
rs.movenext 
loop 
end if 
%> 
</font> 
</span> 
</td> 
</tr> 
</table> 
</td> 
</tr> 
</table> 
<table border="0" cellpadding="0" cellspacing="0" style="border-collapse: collapse" bordercolor="#111111" width="99%"> 
<tr> 
<td width="100%"> 
<p align="left"> 
<span class="l2">
 
</span><span style="font-weight: 400; font-style: normal"> 
<% 
if newsn = true then 
rs.Open sql, conn, 1, 3 
do while not rs.EOF 
Response.Write("Titolo") 
rs.movenext 
loop 
end if 
rs.close 
set rs = nothing 
conn.close 
set conn = nothing 
%>

leva le due righe che ti ho evidenziato in rosso