Erreur "type incompatible" sur une fonction [Résolu]

[Ricardo_Tubbs]

Bonjour !

pour les besoins d'un site, je dois uploader des photos. Par la même occasion, j'enregistre le nom de l'image dans une base de données ainsi que d'autres éléments...
J'ai donc créé une fonction de découpage de l'adresse de mon image pour n'en garder que le nom (avec extension).

Lorsque je lance mon appli, le navigateur me dit qu'il y a une erreur :

Erreur d'exécution Microsoft VBScript erreur '800a000d'

Type incompatible: 'nom_img'

/w000084/menus_n_niveaux/admin/inc/include_admin_upload_pic.asp, ligne 7

Dans mon code, voici comment ma fonction est appelée :

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
14
 
<%
Set upload_pic = Server.CreateObject("SoftArtisans.FileUp")
 
	' ENREGISTREMENT DE LA PHOTO DANS LA BASE DE DONNEES
	if (upload_pic.form("ok_for_pic") <> "") then
	monImage= nom_img(upload_pic.form("dryades_pic"))
	Set rs_ajt_pic = Server.CreateObject("ADODB.Recordset")
	sql_ajt_pic= "insert into tb_lesdryades_photos (photo_adresse, titre_fr, titre_uk, commentaire_fr, commentaire_uk, id_menu_parent) values('"&monImage&"','"&server.HTMLEncode(upload_pic.Form("titre_fr_ajt"))&"','"&server.HTMLEncode(upload_pic.Form("titre_uk_ajt"))&"','"&server.HTMLEncode(upload_pic.Form("comm_fr_ajt"))&"','"&server.HTMLEncode(upload_pic.Form("comm_uk_ajt"))&"','"&upload_pic.Form("rubrique")&"');"
	rs_ajt_pic.Open sql_ajt_pic, Session("connect"), 3, 3
	end if
	' / ENREGISTREMENT DE LA PHOTO DANS LA BASE DE DONNEES
 
...

Et ma fonction de découpage (qui est externalisée):

Code :

1
2
3
4
5
6
7
8
9
10
11
12
13
 
<%
Function nom_img(txt) 'Fonction pour récupérer le nom de l'image
 
	dim monTableau
	monTableau= split(txt,"\")
	nombre=ubound(monTableau)
	monAdresse=""
	monAdresse=monTableau(nombre)
	nom_img= Cstr(monAdresse)
 
end Function
%>

Est-ce que quelqu'un a des pistes vers lesquelles je pourrais me pencher ?

[Ricardo_Tubbs]

J'ai réussi à résoudre le probleme... en fait ASP ne me donnait pas la vraie erreur à savoir qu'il ne trouvait pas le fichier où se trouvait ma fonction... enfin bref... vive ASP !