Johhh... Værsågo!
<%@ Language=JavaScript %>
<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2 Final//EN\">
<HTML>
<HEAD>
<TITLE>Guest Book</TITLE>
<link rel=\"stylesheet\" href=\"../p.css\">
</HEAD>
<body bgcolor=\"#FFFFFF\">
<div align=\"left\">
</div>
<%
var to_do = String(Request(\"to_do\"));
var this_script_url = String(Request.ServerVariables(\"SCRIPT_NAME\"));
////////////////////////////////////////////////////////////////////
// If the \"to_do\" variable does not contain any instructions, create
// a form that lets visitors add an entry to the guest book.
if (to_do == \"undefined\"){
// since most of the next few lines are html, the ASP tag is closed
// and normal html is added to the page. Only the name of the script is
// dynamically generated, so that the script will still work if its name
// is changed down the road.
%>
<p>Please use the form below to submit an entry to our guest book:</p>
<form action=\"<% = this_script_url %>\">
<h2>Navn:<br>
<input type=text style=\"border-style: solid; background-color: #FFFFFF; border-width: 1px; border-color: #000000; font: 9px verdana; \" name=\"Navn\" value=\"\" size=52><br>
<br>
Email:<br>
<input type=text style=\"border-style: solid; background-color: #FFFFFF; border-width: 1px; border-color: #000000; font: 9px verdana; \" name=\"Email\" value=\"\" size=52><br>
<br>Kommentar:<br>
<textarea name=\"Kommentar\" style=\"border-style: solid; background-color: #FFFFFF; border-width: 1px; border-color: #000000; font: 9px verdana; \" cols=50 rows=9></textarea><br>
<br>
<input type=submit style=\"border-style: solid; background-color: #FFFFFF; border-width: 1px; border-color: #000000; font: 9px verdana; \" name=\"Submit Button\" value=\"Tilføj Kommentar\"> <input type=hidden name=\"to_do\" value=\"add_entry\"></h2>
</form>
<%
} // end if (to_do == \"undefined\")
////////////////////////////////////////////////////////////////////
// If the \"to_do\" variable is defined, we need to create a file system
// object that will let us read or write to the guest book file
// this is the file that will store the guest book data. This file
// must exist for the script to work. It should be placed in the same
// directory as the script.
var guest_book_file = \"guest_book.txt\";
// this gives us the absolute path of this script which we\'ll use
// to get the path to the current directory so we can open a
// file in it.
var abs_path = String(Request.ServerVariables(\"PATH_TRANSLATED\"));
// get rid of script name in absolute path
// and replace with name of file we want to open
var file_to_open = abs_path.replace(/\\\\\\w*\\.asp/,\"\\\\\") + guest_book_file;
fso = new ActiveXObject(\"Scripting.FileSystemObject\");
if (fso.FileExists(file_to_open)){
////////////////////////////////////////////////////////////////////
// If the \"to_do\" is set to \"print_contents\", we print the entire
// contents of the guest book file to the web page we\'re building
if (to_do == \"print_contents\"){
// create a text stream object
fs_stream2 = fso.OpenTextFile(file_to_open);
//copy the contents of opened file into the variable \"temp_file\"
var temp_file = fs_stream2.ReadAll();
// close the text stream object
fs_stream2.close();
// add contents of guest book to web page
Response.Write(\"<pre>\" + temp_file + \"</pre>\");
}//end if Response.Redirect(\"guest_book.asp?to_do=print_contents\") (to_do == \"print_contents\")
////////////////////////////////////////////////////////////////////
// If the \"to_do\" is set to \"add_entry\", we append the new guest
// book entry to the guest book file and thank the visitor for
// taking the time to do so.
if (to_do == \"add_entry\"){
// create TextStream object set to append mode
var ForReading = 1, ForWriting = 2, ForAppending = 8;
fs_stream = fso.OpenTextFile(file_to_open,ForAppending);
// collect date and form information
date_object = new Date();
dayArr = new Array(\"Mandag\", \"Tirsdag\", \"Onsdag\", \"Torsdag\", \"Fredag\", \"Lørdag\", \"Søndag\" );
monthArr = new Array(\"Januar\", \"Februar\", \"Marts\", \"April\", \"Maj\", \"Juni\", \"Juli\", \"August\", \"September\", \"Oktober\", \"November\", \"December\" );
tmpDay = dayArr[ date_object.getDay()];
tmpDate = date_object.getDate();
tmpMonth = monthArr[ date_object.getMonth() ];
tmpYear = date_object.getYear();
tmpHour = date_object.getHours();
tmpMinute = date_object.getMinutes();
tmpMinute = (tmpMinute<10)?\"0\"+tmpMinute:tmpMinute;
tmpSecond = date_object.getSeconds();
tmpSecond = (tmpSecond<10)?\"0\"+tmpSecond:tmpSecond;
date_string = tmpDay + \" den \" + tmpDate + \". \" + tmpMonth + \", \" + tmpYear + \" \" + tmpHour + \":\"+tmpMinute+\":\"+tmpSecond;
var message = \"Navn: \" + String(Request(\"Navn\"));
message += \"\\nEmail: \" + String(Request(\"Email\"));
message += \"\\nKommentar: \" + String(Request(\"Kommentar\"));
// append date and form information to guest book data file
fs_stream.Write(\"\\n\" + date_string + \" \\n\" + message + \"\\n\");
// close TextStream object
fs_stream.close();
Response.Redirect(\"guest_book.asp?to_do=print_contents\")
// Print a thank-you message
Response.Write(\"<p>Thanks for your feedback!<p>\");
} // end if (to_do == \"add entry\"){
} // end if file exists
// if the file doesn\'t exist, print an error message
else {
Response.Write(\"<p>can\'t find file <b>\" + guest_book_file + \"</b><p>\");
}
%>
<hr size=\"1\" color=\"000000\">
<center>
</center>
</body>
</HTML>
/cmk30
