LISTER UN REPERTOIRE, VISUALISER UN FICHIER (MODE TXT), EFFACER UN FICHIER (JSCR

Signaler
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
Bidossessi
Messages postés
3
Date d'inscription
dimanche 10 février 2008
Statut
Membre
Dernière intervention
23 mai 2008
-
Cette discussion concerne un article du site. Pour la consulter dans son contexte d'origine, cliquez sur le lien ci-dessous.

https://codes-sources.commentcamarche.net/source/9092-lister-un-repertoire-visualiser-un-fichier-mode-txt-effacer-un-fichier-jscript-corriger

Bidossessi
Messages postés
3
Date d'inscription
dimanche 10 février 2008
Statut
Membre
Dernière intervention
23 mai 2008

Bonjour
Moi j'ai une recupération de données à faire dans un fichier de type txt mais avec mon script j'ai que des erreurs voilà le script:

<% If Request.Form("domain")<>""then %>

<%= Request.Form("domain")%>



<% champ1=Request.Form("champ1")
if champ1<>""then%>
<%=champ1%>


<% end if%>
<% champ1 =champ1 & "" & Request.Form("domain")
end if%>

<% If Request.Form("user")<>""then %>
Votre champ contenait
<%= Request.Form("user")%>



<% champ1=Request.Form("champ1")
if champ1<>""then%>
<%=champ1%>


<% end if
champ1 =champ1 & "" & Request.Form("user")
end if%>

<% If Request.Form("password")<>""then %>
Votre champ contenait
<%= Request.Form("password")%>



<% champ1=Request.Form("champ1")
if champ1<>""then%>
<%=champ1%>


<% end if
champ1 =champ1 & "" & Request.Form("password")
end if%>

<% If Request.Form("cluster")<>""then %>
Votre champ contenait
<%= Request.Form("cluster")%>



<% champ1=Request.Form("champ1")
if champ1<>""then%>
<%=champ1%>


<% end if
champ1 =champ1 & "" & Request.Form("cluster")
end if%>

<% If Request.Form("application")<>""then %>
Votre champ contenait
<%= Request.Form("application")%>



<% champ1=Request.Form("champ1")
if champ1<>""then%>
<%=champ1%>


<% end if
champ1 =champ1 & "" & Request.Form("application")
end if%>

<% If Request.Form("account")<>""then %>
<%=Request.Form("account")%>



et voilà l'erreur qui s'affiche:
Erreur de compilation Microsoft VBScript error '800a0401'
Fin d'instruction attendue
/iisHelp/common/500-100.asp, line 11
Dim objASPError, blnErrorWritten, strServername, strServerIP, strRemoteIP Dim strMethod, lngPos, datNow, strQueryString, strURL
--------------------------------------------------------------------------^
Erreur de compilation Microsoft VBScript error '800a03f9'
'Then' attendu
/carto/moteur.asp, line 104
if arrPaco[0]="ReportLabel" then
----------^
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008

ouin ben plein d'erreur !! peut etre faire de beau ficher et un zip fonctionnel sa serai bien, mais pour l'instant erreur javascript...