Problème avec un message d'erreur (a cause d'une fonction !)

Question

Voila mon probl&#232;me :

J'ai &#233;crit une fonction mais lorsque j'&#233;xecute la page sur le site
j'obtiens un message d'erreur, j'ai tout mis ci-dessous. Merci de
m'aider, ca fait longtemps que je susi devant mon poste et j'arrive
plus a voir le probleme ! Autant elle est sous mes yeux... Je vais
prendre un pause je verrai si ca m'eclaircit les id&#233;es !



Merci de votre aide !



'*********La proc&#233;dure

function list_cat() As ADODB.Recordset

Set RS = Server.CreateObject( "ADODB.Recordset" )

RS.ActiveConnection = Conn

RS.CursorType = 3

sql = "SELECT CatLib FROM Categorie ORDER BY CatLib"

set list_cat=RS

end function



------------------------------------------------------------



'*********L'appel de la proc&#233;dure et son traitement

set lers= list_cat()

lers.open

while not lers.eof

    response.write(lers.fields(0))

    lers.movenext

wend

lers.close





'*********Le message d'erreur apparaissant



Microsoft VBScript compilation  error '800a0400'



Expected statement



/pages/photo/sp_photo.asp, line 6


function list_cat() As ADODB.Recordset
--------------------^

cs_scoubigee · Answer

En fait je pense que je ne dois pas d&#233;clarer le type de la variable,
mais ensuite c'est l'appel de la fonction qui ne fonctionne pas...



Pliz help !

cs_Nurgle · Answer

Salut



tu ne dois pas d&#233;clarer le type de la variable (il n'y a pas de types de variables en VBScript !!) Donc pas de "As ADODB.RecordSet" !



ensuite tu peux essayer :

Set lers = list_cat()

ou simplement :

lers =  list_cat()



Nurgle 
C'est une grande folie que de vouloir &#234;tre sage tout seul !

Problème avec un message d'erreur (a cause d'une fonction !)

2 réponses

Votre réponse

Discussions similaires