<% ' FP_ASP ASP Automatically generated by a FrontPage Component. Do not Edit. On Error Resume Next Session("FP_OldCodePage") = Session.CodePage Session("FP_OldLCID") = Session.LCID Session.CodePage = 1252 Err.Clear strErrorUrl = "" If Request.ServerVariables("REQUEST_METHOD") = "POST" Then If Request.Form("VTI-GROUP") = "0" Then Err.Clear Set fp_conn = Server.CreateObject("ADODB.Connection") FP_DumpError strErrorUrl, "Cannot create connection" Set fp_rs = Server.CreateObject("ADODB.Recordset") FP_DumpError strErrorUrl, "Cannot create record set" fp_conn.Open Application("MembershipRegistration_ConnectionString") FP_DumpError strErrorUrl, "Cannot open database" fp_rs.Open "Results", fp_conn, 1, 3, 2 ' adOpenKeySet, adLockOptimistic, adCmdTable FP_DumpError strErrorUrl, "Cannot open record set" fp_rs.AddNew FP_DumpError strErrorUrl, "Cannot add new record set to the database" Dim arFormFields0(5) Dim arFormDBFields0(5) Dim arFormValues0(5) arFormFields0(0) = "Password" arFormDBFields0(0) = "Password" arFormValues0(0) = Request("Password") arFormFields0(1) = "Handle" arFormDBFields0(1) = "Handle" arFormValues0(1) = Request("Handle") arFormFields0(2) = "Email" arFormDBFields0(2) = "Email" arFormValues0(2) = Request("Email") arFormFields0(3) = "eMailConfirmation" arFormDBFields0(3) = "eMailConfirmation" arFormValues0(3) = Request("eMailConfirmation") arFormFields0(4) = "PasswordConfirmation" arFormDBFields0(4) = "PasswordConfirmation" arFormValues0(4) = Request("PasswordConfirmation") FP_SaveFormFields fp_rs, arFormFields0, arFormDBFields0 If Request.ServerVariables("REMOTE_HOST") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_HOST"), "Remote_computer_name" End If If Request.ServerVariables("HTTP_USER_AGENT") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("HTTP_USER_AGENT"), "Browser_type" End If FP_SaveFieldToDB fp_rs, Now, "Timestamp" If Request.ServerVariables("REMOTE_USER") <> "" Then FP_SaveFieldToDB fp_rs, Request.ServerVariables("REMOTE_USER"), "User_name" End If fp_rs.Update FP_DumpError strErrorUrl, "Cannot update the database" fp_rs.Close fp_conn.Close Session("FP_SavedFields")=arFormFields0 Session("FP_SavedValues")=arFormValues0 Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") Response.Redirect "http://www.happinessonline.org/Administration/thankyou.htm" End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %>

Admin Scale

Statistics

Membership

Happiness Main Home Page

Separate Search Page
or search below

Messages

Home Page -- Admin Section

Write To Karl Loren

Table Of Contents

Membership Registration

You may become a "member" of the group who support this web site by referring people to it.

There is no monetary reward of any type for any such referrals.

You become a member by registering, right here, right now. There is no screening or approval required. Anyone may register and if you wish you can register as often as you wish. Each registration would have to have a unique eMail address. There is no screening, but there is a review step.

The only review step we will follow is to send an eMail message of "welcome" to the eMail address you provide. That eMail must be responded to, from the address to which it was sent, or the registration will not be accepted.

You can register here, now. Within a day or less, usually, you will receive an eMail message at the eMail address you provide in the registration. As soon as we receive your response to that message, from the address to which it was sent, your membership will be active.

The registration information required is as follows:

A "Handle" -- some name, fictitious or otherwise, not more than 15 characters.
Your eMail address.
Your password

Your password will have to be one not already in use by someone else -- same for your eMail address and "Handle."

Registering as a member does not provide for any other information, such as a real name, address, etc. Membership information will never be sold or shared.

We will not be providing any procedure by which anyone can send a message to you. However, the staff from this web site may contact you, through your eMail address.

We reserve the right to remove persons from this membership if the web site does not receive any referrals from the member. The initial period of non-activity which would trigger a letter of inquiry is one year. In other words, if no referrals arrive at the web site and give YOUR handle, your membership may be ended.

Your referrals will count ONLY when the new visitor is not already in our database as having asked for the free books, and when the visitor enters YOUR handle in the message form.

You can register here, now. All fields are required.