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 :
Dans mon code, voici comment ma fonction est appelée :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
Et ma fonction de découpage (qui est externalisée):
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 ...
Est-ce que quelqu'un a des pistes vers lesquelles je pourrais me pencher ?
Code : Sélectionner tout - Visualiser dans une fenêtre à part
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 %>![]()
Partager