Tilføje til fil

hvad er det for en slags fil??

Set Filesystem = CreateObject(\"Scripting.FileSystemObject\")
Set peoplefile = Filesystem.OpenTextFile(\"c:\\Inetpub\\wwwroot\\asp_dum\\gaest_bog\\gbpeople.txt\", 8, true)

Det er bare en helt almindelig tekst fil (*.txt). Min plan var, at lave en gaeste bog, uden at bruge databasen....

- tak for det hurtige svar!

Første side gb.htm

<html>
<head>
<title>G&aelig;stebog</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\" text=\"#000000\">
<table width=\"750\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td>Velkommen til min test g&aelig;stebog</td>
  </tr>
</table>
<table width=\"750\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td height=\"236\">
      <form method=\"post\" action=\"gbproc.asp\">
        <p>&nbsp;</p>
        <p>Fornavn :
          <input type=\"text\" name=\"Fornavn\" size=\"20\">
        </p>
        <p>Efternavn :
          <input type=\"text\" name=\"Efternavn\" size=\"20\">
        </p>
        <table width=\"25%\" border=\"0\">
          <tr>
            <td width=\"22%\">K&oslash;n :</td>
            <td width=\"35%\">
              <input type=\"radio\" name=\"Koen\" value=\"Mand\">
              Mand </td>
            <td width=\"43%\">
              <input type=\"radio\" name=\"Koen\" value=\"Kvinde\">
              Kvinde </td>
          </tr>
        </table>
        <p>Alder :
          <input type=\"text\" name=\"Alder\" size=\"10\">
        </p>
        <p>Email adresse :
          <input type=\"text\" name=\"Email\" size=\"50\">
        </p>
        <p>
          <input type=\"submit\" name=\"Submit\" value=\"Tilf&oslash;j i g&aelig;stebogen\">
          <input type=\"reset\" name=\"Reset\" value=\"Slet alt\">
        </p>
      </form>
    </td>
  </tr>
</table>
</body>
</html>


Næste side gbproc.asp

<% Option Explicit
Dim Fornavn, Efternavn, Koen, Alder, Email, Filesystem, peoplefile
Set Filesystem = CreateObject(\"Scripting.FileSystemObject\")
Set peoplefile = Filesystem.OpenTextFile(\"c:\\Inetpub\\wwwroot\\asp_dum\\gaest_bog\\gbpeople.txt\", 8, true)
peoplefile.WriteLine Request.Form(\"Fornavn\")
peoplefile.WriteLine Request.Form(\"Efternavn\")
peoplefile.WriteLine Request.Form(\"Koen\")
peoplefile.WriteLine Request.Form(\"Alder\")
peoplefile.WriteLine Request.Form(\"Email\")
peoplefile.Close
Fornavn = Request.Form(\"Fornavn\")
Efternavn = Request.Form(\"Efternavn\")
Koen = Request.Form(\"Koen\")
Alder = Request.Form(\"Alder\")
Email = Request.Form(\"Email\")
%>
<html>
<head>
<title>G&aelig;ste bog svar</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
<SCRIPT ID=clientEventHandlersVBS LANGUAGE=vbscript>
<!--

Sub document_ondatasetcomplete

End Sub

-->
</SCRIPT>
</head>

<body bgcolor=\"#FFFFFF\">
Fornavn : <%=Fornavn%><br>
Efternavn : <%=Efternavn%><br>
Køn : <%=Koen%><br>
Alder : <%=Alder%><br>
Email : <%=Email%>
<p>
<p>
</p>
<h3>Disse informationer er blevet gemt. </h3>
<p><a href=\"gblist.asp\">Se andre som har skrevet i min g&aelig;stebog</a> Denne
  side som du skulle komme til her er ikke f&aelig;rdig endnu :-/</p>
<p><br>
</p>
</body>
</html>


se gæste bog gblist.asp

<%Option Explicit
Dim Filesys, Peoplefile, Fnavn, Enavn, Koen, Alder, Email
Set Filesys = CreateObject(\"Scripting.FileSystemObject\")
Set Peoplefile = Filesys.OpenTextFile(\"c:\\inetpub\\wwwroot\\asp_dum\\gaest_bog\\gbpeople.txt\" , 1)
%>
<html>
<head>
<title>Vis andre som har skrevet i g&aelig;stebogen</title>
<meta http-equiv=\"Content-Type\" content=\"text/html; charset=iso-8859-1\">
</head>

<body bgcolor=\"#FFFFFF\">
<table width=\"750\" border=\"1\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td>
      <div align=\"center\"><b>Her er listen p&aring; dem der har skrevet i G&aelig;stebogen</b></div>
    </td>
  </tr>
</table>
<br>
<table width=\"750\" border=\"0\" cellspacing=\"0\" cellpadding=\"0\" align=\"center\">
  <tr>
    <td>
      <hr color=\"#CC0000\">
      <%
Do While Not Peoplefile.AtEndOfStream
Fnavn = Peoplefile.ReadLine
Enavn = Peoplefile.ReadLine
Koen = Peoplefile.ReadLine
Alder = Peoplefile.ReadLine
Email = Peoplefile.ReadLine
Response.Write Fnavn & \"<br>\"
Response.Write Enavn & \"<br>\"
Response.Write Koen & \"<br>\"
Response.Write Alder & \"<br>\"
Response.Write Email & \"<p>\"
%>
      <hr color=\"#CC0000\">
      <%
Loop
Peoplefile.Close
%> </td>
  </tr>
</table>
</body>
</html>

rart at vi andre også får koden så vi også kan være med :)

OK, det ser jo glimrende ud - tusinde tak. Lad mig lige proeve det foerst:)

Husk at lave en tekst fil der hedder gbpeople.txt og giv IUSSR_Maskinnavn rettigheder til at skrive til filen

Det var et hurtig og meget klart svar! Det viker bare, som det skal. Mange, mange tak:)

Altid til tjeneste :-))