Probleme concatenation et innerHTML

savims Messages postés 2 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 16 octobre 2010 - 16 oct. 2010 à 16:54
savims Messages postés 2 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 16 octobre 2010 - 16 oct. 2010 à 16:59
Bonjour,

Je ne suis pas un pro et j'ai un petit probleme

<%
'***********************************************************
'Permet de supprimer un fichier a partir de Vb cote serveur*
'***********************************************************

function supprimg(img)
dim bt
set bt=Server.CreateObject("Scripting.FileSystemObject")
filex = Server.MapPath(".") & "\miniatures" & img & ".jpeg"
if bt.FileExists(filex)=true then
response.write filex & " Supprimer"
bt.DeleteFile(filex)
else
end if
end function
%>

<SCRIPT LANGUAGE = "VBScript">
sub Window_Onload

nb = 18
ht = "<%supprimg(18)%>"

document.body.innerHTML = ht
End sub
</SCRIPT>

Cela fonctionne le fichier et bien supprimer cote serveur par contre si je remplace la ligne :

ht = "<%supprimg(18)%>"

par

ht = "<%supprimg(" & "18)%>"

ou

ht = "<%supprimg(" & nb & "18)%>"

Cela ne fonctionne plus


Si quelqu'un pouvait m'aider cela serait super car je seche

Merci

1 réponse

savims Messages postés 2 Date d'inscription lundi 13 décembre 2004 Statut Membre Dernière intervention 16 octobre 2010
16 oct. 2010 à 16:59
Pardon c'est ou

ht = "<%supprimg(" & nb & ")%>"
0
Rejoignez-nous