Forum de discussion
Forum « Programmation ASP » (archives)
Re: Flash - asp - fichier.txt
Envoyé: 13 novembre 2001, 6h08 par blues
c'est possible que je soit très nul au point de ne pas savoir ce que je doit faire avec le bout de code que tu vient de m'envoyer, mais il démaré d'emblé avec une érreur...
Microsoft VBScript compilation error '800a0400'
Expected statement
/kidsbox/scores.asp, line 11
Option explicit
^
le code que tu m'a forurni je l'ai inséré à la suite du mien...
<% =Request.QueryString("pseudo1")%>
<% =Request.QueryString("score1")%>
<% =Request.QueryString("pseudo2")%>
<% =Request.QueryString("score2")%>
<% =Request.QueryString("pseudo3")%>
<% =Request.QueryString("score3")%>
<%option explicit%>
<%response.buffer=true%>
<%
Dim nFich, nPath, fs, file, str
nFich = "scores.txt"
str = "score1="&Request.QueryString("score1")&"&score2="&Request.QueryString("score2")&"&score3="&Request.QueryString("score3")&"&pseudo1="&Request.QueryString("pseudo1")&"&pseudo2="&Request.QueryString("pseudo2")&"&pseudo3="&Request.QueryString("pseudo3")
nPath = Server.MapPath(".") & "\" & nFich
set fs = CreateObject("Scripting.FileSystemObject")
if NOT fs.FileExists(path) then
set file = fs.CreateTextFile(path)
file.Close()
end if
set file = fs.OpenTextFile(path, 8)
file.WriteLine(str)
file.Close()
Set fs = Nothing
%>
et nada rawet ...
j'ai probablement fait une connerie de base...mais comme je te l'ai dit, je ne suis pas programmeur , mais dessinateur.
merci de ta patience.
Réponses
|