Cette opération n'est pas autorisée si l'objet est fermé.

Bonjour à tous,
Voila j'ai petit problème j'ai fait un script qui verifie une variable et selon ce que la variable contient on fait une conditionnel pour chercher un script de connexion  à un DB different et ensuite il execute le script SQL voici mon script :

<%@language="VBScript"%>
<!--#include file="../../../general/include/top_user.inc"-->
<%
'Recuperation du POST
listDayBegin=request.form("listDayBegin")
listMonthBegin=request.form("listMonthBegin")
listYearBegin=request.form("listYearBegin")
listDayEnd=request.form("listDayEnd")
listMonthEnd=request.form("listMonthEnd")
listYearEnd=request.form("listYearEnd")
textFolioNum=request.form("textFolioNum")
textCustomerName=request.form("textCustomerName")
textCreditCardNum=request.form("textCreditCardNum")
textBookNum=request.form("textBookNum")
textRoomNum=request.form("textRoomNum")
listLangId=request.form("listLangId")
listVersion=request.form("listVersion")
TextHotel=request.form("TextHotel")
FileURL=request.form("FileURL")

'Ouverture du script et enregistrement dans une variable SQL
Set fso=CreateObject("Scripting.FileSystemObject")
Set File=fso.OpenTextFile(FileURL)
SQL=File.ReadAll

'Verification des POST et remplacement dans le SQL
if listDayBegin <> "" and listMonthBegin <> "" and listYearBegin <> "" then
DateBegin = listYearBegin &"-"& listMonthBegin &"-"& listDayBegin
SQL = Replace(SQL, "[DateBegin]", DateBegin)
else
SQL = Replace(SQL, "'[DateBegin]'", "GetDate()")
end if

if listDayEnd <> "" and listMonthEnd <> "" and listYearEnd <> "" then
DateEnd = listYearEnd &"-"& listMonthEnd &"-"& listDayEnd
SQL = Replace(SQL, "[DateEnd]", DateEnd)
else
SQL = Replace(SQL, "'[DateEnd]'", "GetDate()")
end if

if textFolioNum <> "" then
SQL = Replace(SQL, "[FolioNum]", textFolioNum)
end if

if textCustomerName <> "" then
SQL = Replace(SQL, "[CustomerName]", textCustomerName)
end if

if textCreditCardNum <> "" then
SQL = Replace(SQL, "[CreditCardNum]", textCreditCardNum)
end if

if textBookNum <> "" then
SQL = Replace(SQL, "[BookNum]", textBookNum)
end if

if textRoomNum <> "" then
SQL = Replace(SQL, "[RoomNum]", textRoomNum)
end if

if listLangId <> "" then
SQL = Replace(SQL, "[LangId]", listLangId)
end if

if TextHotel <> "" then
SQL = Replace(SQL, "[CDPF]", TextHotel)
end if

'selection du serveur et du fichier de connection avec un if sur le 'listVersion
if listVersion = "Var1" then
'Ouverture d une connexion avec le serveur
%>
<!--#include file="../../../general/include/Connectionstring1.inc"-->
<%
'Execution du script SQL
Set SQLSet=Connectionstring1.execute(SQL)

'Creation d un RECORDSET
Set SQLRS=Server.CreateObject("ADODB.RecordSet")
SQLRS.Open SQL, Connectionstring1

'Execution du script SQL
'Set SQLSet=Connectionstring1.execute(SQL)

'Affichage du resultat dans un tableau
%>
<table border='1'>
<tr>
<% ColumnNumber=SQLRS.Fields.Count
for x=0 to (ColumNumber-1) %>
<th bgcolor='yellow'>
<%=SQLRS.Fields(x).Name%>
</th>
<% Next %>
</tr>
<% While Not SQLRS.EOF %>
<tr>
<% for each col in SQLRS.Fields %>
<td>
<%=col.value%>
</td>
<% Next %>
</tr>
<% SQLRS.MoveNext
wend %>
</table>
<% 'Fermeture du recordset et de la connexion
SQLRS.Close
Set SQLRS=Nothing
Connectionstring1.Close
Set Connectionstring1=Nothing

else if listVersion = "Var2" then
'Ouverture d une connexion avec le serveur %>
<!--#include file="../../../general/include/Connectionstring2.inc"-->
<% 'Execution du script SQL
Set SQLSet=Connectionstring2.execute(SQL)

'Creation d un RECORDSET
Set SQLRS=Server.CreateObject("ADODB.RecordSet")
SQLRS.Open SQL, Connectionstring2

'Affichage du resultat dans un tableau %>
<table border='1'>
<tr>
<% ColumnNumber=SQLRS.Fields.Count
for x=0 to (ColumNumber-1) %>
<th bgcolor='yellow'>
<%=SQLRS.Fields(x).Name %>
</th>
<% Next %>
</tr>
<% While Not SQLRS.EOF %>
<tr>
<% for each col in SQLRS.Fields %>
<td>
<%=col.value%>
</td>
<% Next %>
</tr>
<% SQLRS.MoveNext
wend %>
</table>
<% 'Fermeture du recordset et de la connexion
SQLRS.Close
Set SQLRS=Nothing
Connectionstring2.Close
Set Connectionstring2=Nothing
end if
%>

Donc j'ai un formulaire sur lequel on change des dates et d'autre truc puis je l'envois et les données saisie sont traité.
J'ouvre un fichier SQL, je rectifie donc les dates et tous ce qu'il y a a changé puis en fonction de ce que l'utilisateur avait saisie précédemment on choisie plutot se serveur qu'a un autre et on execute le script.
Mais il me dit : "Cette opération n'est pas autorisée si l'objet est fermé." en parlant de la syntaxe :"

<% While Not SQLRS.EOF %>

J'ai vérifié si par hasard on avait un resultat en lançant la requete manuellement et j'ai bien quelque chose.

Merci d'avance
______________________
Le Black Dog c'est moi