Informix ASP and VBscript

I've got a problem. I try to select some data with an SQL string (select * from ....) I open the recordset and then it's still closed !! Help please. Thank you Philippe D here's the code : <% LANGUAGE = "VBScript" %> <html> <head> <title></title> </head> <body bgcolor="#000000" text="#FFFFFF" background="images/fondneon.jpg" link="#FFFFFF" vlink="#FFFFFF" alink="#FFFFFF"> <% Dim nbEnreg Dim nbCar Dim strSQL ''tablit une connexion avec la source de donn'es strDSN = "DATABASE=qft;DSN=qft;UID=phild;Password=;" Set cn = Server.CreateObject("ADODB.Connection") cn.Open strDSN 'Cr'e une instance de l'objet Recordset Set rsPS = Server.CreateObject("ADODB.Recordset") nbCar = len ( rtrim(Request.Form("nom"))) if Mid(rtrim(Request.Form("nom")), nbCar, 1) = "%" then reqNom = " nom LIKE " & "'" & rtrim(Request.Form("nom")) & "'" else reqNom = " nom = " & "'" & rtrim(Request.Form("nom")) & "'" end if strSQL = "SELECT " &_ " NOM Nom, PRENOM Prenom, " &_ " SPE.LIBSPECIALITE Libspecialite " &_ " FROM ps, spe " &_ " WHERE " & reqnom &_ " AND ps.c_specialite = spe.c_specialite " &_ " ORDER BY Nom " set rsPS = cn.execute(strSQL) nbEnreg = rsPS.recordcount select case nbEnreg case (0) 'Aucun agent trouv' %> <!-- #include file="nontrouve.asp" --> <% case (1) '1 agent trouv' %> <!-- #include file="Affiche1.asp" --> <% case Else 'Plus d'1 agent trouv' %> <!-- #include file="AfficheN.asp" --> <% End select %> </body> </html>