<% if Request.Form("FORMID")="1" then %>

You have submitted your note and it is being e-mailed to you.

Now you can close this window and return to Learning Place Online


<% MailText="" 'j=Request.Form.count 'for r=1 to j 'if not(Request.Form(r)="") then ' if Request.Form.Key(r)<>"FORMID" and Request.Form.key(r)<>"submit" and Request.Form.key(r)<>"reset" then ' MailText=MailText&request.form.key(r)&" "&Request.Form(r)&vblf ' end if 'end if 'next MailText="Here are my comments about an article on http://www.learningplaceonline.com"&vbcrLf &vbcrLf MailText=MailText&"Article and author: "&Trim(Request("TitleAuthor"))&vbcrLf &vbcrLf MailText=MailText&"What I would like to remember is: "&Trim(Request("LikeToRemember"))&vbcrLf &vbcrLf set objMail=server.createobject("JMail.SMTPMail") objMail.ServerAddress="smtp2.e50.com" objMail.Sender="notes@learningplaceonline.com" objMail.Subject="Note to Myself About Article on Learning Place Online" 'objMail.AddRecipient("support@e50.com") Dim recipient recipient = Trim(Request("recip")) objMail.AddRecipient recipient objMail.Body=MailText objMail.execute set objMail=nothing %> <% else %>

A Note to be Printed or E-mailed to Remind Myself

About an Article on Learning Place Online

There are three ways you can use this form

1. Print this page and fill it out by hand. On some browsers you may need to expand the window so the print icon is visible.

2. Type your notes into the box below and then print this page.

3. E-mail this note to yourself.

If needed, resize this window so you can keep it open as you read the article.

Title of article and author

What I'd like to remember about this article:

My e-mail address is:

Remember, this is YOUR personal note to yourself—that's why this feature is called "Notes to Myself" and not "Notes to Someone Else." We do NOT receive a copy of it UNLESS you have typed in your address incorrectly or your anti-spam program block messages from notes@learningplaceonline.com.

Close Window — Learning Place Online
<% end if %>