HEEELLLPPP !!! Récupérer la valeur d'un MsgBox sur le serveur

Voici mon problème :
je fais un upload d'un fichier.
Sur le serveur, je vérifie si le fichier existe.
S'il existe, je renvoie au client un MsgBox, demandant si l'utilisateur veut écraser le fichier.

<% 'partie du code se trouvant dans la page (test.asp) qui crée dynamiquement une page indiquant l'état de l'upload (fichier uploadé ou non).

FichierExiste(NouveauFic)
if (Existe = true) then
response.Write "<script language=""vbs"">"
response.Write "Dim Msg, Style, Title"
response.Write "Msg = ""Le fichier existe déjà. Voulez-vous l'écraser?"" "
response.Write "Style = vbYesNo + vbQuestion"
response.Write "Title = ""Fichier existe"" "
response.Write "Reponse = MsgBox(Msg,Style,Title)"
response.Write "</script>"
%>

Comment faire pour récupérer la valeur de retour "Reponse" au niveau de la page "test.asp", afin de gérer l'existance du fichier?

Je vous remercie d'avance pour votre aide.

C'est bien gentil d'avoir répondu, mais je ne suis pas vraiment satisfait de ta réponse.

Pour ta petite remarque, le fait d'utiliser vbscript ne me perturbe pas du tout, car c'est pour un intranet où on utilise qu'IE.

Ma question, c'est de savoir comment je peux récupérer la valeur du dialog box au sein de la page qui comprend la classe ctrl_filename de Nix (voir upload sur ce site).

Bonjour
Je ne connais pas cette class et je ne l'ai pas trouvée
Cordialement
Roro webDev

Tu pourras trouver le code et le fichier ZIP à cette adresse :
http://www.aspfr.com/code.aspx?ID=8727

J'ai trouvé !
Voici une partie du code. Ce code se trouve dans un fichier qui construit la page de retour.
Si l'utilisateur clique sur "oui", OK prend la valeur true.
Si l'utilisateur clique sur "non", OK prend la valeur false.


set Reponse = new RetourInfo
response.Write "<script language=""vbscript"" runat=SERVER>"
response.Write "Dim Msg, Style, Title"
response.Write "Msg = ""Le fichier existe déjà. Voulez-vous l'écraser?"" "
response.Write "Style = vbYesNo + vbQuestion"
response.Write "Title = ""Fichier existe"" "
response.Write "Reponse.Reponse = MsgBox(Msg,Style,Title)"
response.Write "</script>"

if Reponse.Reponse = vbYes then
OK = true
else
OK = false
End if


ici, Reponse.Reponse est un paramètre dans la classe RetourInfo

Sorry

J'ai été trop rapide. Ca ne fonctionne pas.