<% 'start ASP code' file = server.mappath("guestbook.txt") Set fs = server.CreateObject("Scripting.FileSystemObject") Set htmlfile = fs.OpenTextFile(file, 1, 0, 0) hf = htmlfile.ReadAll IF INSTR (hf, "") = 0 THEN Response.write "
" & VbCrlf Response.write " There are no contents in the Guestbook" & VbCrlf Response.write "
" & VbCrlf Response.write "
" & VbCrlf set htmlfile = nothing set fs = nothing ELSE Response.write hf 'writing the HTML file onto the page htmlfile.close 'closing the HTML file set htmlfile = nothing 'setting the HTML file variable to nothing so we won't get errors ^_^ set fs = nothing 'same as above but for the Scripting.FileSystemObject END IF'closing 1st IF statement 'end of ASP code %>

If you have any questions or comments regarding this website, please feel free
to contact our Webmaster for more information. Thank you.