Skrive til flere txt-filer

Set FSO = CreateObject("Scripting.FileSystemObject")

Spec = Server.Mappath("tekstfil1.txt")
Set File = fso.OpenTextFile(Spec, 2)
File.WriteLine "Bøvs"
File.Close
Spec = Server.Mappath("tekstfil2.txt")
Set File = fso.OpenTextFile(Spec, 2)
File.WriteLine "Bøvs"
File.Close
Spec = Server.Mappath("tekstfil3.txt")
Set File = fso.OpenTextFile(Spec, 2)
File.WriteLine "Bøvs"
File.Close
Spec = Server.Mappath("tekstfil4.txt")
Set File = fso.OpenTextFile(Spec, 2)
File.WriteLine "Bøvs"
File.Close

Set FSO = Nothing

ok -- kan du forklare mere hvordan jeg skal behandle koden?? altså den skal vel starte med <% osv...

Eller lave en fiks funktion:

Function UpdateTXT(Filename, Text)
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Spec = Server.Mappath(Filename & ".txt")
  Set File = FSO.OpenTextFile(Spec, 2)
  File.WriteLine Text
  File.Close
  Set FSO = Nothing
End Function


UpdateTXT("filnavn", "Bøvs")

Du behøver blot at sætte <% i toppen og %> i bunden. Hermed har du angivet, at ASP-fortolkeren skal se nærmere på koden, da kun denne forstår den.

Og så skal du naturligvis udskifte det charmerende ord "Bøvs" med den tekst, den pågældende fil skal indeholde, samt angive filnavnet på tekstfilen.

tror du har misforstået mit spøgsmål lidt..
jeg vil jo gerne have 4 forms som man kan skrive i..???

Hvorfor 4 forms?
Du kan vel nøjes med 4 input-felter på den samme form?

når jeg bruger din kode skriver den jo bare direkte til filerne uden mulighed for at skrive noget selv -- ik?

the_bma_man --> ja ok -- min fejl mente textfields

Kan du lave en html-form selv?
Hvis ja - så lad den poste til en fil, som ser (ca.) sådan ud:
<%
Felt1 = Request.Form("Felt1")
Felt2 = Request.Form("Felt2")
Felt3 = Request.Form("Felt3")
Felt4 = Request.Form("Felt4")

'Så bruge du oasens function
UpdateTXT "Fil1", Felt1
UpdateTXT "Fil2", Felt2
UpdateTXT "Fil3", Felt3
UpdateTXT "Fil4", Felt4
%>

jeg får denne fejl så:

Microsoft VBScript runtime error '800a000d'

Type mismatch: 'UpdateTXT'

/warner/admin/konkurrence/opret.asp, line 49


skal jeg have dette med i oasens funktion??
Function UpdateTXT(Filename, Text)
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Spec = Server.Mappath(Filename & ".txt")
  Set File = FSO.OpenTextFile(Spec, 2)
  File.WriteLine Text
  File.Close
  Set FSO = Nothing
End Function

Du skal have funktionen med i din asp-fil (der indeholder det, jeg skrev)

Mine forms:

<form name="form1" method="post" action="opret.asp">
                <table width="100%%" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td>
                      <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Sp&oslash;rgsm&aring;l:</font></b></div>
                    </td>
                    <td>&nbsp;</td>
                    <td>
                      <input type="text" name="spg">
                    </td>
                  </tr>
                  <tr>
                    <td width="40%">
                      <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Svarmulighed
                        1:</font></b></div>
                    </td>
                    <td width="1%">&nbsp;</td>
                    <td>
                      <input type="text" name="svar1">
                    </td>
                  </tr>
                  <tr>
                    <td>
                      <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Svarmulighed
                        2:</font></b></div>
                    </td>
                    <td>&nbsp;</td>
                    <td>
                      <input type="text" name="svar2">
                    </td>
                  </tr>
                  <tr>
                    <td>
                      <div align="right"><b><font size="1" face="Verdana, Arial, Helvetica, sans-serif">Svarmulighed
                        3: </font></b></div>
                    </td>
                    <td>&nbsp;</td>
                    <td>
                      <input type="text" name="svar3">
                    </td>
                  </tr>
                  <tr>
                    <td>&nbsp;</td>
                    <td>&nbsp;</td>
                    <td>
                      <input type="submit" name="Submit" value="Opret ny konkurrence">
                    </td>
                  </tr>
                </table>
                <br>
              </form>




Siden den refererer til (opret.asp):
<%
Felt1 = Request.Form("spg")
Felt2 = Request.Form("svar1")
Felt3 = Request.Form("svar2")
Felt4 = Request.Form("svar3")

UpdateTXT "spg", Felt1
UpdateTXT "svar1", Felt2
UpdateTXT "svar2", Felt3
UpdateTXT "svar3", Felt4
%>

kan du se noget forkert?

Sorry, jeg troede bare det var selve funktionen til skrivningen, du søgte.

UpdateTXT("spg", Felt1)
UpdateTXT("svar1", Felt2)
UpdateTXT("svar2", Felt3)
UpdateTXT("svar3", Felt4)

Ja, du skal have funktionen med. Opret.asp:
<%
Function UpdateTXT(Filename, Text)
  Set FSO = CreateObject("Scripting.FileSystemObject")
  Spec = Server.Mappath(Filename & ".txt")
  Set File = FSO.OpenTextFile(Spec, 2)
  File.WriteLine Text
  File.Close
  Set FSO = Nothing
End Function



Felt1 = Request.Form("spg")
Felt2 = Request.Form("svar1")
Felt3 = Request.Form("svar2")
Felt4 = Request.Form("svar3")

UpdateTXT "spg", Felt1
UpdateTXT "svar1", Felt2
UpdateTXT "svar2", Felt3
UpdateTXT "svar3", Felt4
%>

Lukketid, caroc?