ciclo if probabilmente sbagliato...

[zoc]

Questo tipo di errore:

ADODB.Recordset (0x800A0E78)
L'operazione non è consentita se l'oggetto è chiuso.
/inc/chiu.inc.asp, line 2

è generato dal seguente codice

<%
Dim compilato
Dim sezione
Dim menu

compilato = Request.Form("compilato")
sezione = Request.QueryString("sezione")
menu = Request.QueryString("menu")

if compilato="true" then

Dim titolo
Dim testo

titolo = Request.Form("titolo")
testo = Request.Form("testo")
%>



<%
Sql = "INSERT into tab_testi (sezione, menu, titolo, testo) VALUES ('"&sezione&"', '"&menu&"', '"&titolo&"', '"&testo&"')"
Rs.open Sql, Conn, 3, 3

Response.Write ("inserimento ok")
%>



<%
else
%>

vario codice html...



negli include c'e' lo script per accedere alla connesione e al recordset e funzionano bene per tutto il sito...
il fatto e' che l'inserimento avviene corettamente quindi l'oggetto mi sembra strano sia chiuso come dice pero' il server...

grazie!!!

[rosbon]

Ciao, di solito gli "inclue" vanno posti all'inizio del codice, poi la condizione if non mi sembra corretta.
In effetti tu vuoi sapere se:
1) compilato è Ok fai l'inserimento;
2) altrimenti NO
Giusto??

[rosbon]

Beh prova così:

 
 
<% 

compilato = Request.Form("compilato") 
sezione = Request.QueryString("sezione") 
menu = Request.QueryString("menu") 
titolo = Request.Form("titolo") 
testo = Request.Form("testo")
 
if compilato <> "" then 

Dim compilato 
Dim sezione 
Dim menu 
Dim titolo 
Dim testo 



Sql = "INSERT into tab_testi (sezione, menu, titolo, testo) VALUES ('"&sezione&"', '"&menu&"', '"&titolo&"', '"&testo&"')" 
Rs.open Sql, Conn, 3, 3 

Response.Write ("inserimento ok") 

else 
%> 

vario codice html...

Non l'ho provato ma dovrebbe funzionare.

[zoc]

non funziona.....anche se metto il contenuto degli include nella pagina senza appunto mettere gli inculde mi da' lo stesso tipo di errore, cioe' che l'oggetto non puo' esser chiuso perche' gia chiuso...boooo??

[rosbon]

Posta lo script degli include per piacere

[zoc]

<%
Dim Connessione

Connessione = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source="& server.mappath("bruschi.mdb")
Set Conn = Server.CreateObject( "ADODB.Connection" )
Conn.Open Connessione

set Rs = server.createObject("ADODB.recordset")
%>

e

<%
Rs.close
set Rs = nothing

Conn.close
set Conn = nothing
%>

grazie mille!!!

[zoc]

ho provato anche a usare il:

<% Execute IncludeFile("nomefile.asp") %>

ma mi da'errore:

Errore di run-time di Microsoft VBScript (0x800A000D)
Tipo non corrispondente: 'IncludeFile'

[Roby_72]

Questo

<% 
Rs.close 
set Rs = nothing 

Conn.close 
set Conn = nothing 
%>

non va in un include ma dentro la pagina, in coda.

Roby

[zoc]

gia' provato a metterlo senza include dentro la pagina...

se lo metto alla fine, la prima volta che si andrà sulla pagina, dato che compilato non e' = a true, mi darà errore perche' chiude un oggetto che non si e' mai aperto.

grazie!

[Roby_72]

O metti l'include prima dell'if oppure scrivi lo script della connessione dopo l'if eliminando l'include.

Roby