Trucsweb.com

Forum de discussion

 Forum « Programmation ASP » (archives)

formulaire ajout de soft -> écrit dans un fichier .txt

Envoyé: 17 août 2006, 3h57 par abuz


Bonjour,

J'ai un petit soucis avec mon code, j'explique le fonctionement de mon forumlaire:

Un simple forumlaire html qui permet à l'utilisateur d'ajouter un soft avec des fonctions asp qui va écrire dans un fichier .txt et un fichier .csv.

J'ai une erreur avec mon 'Scripting.FileSystemObject'.

Erreur:

# Error Type:
Microsoft VBScript runtime (0x800A01AD)
ActiveX component can't create object: 'Scripting.FileSystemObject'
/formulaire/index.asp, line 26

Code:

<%@ LANGUAGE="VBSCRIPT" %>
<%option explicit%>

<%

Dim Contenu1, Contenu2, Contenu3, Contenu4, Contenu5, Contenu6, Contenu7, Contenu8, LeMode, Fs, fichiercsv

Function EcrireDansFichiercsv(Fichier, Ajouter)

'On Error Resume Next

If Ajouter Then
LeMode = 8
Else
LeMode = 2
End If

Contenu1 = Request.QueryString("T1")
Contenu2 = Request.QueryString("T2")
Contenu3 = Request.QueryString("T3")
Contenu4 = Request.QueryString("T4")
Contenu5 = Request.QueryString("T5")
Contenu6 = Request.QueryString("T6")
Contenu7 = Request.QueryString("T7")
Contenu8 = Request.QueryString("T8")
Set Fs = CreateObject("Scripting.FileSystemObject")
Set fichiercsv = Fs.OpenTextFile(Fichier, LeMode, true)
fichiercsv.Write(Contenu1) & vbtab
fichiercsv.Write(Contenu2) & vbtab
fichiercsv.Write(Contenu3) & vbtab
fichiercsv.Write(Contenu4) & vbtab
fichiercsv.Write(Contenu5) & vbtab
fichiercsv.Write(Contenu6) & vbtab
fichiercsv.Write(Contenu7) & vbtab
fichiercsv.Write(Contenu8) & vbcrlf
fichiercsv.Close
Set fichiercsv = Nothing
Set Fs = Nothing

End Function

if Request.QueryString("T1") <> "" then
Call EcrireDansFichiercsv("C:\Inetpub\wwwroot\formulaire\licence.csv", True)
end if



Dim Contenu12, Contenu22, Contenu32, Contenu42, Contenu52, Contenu62, Contenu72, Contenu82, fichiertxt

Function EcrireDansFichiertxt(Fichier2, Ajouter2)

'On Error Resume Next

If Ajouter2 Then
LeMode = 8
Else
LeMode = 2
End If

Contenu12 = Request.QueryString("T1")
Contenu22 = Request.QueryString("T2")
Contenu32 = Request.QueryString("T3")
Contenu42 = Request.QueryString("T4")
Contenu52 = Request.QueryString("T5")
Contenu62 = Request.QueryString("T6")
Contenu72 = Request.QueryString("T7")
Contenu82 = Request.QueryString("T8")
Set Fs = CreateObject("Scripting.FileSystemObject")
Set fichiertxt = Fs.OpenTextFile(Fichier2, LeMode, true)
fichiertxt.Write "Editeur: "
fichiertxt.Write(Contenu12) & vbcrlf
fichiertxt.Write "Nom: "
fichiertxt.Write(Contenu22) & vbcrlf
fichiertxt.Write "Version: "
fichiertxt.Write(Contenu32) & vbcrlf
fichiertxt.Write "URL éditeur: "
fichiertxt.Write(Contenu42) & vbcrlf
fichiertxt.Write "Licence: "
fichiertxt.Write(Contenu52) & vbcrlf
fichiertxt.Write "Notes: "
fichiertxt.Write(Contenu62) & vbcrlf
fichiertxt.Write "Déscription: "
fichiertxt.Write(Contenu72) & vbcrlf
fichiertxt.Write "Créateur du formulaire: "
fichiertxt.Write(Contenu82)
fichiertxt.Write " le "
fichiertxt.Write(date()) & vbcrlf
fichiertxt.Write "----------------------------------" & vbcrlf
fichiertxt.Close
Set fichiertxt = Nothing
Set Fs = Nothing

