} // 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\", \"Mars\", \"April\", \"Mai\", \"Juni\", \"Juli\", \"August\", \"September\", \"Oktober\", \"November\", \"Desember\" );
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 = \"\\n\" + date_string + \" \\nNavn: \" + String(Request(\"Navn\"));
message += \"\\nEmail: \" + String(Request(\"Email\"));
message += \"\\nIndl¾g: \" + String(Request(\"Indl¾g\"));
var fso = new ActiveXObject(\"Scripting.FilessystemObject\");
var fileObj = fso.getFile( \"guest_book.txt\" );
var stream = fileObj.OpenAsTextStream( 1,-2 );
var innhold = stream.ReadAll();
stream.close();
innhold = message + innhold;
stream = fileObj.OpenAsTextStream( 2, -2 );
stream.Write( innhold );
stream.close();
filObj.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>\");
}
Her er hele svineriet... håber du kan finde fejlen!????
Jeg kunne ikke finde linie 117, håber du kan?
/cmk30
Ny bruger
Nybegynder
Opret
Preview
