I always wanted a journal on my site but I never had time to get the dam thing updated...so I wrote an ASP script that does it all. You log on to the submit page from any browser, fill in your entry and bobs your uncle..the code dynamicly adds a link on the index page and adds the entry to a database...so now you can update every day, can be used for all sorts...a tecnical support page, stroy submission etc. I uncluded an admin page based on the guest book by Kathi O'Shea (thanks) in which you can delete entries. ----
I have now updated it to use just one textbox to submit your entry (which can be as long as you like) and fixed the single quotes problem!! thanks kerry
Note: Due to the size or complexity of this submission, the author has submitted it as a .zip file to shorten your download time. Afterdownloading it, you will need a program like Winzip to decompress it.Virus note:All files are scanned once-a-day by Planet Source Code for viruses, but new viruses come
out every day, so no prevention program can catch 100% of them. For your own safety, please:
Re-scan downloaded files using your personal virus checker before using it.
NEVER, EVER run compiled files (.exe's, .ocx's, .dll's etc.)--only run source code.
If you don't have a virus scanner, you can get one at many places on the net
including:McAfee.com
Terms of Agreement:
By using this code, you agree to the following terms...
You may use
this code in your own programs (and may compile it into a program and distribute it in compiled format for languages that allow it) freely and with no charge.
You MAY NOT redistribute this code (for example to a web site) without written permission from the original author. Failure to do so is a violation of copyright laws.
You may link to this code from another website, but ONLY if it is not wrapped in a frame.
You will abide by any additional copyright restrictions which the author may have placed in the code or code's description.
pname = Replace(Request.Form("name1"), "'", "''") pdate = request.form("date1") p1 = Replace(Request.Form("Entry1"), "'", "''") if IsEmpty(p1) or p1 = "" then p1 = " " end if p2 = Replace(Request.Form("Entry2"), "'", "''") if IsEmpty(p2) or p2 = "" then p2 = " " end if p3 = Replace(Request.Form("Entry3"), "'", "''") if IsEmpty(p3) or p3 = "" then p3 = " " end if p4 = Replace(Request.Form("Entry4"), "'", "''") if IsEmpty(p4) or p4 = "" then p4 = " " end if p5 = Replace(Request.Form("Entry5"), "'", "''") if IsEmpty(p5) or p5 = "" then p5 = " " end if (If this comment was disrespectful, please report it.)
I added a tiny thing that i think very useful :
Entry1 = Replace(Entry1, vbCrLf," ")
this way u don't need to put the all the time :-) (If this comment was disrespectful, please report it.)
I Looked Over The Code.. I am Sure It Works But Are Their Any Tutorials Otu Their On How To Make A database so U Can Test It If So Then Please Email Me at ShadowMastaX@Aol.com (If this comment was disrespectful, please report it.)
I'm looking to use your Journal code - it looks great - but I was wondering if it's possible to search within the text field. I can see from the database design that it's a memo field and I seem to remember from past experience with using Access that it's not possible to search within these types of fields.
Do you have a way you can suggest that I offer searching?
Thanks,
Andy (If this comment was disrespectful, please report it.)
This is great code. I am a newbie at this but it is working. Could you please tell what code I should put to view all the entries of the journal on one page rather than separate journal entries. Thanks. My email is dmalhotr@usa.net to send it to. Thank you very much.
Dhruv (If this comment was disrespectful, please report it.)
Alright, this must sound incredibly newbie, but then again, I'm a newb! How do I define the values for the submitted entry? I'm trying to put it in an iframe thats about 390px w.
Email or reply, please. (If this comment was disrespectful, please report it.)
Hey, this is to Menelaus! Just specify the layer you want the text to go to... then you use the option WRAP. It will automatically fit the text into the layer.. (If this comment was disrespectful, please report it.)
Can some help me here... I need to add text to a database, but I want the formatting(How i typed the text) to be showed up the same way when it is retrieved from the database, does some have a solution for this? Maybe changing all the text to HTML format and saving it up on the database... Please send an email to lifesucks@terra.com.br if you have any idea on how to solve this! Thanx!
(If this comment was disrespectful, please report it.)
11/16/2002 6:23:28 AM:
Excellent job, it has inspired me to add more dynamic content to my site. (If this comment was disrespectful, please report it.)
1/21/2003 8:55:43 AM:
it's great, but the database doent seem to be opening up...can u please give me the entire database schema so i can create a new database...thanx (If this comment was disrespectful, please report it.)
1/21/2003 8:56:54 AM:
it's great, but the database doent seem to be opening up...can u please give me the entire database schema so i can create a new database...thanx...pls mail it to me at rnmehrotra@hotmail.com (If this comment was disrespectful, please report it.)
2/17/2003 12:39:43 PM:
hello, the code is great but i want to add a back and next button on the view.asp page. I've been able to do it using the ID but it keeps crashing when there are no more entries. How do i tell the code that there are no more entries? thanks (If this comment was disrespectful, please report it.)
6/24/2003 1:22:36 PM:
my admin page will not delete entries, is there something wrong with my coding in the delete button? i even uploaded the original code into the ftp site, and it still does not work. what can i do to fix this?
and where does that "single quote" line go in the actual file? or which .asp file do i put the "single quote" and what exactly does it do? thanx! (If this comment was disrespectful, please report it.)
7/20/2004 12:23:42 PM:
hey im very new at this i started using vb and asp a day ago ,however ur concept is very great an easy to use.but i cant get my entries to be added into the journal database.could u help me thanx much (If this comment was disrespectful, please report it.)
7/20/2004 5:17:02 PM:
i cannont add entries into the database (If this comment was disrespectful, please report it.)
11/28/2004 5:18:06 PM:
ddddddd (If this comment was disrespectful, please report it.)
this system is good. (If this comment was disrespectful, please report it.)
5/18/2007 8:04:44 AM:
good ya, but some confusion. please help me in anoth3r topic CMS THANKS IN ADVANCE
(If this comment was disrespectful, please report it.)
Add Your Feedback
Your feedback will be posted below and an email sent to
the author. Please remember that the author was kind enough to
share this with you, so any criticisms must be stated politely, or they
will be deleted. (For feedback not related to this particular code, please
click here instead.)
By 20 Users
Download code
6/2/2000 8:09:21 AM: 