End Function

if Request.QueryString("T1") <> "" then
Call EcrireDansFichiertxt("C:\Inetpub\wwwroot\formulaire\licence.txt", True)
end if

%>

<html>
<head>
<meta http-equiv="Content-Language" content="fr-ch">
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Formulaire</title>
<LINK rel="stylesheet" type="text/css" href="css.css">

<script language="JavaScript">
function verifForm() {
if (confirm('Est-vous sûr des données inscrites ?')) {
return true;
}
else {
return false;
}
}
</script>

</head>
<body>
<table border="0" CELLSPACING="0" CELLPADDING="0">
<tr>
<td rowspan="2"><IMG src="images/Getimage.gif"></td>
<td height="70"><IMG src="images/logoware.gif"><br><IMG src="images/barre.jpg" width=820></td>
</tr>
<tr>
<td height="718" valign="TOP">
<br><div class="titre">  Enregistrement d'un nouveau soft</div><br>
                                                                                                                                      <B>Exemple:</B>
<form method="get" name="formulaire" action="fin.asp" onSubmit="javascript:return verifForm();">
<table border="0">
<tr>
<td>
<table border="0">
<tr>
<td width="10"></td>
<td><DIV class="texte">Editeur</div></td>
<td><input type="text" name="T1" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Nom</div></td>
<td><input type="text" name="T2" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Version</div></td>
<td><input type="text" name="T3" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">URL éditeur</div></td>
<td><input type="text" name="T4" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Licence</div></td>
<td><input type="text" name="T5" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Notes</div></td>
<td><input type="text" name="T6" size="30"></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Description</div></td>
<td><textarea name="T7" rows="10" cols="40"></textarea></td>
</tr>
<tr>
<td width="10"></td>
<td><DIV class="texte">Créateur du formulaire</div></td>
<td><input type="text" name="T8" size="1" maxlength="3"></td>
</tr>
<tr>
<td>  </td>
</tr>
<tr colspan="2">
<td width="10"></td>
<td><input type="submit" value="Envoyer" name="B1"></td>
</tr>
</table>
</td>
<td width="30"></td>
<td valign="TOP"><img src="images/exemple.jpg"></td>
</tr>
</table>
</form>
</td>
</tr>
</table>
</body>
</html>

Merci d'avance


Réponses

 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt abuz24/8/2006
 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt abuz17/8/2006
 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt abuz17/8/2006
 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt Oznog24/8/2006
 sp spRe: formulaire ajout de soft -> écrit dans un fichier .txt abuz8/9/2006
Aucun médias sociaux
X

Trucsweb.com Connexion

X

Trucsweb.com Mot de passe perdu

X

Trucsweb.com Conditions générales

Conditions

Responsabilité

La responsabilité des Trucsweb.com ne pourra être engagée en cas de faits indépendants de sa volonté. Les informations mises à disposition sur ce site le sont uniquement à titre purement informatif et ne sauraient constituer en aucun cas un conseil ou une recommandation de quelque nature que ce soit.

Aucun contrôle n'est exercé sur les références et ressources externes, l'utilisateur reconnaît que les Trucsweb.com n'assume aucune responsabilité relative à la mise à disposition de ces ressources, et ne peut être tenue responsable quant à leur contenu.

Droit applicable et juridiction compétente

Les règles en matière de droit, applicables aux contenus et aux transmissions de données sur et autour du site, sont déterminées par la loi canadienne. En cas de litige, n'ayant pu faire l'objet d'un accord à l'amiable, seuls les tribunaux canadien sont compétents.

X

Trucsweb.com Trucsweb

X

Trucsweb.com Glossaire

X

Trucsweb.com Trucsweb

X

Trucsweb.com Trucsweb

Conditions

Aucun message!

Merci.

X
Aucun message!
X

Trucsweb.com Créer un compte