gæstebog uden database?

text file

det svar kan jeg ikke bruge til noget

tag dog først at lukke nogle af de spørgsmål du har åbnet. Du skal ikke regne med svar før det er gjort.

Dette skulle virke, hvis du har dine rettigheder i orden ;o)

Bemærk stigen til gæstebogen i GBPRCO.ASP - Den skal du formodentlig ændre til noget du kan bruge.

Husk, at gøre som Catbody skriver. LUK DINE GAMLE SPØRGSMÅL!

---- GB.HTM ----

<html>

<head>
<title>Guest Book</title>
</head>

<body bgcolor="#FFFFFF">

<h1>Guest Book</h1>

<p>Welcome to my guest book! Thank you for visiting my site and
thank you for taking the time to give me just a little bet of
information about yourself.</p>

<form method="POST" action="gbproc.asp">
<p>First Name:<input type="text" size="20" name="FirstName"></p>

<p>Last Name:<input type="text" size="20" name="LastName"></p>

<p>Gender: <input type="radio" checked name="Gender"
value="Male">Male <input type="radio" name="Gender"
value="Female">Female</p>

<p>Age:<input type="text" size="10" name="Age"></p>

<p>Email Address: <input type="text" size="30" name="Email"></p>

<p><input type="submit" name="Submit" value="Thank You!"></p>
</form>
</body>
</html>

---- GBLIST.ASP ----

<% Option Explicit %>
<html>
<head>
<title>Guest Book List</title>
</head>
<body>


<%
Dim filesys, peoplefile, fname, lname, gender, age, email
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("c:\inetpub\wwwroot\GuestBk\gbpeople.txt", 1)
do while not peoplefile.AtEndOfStream
  fname = peoplefile.ReadLine
  lname = peoplefile.ReadLine
  gender = peoplefile.ReadLine
  age = peoplefile.ReadLine
  email = peoplefile.ReadLine

  Response.Write fname & "<br>"
  Response.Write lname & "<br>"
  Response.Write gender & "<br>"
  Response.Write age & "<br>"
  Response.Write email & "<p>"
loop
peoplefile.Close
%>


</body>
</html>


---- GBPROC.ASP ----

<% Option Explicit %>
<html>
<head>
<title>Guest Book Response</title>
</head>
<body>

<%=Request.Form("FirstName")%><br>
<%=Request.Form("LastName")%><br>
Gender: <%=Request.Form("Gender")%><br>
Age: <%=Request.Form("Age")%><br>
Email: <%=Request.Form("Email")%><p>
<p>
<%
Dim filesys, peoplefile
Set filesys = CreateObject("Scripting.FileSystemObject")
Set peoplefile = filesys.OpenTextFile("C:\inetpub\wwwroot\GB\gbpeople.txt", 8, true)
peoplefile.WriteLine Request.Form("FirstName")
peoplefile.WriteLine Request.Form("LastName")
peoplefile.WriteLine Request.Form("Gender")
peoplefile.WriteLine Request.Form("Age")
peoplefile.WriteLine Request.Form("Email")
peoplefile.Close
%>

<h3>This information has been saved.</h3>

<a href="gblist.asp">See others who signed in.</a>
</body>
</html>

Set peoplefile = filesys.OpenTextFile("c:\inetpub\wwwroot\GuestBk\gbpeople.txt", 1)

i GBLIST.ASP skal self være den samme som den i GBPROC.ASP - min fejl ;o)

Hmmm det skulle have været et svar.. det får du her ;o)

tak for det soda, men jeg bruger ikke iss, men du får point for dit lange svar

Tak for det... Du skriver heller ikke hvad du bruger, så jeg tog et skud i tågen. Ramte forkert :o/ - Takker for points