Tout d'abord voilà mon code;
<%
 Function nb_contrat()
    SQL1="SELECT COUNT(*) AS nombre FROM contrat WHERE num_societe='"& num &"'"
'    response.write "-->sql = "&SQL1&"<br>"
    Set RS = Server.CreateObject("ADODB.Recordset" )
    RS.Open SQL1, conn ,3,3
'    Response.Write RS("nombre" )
    nb_contrat=nombre
 End Function
%>
Et ça l'appel a la fonction;
<%nb=nb_contrat()
If nb="" Then Response.Write ("vide" ) Else Response.Write (nb) End If%>
 
Les lignes en rouge sont des essais a pllusieurs moment de la procédure pour voir jusqu'ou ça marche!! Résultat ma fonction marche bien mais le test de la partie souligné ne marche pas il me donne "vide" alors qu'il devrait pas!!!! Pourquoi??

 
Deja il me semble qu'il manque des parenthèses
 

 
Et là il y en a en trop ...

La première phrase c'est du commentaire et quand j'enleve les commentaires ça marche!!!!
J'essaie de suite pour la deuxième!!!!

Ca ne marche toujours pas!!!!
Je remets mon code avec les transfo;
 
<%
 Function nb_contrat()
    SQL1="SELECT COUNT(*) AS nombre FROM contrat WHERE num_societe='"& num &"'"
    Set RS = Server.CreateObject("ADODB.Recordset" )
    RS.Open SQL1, conn ,3,3
'    Response.Write RS("nombre" )
    RS.Close
    nb_contrat=nombre
 End Function
%>
 
Appel à la fonction;
<%nb=nb_contrat
If nb="" Then Response.Write ("vide<br>" ) Else Response.Write (nb) End If%>

nb_contrat=cint(rs("nombre" ))