LISTER UN REPERTOIRE, VISUALISER UN FICHIER (MODE TXT), EFFACER UN FICHIER (JSCR
cs_Jackboy
Messages postés
757
Date d'inscription
vendredi 7 septembre 2001
Statut
Membre
Dernière intervention
19 juin 2008
-
18 août 2004 à 21:31
Bidossessi Messages postés 3 Date d'inscription dimanche 10 février 2008 Statut Membre Dernière intervention 23 mai 2008 - 20 mai 2008 à 11:40
Bidossessi Messages postés 3 Date d'inscription dimanche 10 février 2008 Statut Membre Dernière intervention 23 mai 2008 - 20 mai 2008 à 11:40
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
https://codes-sources.commentcamarche.net/source/9092-lister-un-repertoire-visualiser-un-fichier-mode-txt-effacer-un-fichier-jscript-corriger
20 mai 2008 à 11:40
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
----------^
18 août 2004 à 21:31