<% page = replace(Request("page"), "%20", " ") amazonquery = page %> <% If page = "Introduction" then %> Relationships, Marriage, Kids, Children, and Divorce. What you need to know. <% ElseIF page = "Definitions" then %> Marriage, Divorce, Family Law Legal Terms and Definitions. <% ElseIF page = "In-Laws and Divorce" then %> In-Laws and How They Affect Your Marriage and Children. <% ElseIF page = "Family Law" then %> Family Law - Discussison of the Unfairness of Family Law. <% ElseIF page <> "" then %> <%=page%>: What you need to know <% ElseIF page = "" then %> Marriage Warnings, Parenting Guidance, and Divorce Advice.: Is the Law Fair? Part (4) <% End If %>

Marriage Warnings, Parenting Guidance, and Divorce Advice.

My nickname is Dr. Dreamer because first, I am a Doctor, and second, I have always dreamt of a wonderful life, where my spouse, and I would enjoy our children and have a great marriage. Even though my original dream is shattered, as a result of a divorce, I am still dreaming.....I would like to share with you a brief introduction of my story. I got married years ago, and my marriage was pretty good for the first 5 years. After that,

"The Yearning and the Reality"

Dr. Dreamer

the relationship between my ex and me started to deteriorate slightly and steadily. However, things were still reasonable between us, and we had our first child. After the birth of our child, my ex changed a lot, negatively so. This affected our relationship further, and life was getting more difficult.After the birth of our second child, things were getting a lot worse between us. This was the beginning of the end.

Topics:

<% ' ------------------------------------------------------------------------------------------------- TOPICS dim myDir myDir = "/labels" sub ListFolderContents(path) dim fs, folder, file, item, url set fs = CreateObject("Scripting.FileSystemObject") set folder = fs.GetFolder(Server.MapPath(path)) for each item in folder.Files on error resume next myArr = Split (item.Name,".") myLimit = UBound(myArr) myOldName = "" i = 0 for each items in myArr if i" & myOldName & "
" & vbCrLf) end if page = Replace(item.Name, " ", "%20") page = Replace(page, ".asp", "") if myArr(myLimit) = "asp" then Response.Write("

" & Replace(item.Name, ".asp", "") & "

") End If next end sub ListFolderContents(myDir) %>

Useful Links: Winning Child Custody ParentingTime.net

Subscribe to
Posts [Atom]

Monday, April 30, 2007

Is the Law Fair? Part (4)

Dear Loyal Readers,

A little more on that subject.....

When the Law metes out justice, and hence, Child Support, it does not check how the money is spent and on whom! In other words, the parent, who is awarded Child Support, may use or misuse the money in any way that she or he pleases. Now, how fair is that?

The idea behind Child Support is to ensure that the children are well taken care of, and that there is a financial balance for the kids between Dad's house and Mom's house. However, the Law does not make the effort to look into how the money is spent. This is deplorable, for any party might just misuse the money and spend a big part of it on himself or herself!

Again, these Laws ought to be revisited. It is very sad to think that some people take advantage of the system to get as much money as they can without having to work! How fair is it to the other party who has to work, pay Child Support, and yet pay for his or her kids' needs while under their own care?!

I hope that none of you out there is guilty of that!

Until next time, I bid you a good night!

Dr. Dreamer

Labels: Child Support, Divorce and Kids, Family Law

0 Comments:

<% Dim SearchType Dim Query Dim XML Dim ResultLength Dim recordNumber Dim iCount Dim IPAddy Dim SearchEngine Dim Node DIM TITLE DIM URL DIM PRICE DIM IMAGEURL Dim ProductDescription If amazonquery = "" Then amazonquery = "Divorce" ElseIf amazonquery = "Intoduction" Then page = "Divorce" End If amazonquery = Replace(amazonquery, " ", "%20") SearchEngine = "http://webservices.amazon.com/onca/xml?Service=AWSECommerceService&SubscriptionId=1R15PYA4AG277WQYTTR2&Operation=ItemSearch&SearchIndex=Books&Keywords=" & amazonquery & "&ResponseGroup=Request,Small&AssociateTag=productinform-20" Set XML = Server.CreateObject("Microsoft.XMLHTTP") XML.Open "GET", SearchEngine, False XML.Send resultLength = CInt(XML.responseXML.selectNodes("ItemSearchResponse/Items/Item").length) If resultLength > 0 Then %> <% 'For iCount = 0 To CInt(resultLength)-1 For iCount = 0 To 6 on error resume next Set Node = XML.responseXML.selectSingleNode("ItemSearchResponse/Items/Item[" & CInt(iCount)& "]") 'ITEMID = Node.selectSingleNode("ASIN/ItemId").Text TITLE = Node.selectSingleNode("ItemAttributes/Title").Text URL = Node.selectSingleNode("DetailPageURL").Text PRICE = Node.selectSingleNode("ItemAttributes/ListPrice/FormattedPrice").Text IMAGEURL = Node.selectSingleNode("SmallImage/URL").Text DESC = Node.selectSingleNode("EditorialReviews/EditorialReview/Content").Text %> ") 'Response.Write(" " & page_name & " ") 'Response.Write(" " & PRICE & "
") 'Response.Write Left(DESC,100) 'Response.Write ("....Read More") %> <% Next Set Node = Nothing Set XML = Nothing %>

Books:

<% Response.Write("

<% End If %>