ciao,

scusate ma houn aserie di problemi con le conn che non riesco a risolvere: forse potete aiutarmi..

ho la seguente pagina


<%
set DBrec = Server.CreateObject("ADODB.Recordset")
%>
<form class='form' name="ricerca" action="ricerca_risultato.asp" method='POST' bgcolor="red">
<input type='hidden' name='ind' value='I'>
<table width="35%" border='0' align='left' cellpadding='0' cellspacin='0'>
<tr>
<td><b class='testo'><%=ricerca(1)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_tipo_trad where lingua='" & lang & "' ORDER BY traduzione;"

'Creo il recordset

DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>
<select name="tipo">
<option value='--'>--</option>
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("traduzione") &"</option>"
DBrec.movenext
loop
%>
</select>
</td>
<tr>
<td><b class='testo'><%=ricerca(2)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_contratto_trad where lingua='" & lang & "' ORDER BY traduzione;"

'Creo il recordset
DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>

<select name="contratto">
<option value='--'>--</option>
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("traduzione") &"</option>"
DBrec.movenext
loop


set DBrec= nothing
DBrec.close
%>
</select>
</td>
</tr>
<tr>
<td><b class='testo'><%=ricerca(3)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_regione ORDER BY nome"

'Creo il recordset
DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>
<select name="regione">
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("nome") &"</option>"
DBrec.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td><b class='testo'><%=ricerca(4)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_citta ORDER BY nome"

'Creo il recordset
DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>
<select name="citta">
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("nome") &"</option>"
DBrec.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td><b class='testo'><%=ricerca(5)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_zona ORDER BY nome"

'Creo il recordset
DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>
<select name="zona">
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("nome") &"</option>"
DBrec.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td><b class='testo'><%=ricerca(6)%>:[/b]</td>
<td>
<%
'Creo la query che pesca dati in base alla lingua
strsql= "SELECT * FROM ana_vani"

'Creo il recordset
DBrec.open strsql, Conn, 3

'INIZIO STAMPA TABELLA MOSTRA RISULTATI
%>
<select name="vani">
<%
do while not DBrec.EOF
response.write "<option value='" & DBrec("nome") & "'>" & DBrec("nome") &"</option>"
DBrec.movenext
loop
%>
</select>
</td>
</tr>
<tr>
<td>
<b class='testo'><%=ricerca(7)%> <b class='testo_rosso'><%=ricerca(8)%>[/b]:[/b]
</td>
<td>
<input type='textbox' name='mq_min' size="5" MAXLENGTH='5'>
</td>
</tr>
<td>
<b class='testo'><%=ricerca(7)%><b class='testo_rosso'> <%=ricerca(9)%>[/b]:[/b]
</td>
<td>
<input type='textbox' name='mq_max' size="5" MAXLENGTH='5'>
</td>
</tr>
<tr>
<td>
<b class='testo'><%=ricerca(10)%> <b class='testo_rosso'> <%=ricerca(11)%>[/b]:[/b]
</td>
<td>
<INPUT TYPE='TEXTBOX' name='prezzo_min' size="12" MAXLENGTH='12'>
</td>
</tr>
<tr>
<td>
<b class='testo'><%=ricerca(10)%> <b class='testo_rosso'> <%=ricerca(12)%>[/b]:[/b]
</td>
<td>
<INPUT TYPE='TEXTBOX' name='prezzo_max' size="12" MAXLENGTH='12'>
</td>
</tr>
<tr>
<td>


<input type="image" src='layout/<%=ricerca(13)%>_<%=lang%>.jpg' alt='<%=ricerca(14)%>'>
</td>
</tr>
</table>
</form>
<div class='clear'></div>
[img]layout/soldi.gif[/img]<%=ricerca(15)%>

<%
'Chiudo tutto
DBrec.close
Set DBrec=nothing
%>



Questa form, esegue una serie di query, io apro la connessione in un file incluso, poi apro il recordset solo all' inizio della pagina con

set DBrec = Server.CreateObject("ADODB.Recordset")

ogni volta istanzio la nuova sql che eseguo con:

DBrec.open strsql, Conn, 3

e poi chiudo il tuto alla fin della pagina, ma ricevo il seguente errore dopo che ha stamapato il primo select:

ADODB.Recordset error '800a0e79'

Operation is not allowed when the object is open.

/ricerca_form.txt, line 38

solo riaprendo il recordset funziona.

come mai?
come posso fare?
Se aro tutti i recordset poi come li chiuso?
MI sono posto questo problema perchè ho il sito che appena lo apro è veloce e tutto va bene, dopo una serie di ricerche o navigazioni, si rallenta esageratamente senza motivo. Il server non è, anche perchè un altro sito sullo stesso dominio, in html va che è una scheggia...

Penso siano le conn aperte...e non chiuse..sapete iutarmi?

Grazie mille