Avatar billede tummas Nybegynder
18. september 2002 - 14:42 Der er 5 kommentarer og
1 løsning

txtfelt til txtfil

hvordan kan jeg få læst det der bliver skrevet i txtfelterne ind i en txtfil?? Her er min lille kode

<HTML>
  <HEAD>
    <TITLE> Tilmelding til køreskole.</TITLE>
  </HEAD>

  <BODY>
    <H2><font color="#0066FF">Indtast venligst oplysninger for tilmelding          ver 1.2</H2>
    <span style="position: absolute; left: 400; top: 410">
      <img border="0" src="Thormod.jpg" width="200" height="130">
    </span>
    <H2>hos Erik-Kørelærer</H2>
    <BR>
    <BR>


    <!-- <FORM ACTION = "Elev.txt" METHOD=POST> -->
      <TABLE STYLE="HEIGHT: 200px; WIDTH: 300px">

   
      <IFRAME ALIGN="center" FRAMEBORDER="0" HEIGHT="150px" MARGINHEIGHT="10px" MARGINWIDTH="5px"
        NAME="text" SCROLLING="auto" SRC="hold.txt" WIDTH="600px">
      </IFRAME>

     

    <BR>
    <BR>
      <TR>
        <TD><font color="#0066FF">  Navn.........</TD>
        <TD><INPUT ALIGN=left NAME= navn SIZE="40"></TD>
      </TR>
        <TD><font color="#0066FF">  Adresse......</TD>
        <TD><INPUT ALIGN=left NAME= adresse SIZE=40>&nbsp;</TD>
      </TR>
        <TD><font color="#0066FF">  Postnummer...</TD>
        <TD><INPUT ALIGN=left NAME= postnummer SIZE=6>&nbsp;</TD>
      </TR>
        <TD><font color="#0066FF">  By...........</TD>
        <TD><INPUT ALIGN=left NAME= by SIZE=20>&nbsp;</TD>
      </TR>
        <TD><font color="#0066FF">  Tlf 1........</TD>
        <TD><INPUT ALIGN=left NAME= tlf1 SIZE=20>&nbsp;</TD>
      </TR>
        <TD><font color="#0066FF">  Tlf 2........</TD>
        <TD><INPUT ALIGN=left NAME= tlf2 SIZE=10>&nbsp;</TD>
      </TR>
        <TD><font color="#0066FF">  Holdnummer.. </TD>
        <TD><INPUT ALIGN=left NAME= holdnummer SIZE="6"></TD>
      <TR>
      <TABLE>
      </TR>
´    <BR><BR>
<%
Dim fso, f, filespec, nome
Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("elev.txt")
Set f = fso.OpenTextFile(filespec,2)

' Skriv tekst i en linie
f.Write Request.Form("navn")

' Åbn filen til læsning og Læs linie for linie
Set f = fso.OpenTextFile(filespec,1)
Do While not f.AtEndOfStream
  Response.write f.ReadLine & "<br>"
Loop
f.Close
%>
      <INPUT TYPE="submit" NAME="tilmeld" VALUE="Send tilmelding">
      </FORM>

  </BODY>
</HTML>
Avatar billede tummas Nybegynder
18. september 2002 - 14:43 #1
er tilbage imorgen torsdag:-)
Avatar billede stoffer Nybegynder
18. september 2002 - 14:54 #2
du bruger jo bare den samme:

Set fso = CreateObject("Scripting.FileSystemObject")
filespec = Server.Mappath("elev.txt")
Set f = fso.OpenTextFile(filespec,2)
f.writeLine request.form("postnummer")
f.close
Avatar billede stoffer Nybegynder
18. september 2002 - 14:54 #3
svar
Avatar billede stoffer Nybegynder
18. september 2002 - 14:57 #4
Function WriteLineToFile
  Const ForReading = 1, ForWriting = 2
  Dim fso, f
  Set fso = CreateObject("Scripting.FileSystemObject")
  Set f = fso.OpenTextFile("c:\testfile.txt", ForWriting, True)
  f.WriteLine "Hello world!"
  f.WriteLine "VBScript is fun!"
  Set f = fso.OpenTextFile("c:\testfile.txt", ForReading)
  WriteLineToFile = f.ReadAll
End Function
Avatar billede tummas Nybegynder
19. september 2002 - 09:50 #5
men der bliver stadigvæk ikke skrevet noget til txt-filen, kunne det tænkes at hele asp delen skulle placeres et andet sted i koden for at funke.
Avatar billede tummas Nybegynder
19. september 2002 - 13:34 #6
Har selv fundet ud af brugt en anden løsning
Avatar billede Ny bruger Nybegynder

Din løsning...

Tilladte BB-code-tags: [b]fed[/b] [i]kursiv[/i] [u]understreget[/u] Web- og emailadresser omdannes automatisk til links. Der sættes "nofollow" på alle links.

Loading billede Opret Preview
Kategori
Kurser inden for grundlæggende programmering

Log ind eller opret profil

Hov!

For at kunne deltage på Computerworld Eksperten skal du være logget ind.

Det er heldigvis nemt at oprette en bruger: Det tager to minutter og du kan vælge at bruge enten e-mail, Facebook eller Google som login.

Du kan også logge ind via nedenstående tjenester