<% 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.: The Yearning, the Romance, and the Reality Part (1) <% 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:
  • All Posts
    • <% ' ------------------------------------------------------------------------------------------------- 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]

    Saturday, March 3, 2007

    The Yearning, the Romance, and the Reality Part (1)

    Hello everyone,

    I hope that you are having a great weekend!

    Tonight, I am going to talk about nostalgia or yearning. We, as human beings, are bound to remember, at least from time to time, the good times or what I call "when things were fine"!

    One of the things that I noticed is that, during the divorce, my ex and I were viewing, and most importantly, feeling matters differently. First, I have to point out the fact that my ex and I were still living together through the first part of our divorce. This was an effort on my part to try to reconcile our differences for our kids' sakes. In essence, I felt melancholic (sad), whereas my ex did not express such feelings. In fact, on several occasions, I tried to discuss such feelings with my ex, in order to elicit (bring out) the best out of my spouse to no avail.

    I would evoke certain memories that we shared together, my spouse and I, and ask:"do you remember that?" "Do you think of these things sometimes?" "Doesn't it make you sad...?"
    But the answers were not sentimental, they were rather abrupt in nature. My spouse was more interested in watching the rest of the TV show instead of answering my questions and engaging in a discussion that might lead to a reconciliation.....

    I am sure that all of you, who have divorced, have felt at one point or another some form of melancholy over your divorce. The same is true of a boyfriend and a girlfriend who break up. Some might remember their first date at a restaurant, while others might remember a nice evening together at home...

    More on the yearning and romance next time.....

    Good night!

    Dr. Dreamer

    Labels:

    posted by Dr. Dreamer @ 3:16 PM

    0 Comments:

    Post a Comment

    << Home

    		<% 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("
    " & TITLE & "
    <% End If %>