<% 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.: Wedding Warnings or Flags 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]

    Sunday, March 4, 2007

    Wedding Warnings or Flags Part (1)

    Hi everybody,

    Today, I am going to talk about one of the most important topics: The Wedding!

    There are two steps to a Wedding: (A) the preparation that precedes the wedding, and (B) the wedding itself. Part (A) is really critical in determining some of the red flags. This is a period when people are somewhat under a certain amount of pressure in order to meet deadlines. Generally, people show some of their true stripes when under pressure.

    If from the beginning, you and your spouse to be are not seeing eye to eye in regards to “who should pay what” during the preparation for the wedding, then this is your first flag!

    One of the issues that I noticed back then, when I was getting married, is that my would-be spouse skimped on what she was supposed to pay for, whereas I did pay my fair share for my portion without skimping. As a result, the photographer that my ex spouse picked was rather an amateur, not a professional. One could see that through the quality of some of the pictures.

    Further, as my would-be spouse, back then, picked a photographer who knew my spouse’s family, he took more pictures of her family while ignoring some of my family members. This may be ascribed to one of two reasons: either my spouse did not direct the photographer a priori as to who the in-laws were, and therefore, he did not know who they were, or that my spouse did direct him to emphasize her family.

    The former case would imply a lack of attention and sensitivity, whereas the latter would imply selfishness! In either case, you can see that the outcome is not good. This should be some of the warnings or red flags.

    Until nest time, good night everyone, and keep the dreams alive!

    Dr. Dreamer

    Labels:

    posted by Dr. Dreamer @ 1:52 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 %>