<%
strFld1 = request.form("txtName")
strFld2 = request.form("txtE-mail")
strFld3 = request.form("txtHomepage")
strFld4 = request.form("txtaComments")
if len(strfld1) < 3 then response.redirect "default.asp?err=1"
if len(strfld2) < 3 then response.redirect "default.asp?err=1"
if len(strfld3) < 3 then response.redirect "default.asp?err=1"
if len(strfld4) < 3 then response.redirect "default.asp?err=1"
Const ForReading = 1, ForWriting = 2, ForAppending = 8
Set FileObject = Server.CreateObject("Scripting.FileSystemObject")
GuestBookFile = Server.MapPath("guestbook.txt")
Set OutputStream = FileObject.OpenTextFile(GuestBookFile, ForAppending, True)
OutputStream.WriteLine "Comments : " + Replace(strFld4, vbCrLf, "//vbReturn//") + "vbCrLf Homepage : " + strFld3 + "vbCrLf E-mail : " + strFld2 + "vbCrLf Name : " + strFld1 + "vbCrLf Date : " + CStr(Now())
Set OutputStream = Nothing
Set FileObject = Nothing
%>
Khmerboy Guestbook
Khmerboy Guestbook
| Name: |
<%=strFld1%> |
| E-mail: |
<%=strFld2%> |
| Homepage: |
<%=strFld3%> |
| Comments: |
<%=strFld4%> |
Thankyou, your comments have now been added to the guestbookView Guestbook