<% ' 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("CYK Research_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(32) Dim arFormDBFields0(32) Dim arFormValues0(32) arFormFields0(0) = "planahead" arFormDBFields0(0) = "planahead" arFormValues0(0) = Request("planahead") arFormFields0(1) = "expsptrip" arFormDBFields0(1) = "expsptrip" arFormValues0(1) = Request("expsptrip") arFormFields0(2) = "similar" arFormDBFields0(2) = "similar" arFormValues0(2) = Request("similar") arFormFields0(3) = "exphobby" arFormDBFields0(3) = "exphobby" arFormValues0(3) = Request("exphobby") arFormFields0(4) = "subject" arFormDBFields0(4) = "subject" arFormValues0(4) = Request("subject") arFormFields0(5) = "helpedmost" arFormDBFields0(5) = "helpedmost" arFormValues0(5) = Request("helpedmost") arFormFields0(6) = "expclothing" arFormDBFields0(6) = "expclothing" arFormValues0(6) = Request("expclothing") arFormFields0(7) = "expcar" arFormDBFields0(7) = "expcar" arFormValues0(7) = Request("expcar") arFormFields0(8) = "expmusic" arFormDBFields0(8) = "expmusic" arFormValues0(8) = Request("expmusic") arFormFields0(9) = "contracthelp" arFormDBFields0(9) = "contracthelp" arFormValues0(9) = Request("contracthelp") arFormFields0(10) = "Withinmeans" arFormDBFields0(10) = "Withinmeans" arFormValues0(10) = Request("Withinmeans") arFormFields0(11) = "proud" arFormDBFields0(11) = "proud" arFormValues0(11) = Request("proud") arFormFields0(12) = "childsname" arFormDBFields0(12) = "childsname" arFormValues0(12) = Request("childsname") arFormFields0(13) = "moneylevel" arFormDBFields0(13) = "moneylevel1" arFormValues0(13) = Request("moneylevel") arFormFields0(14) = "usecontract" arFormDBFields0(14) = "usecontract" arFormValues0(14) = Request("usecontract") arFormFields0(15) = "howlong" arFormDBFields0(15) = "howlong" arFormValues0(15) = Request("howlong") arFormFields0(16) = "doitagain" arFormDBFields0(16) = "doitagain" arFormValues0(16) = Request("doitagain") arFormFields0(17) = "limits" arFormDBFields0(17) = "limits" arFormValues0(17) = Request("limits") arFormFields0(18) = "process" arFormDBFields0(18) = "process" arFormValues0(18) = Request("process") arFormFields0(19) = "RedirectURL" arFormDBFields0(19) = "RedirectURL" arFormValues0(19) = Request("RedirectURL") arFormFields0(20) = "from" arFormDBFields0(20) = "from" arFormValues0(20) = Request("from") arFormFields0(21) = "expcarins" arFormDBFields0(21) = "expcarins" arFormValues0(21) = Request("expcarins") arFormFields0(22) = "to" arFormDBFields0(22) = "to" arFormValues0(22) = Request("to") arFormFields0(23) = "learntosave" arFormDBFields0(23) = "learntosave" arFormValues0(23) = Request("learntosave") arFormFields0(24) = "taughtvalues" arFormDBFields0(24) = "taughtvalues" arFormValues0(24) = Request("taughtvalues") arFormFields0(25) = "name" arFormDBFields0(25) = "name" arFormValues0(25) = Request("name") arFormFields0(26) = "clothing" arFormDBFields0(26) = "clothing" arFormValues0(26) = Request("clothing") arFormFields0(27) = "teenjob" arFormDBFields0(27) = "teenjob" arFormValues0(27) = Request("teenjob") arFormFields0(28) = "learntogive" arFormDBFields0(28) = "learntogive" arFormValues0(28) = Request("learntogive") arFormFields0(29) = "expdisincome" arFormDBFields0(29) = "expdisincome" arFormValues0(29) = Request("expdisincome") arFormFields0(30) = "expsports" arFormDBFields0(30) = "expsports" arFormValues0(30) = Request("expsports") arFormFields0(31) = "enough" arFormDBFields0(31) = "enough" arFormValues0(31) = Request("enough") 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 FP_FormConfirmation "text/html; charset=windows-1252",_ "Form Confirmation",_ "Thank you for submitting the following information:",_ "CYK%20Research.asp",_ "Return to the form." End If End If Session.CodePage = Session("FP_OldCodePage") Session.LCID = Session("FP_OldLCID") %> CYK Research.asp

Capitate Your Kids Research
No one in America is talking about what it takes to really succeed.  Success is when you have choices in your behavior.  Choices come from having resources.  To accumulate resources, you have to learn how to be frugal, and save up for what you value and want to spend your precious resources on.
We would like to hear what your experience has been. Please spend 5 minutes and let us know how and what you taught your kids about money.
Your first name:
Your child's first name:
E-mail address:
How old was your child when you started a budget?
Amount of money you gave your child per month:
Did you use a contract with your kids?
How long were they on the contract?
Did the contract help or hinder your behavior?
Hinder
1
2
3
4
5
6
7		 Help
They learned to save.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
They learned to give to charity.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
They learned to plan ahead.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
They learned to live within their means.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
They felt happy with the process.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
They felt proud of their accomplishments.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
You feel you taught them your values by doing this process.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
You would do it again.
Strongly Disagree
1
2
3
4
5
6
7		 Strongly Agree
Is it similar in some fashion to what you did as a child?
Yes   No
Did you have an allowance for clothing?
Yes   No
Did you have limits from your parents on what you were permitted to purchase?
Yes   No
Did you feel like your money as a child was enough?
Yes   No
Did you get a job as a teen?
Yes   No
What was your major teen expenditure per month for:
Clothing?
Car?
Car Insurance?
Disposable Income?
Hobby?
Sports?
Special Trip?
Music Lessons?
What single behavior helped the most?
   

 

 


Buy NOW at

Amazon.com,

Barnes & Noble or

BookSense

SAME BOOK, Softcover and Hardcover

 
 
Contracts
The Clothing Contract
The Global Budget Contract
The Safe Driving Contract
The Contract for Car Ownership
"Capitate Your Kids... is by far the best 'kids and money' product I've come across."
FROM THE FORWARD
BY BOB POTTER
Former host of NPR's
Sound Money

 

 

 
 Home Rules/Contracts Research on Kids
 What Others Have Said Fiscal Fitness FAQs on CYK and FF
Feedback Coming Appearances!  

Fiscal Fitness The next generation of learning about money
 

Comments: jwhit@wi.rr.com