hoi, ik heb de broncode uit een boek, maar het werkt niet, en 'k weet niet aan wat het ligt.
index.html of index.asp
Edit.inc
Weergave.html of weergave.asp
Help me plzzzzzz, ik raak er echt niet aan uit
De URL is: http://www27.brinkster.com/pievdb
index.html of index.asp
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
| <!--#Include virtual="/inc/edit.inc"--> <HTML> <HEAD> <TITLE>Nieuwe vermelding in het gastenboek</TITLE> </HEAD> <H1>Nieuwe vermeldinge in het gastenboek</H1> <FORM METHOD="POST"> Naam: <INPUT TYPE="TEXT" NAME="Naam" SIZE=20><BR> E-Mailadres: <INPUT TYPE="TEXT" NAME="Email" SIZE=20><BR> URL: <INPUT TYPE="TEXT" NAME="URL" SIZE=20><BR> Opmerkingen: <TEXTAREA NAME="Opmerkingen" ROWS=8 COLS=50></TEXTAREA><BR> <INPUT TYPE="SUBMIT" NAME="Button" VALUE="Opslaan"> </FORM> </BODY> </HTML> |
Edit.inc
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
| <%
If Request.Form("Button") = "Opslaan" Then
Set Bestandsobject = server.createobject( _
"Scripting.Filesystemobject")
Set Tekstbestand = Bestandsobject.OpenTextFile( _
Server.MapPath("gastenboek.txt"), 8, TRUE)
Tekstbesand.WriteLine(Request.Form("Naam"))
Tekstbesand.WriteLine(Request.Form("Email"))
Tekstbesand.WriteLine(Request.Form("URL"))
Tekstbesand.WriteLine(Request.Form("Opmerkingen"))
Tekstbesand.WriteLine("<!-- EINDE-->")
Tekstbestand.Close
End If
%> |
Weergave.html of weergave.asp
code:
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
| <HTML>
<HEAD>
<TITLE>Gastenboek</TITLE>
</HEAD>
<BODY>
<H1>Het gastenboek bevat de volgende vermeldingen</H1>
<PRE>
<%
Set Bestandsobject = Server.CreateObject( _
"Scripting.FileSystemObject")
Set Tekstbestand = Bestandsobject.OpenTextFile( _
Server.mapPath("gastenboek.txt"))
Alles = Tekstbestand.ReadAll
Alles = Replace(Alles, "<!-- EINDE -->", " ")
Response.Write Alles
Tekstbestand.Close
%>
</PRE>
</BODY>
</HTML> |
Help me plzzzzzz, ik raak er echt niet aan uit
De URL is: http://www27.brinkster.com/pievdb