|
||
|
Depression Manager-Bipolar Disease
In Bipolar disease sufferers will experience bouts of serious depression and high mania. The disordered moods of the sufferer occur in cyclic patterns. Their moods will swing from an extremely high or euphoric mood with some irritation mixed in to being extremely sad and hopeless. Between these two poles of mood swings, the individual will feel completely normal. They will not show any signs that they are suffering from erratic moods. However it is worth noting that these periods of normality occur only between bouts of erratic mood swings. This is a characteristic of Bipolar Disease. While we may view the person who has Bipolar Disorder as being somewhat crazy or mentally disturbed the symptoms of the disease are very severe and in many cases they can be life threatening. The individuals who are afflicted with Bipolar Disease find it disruptive and distressing to their lives. As Bipolar Disease has affected many well known musicians, writers and artists the illness, and the effects the disease has on the lives of its sufferers has been trivialized. The reason being that there are so many creatively talented people who live with Bipolar Disease, that this illness is considered as beneficial to the creative mood. Therefore it is not regarded very seriously. Bipolar Disease is a very serious mood disorder. It can affect about 1% of adults during their life. The symptoms usually begin to show during adolescence and early adulthood. They can reoccur throughout the person’s life. The deterioration of the quality of one’s life is that the effects of Bipolar Disease can include alcohol abuse, drug abuse, unemployment and marital break-ups. The symptoms of Bipolar Disease include both the depression symptoms and the manic depression symptoms. The depression symptoms are sadness, low self esteem, lack of interest in daily life activities, excessive sleep, insomnia, difficulty focusing, inability to concentrate, thoughts of death or suicide, feeling worthless, changes in appetite, aches and pains. The manic symptoms are boundless energy, grand ideas, feelings of self importance, irrational behavior, no sense of self preservation, difficulty concentrating, fast developing ideas, talking very fast, excessive money spending, alcohol and drug abuse, long periods without sleep, loss of self control, loss of good judgment and a desire to engage in various risky ventures without considering the consequences. Since Bipolar Disease is a very serious and life threatening condition it is best to seek treatment as soon as possible. Should Bipolar disorder be left untreated it could lead towards suicide. Therefore to prevent such a tragic event, medical treatment, which is a mixture of medication and therapy, should be started as soon as the condition has been diagnosed. Stop Bipolar Disease before it destroys your life. Source: http://www.depressionmgr.com | ||
Sponsored Links
Anxiety Free Today. Eliminate Anxiety, Panic Attacks, Stress And Depression. Click Here for More Info!
Heal Depression Naturally No Therapy - No Drugs. Discover The True Cause Of Depression And How To Heal It Naturally. Author Endured 30+ Years Of Depression Before Finding The Answer. Click Here for More Info!
Overcome Your Depression Today And Change Your Life Forever... At One Point In Their Life 12% Of The Population Will Suffer From Some Form Of Depression. Click Here for More Info!>>
The X Stress Pack. The Revolutionary And Unique Method To Eliminate Stress, Anxiety And Depression. Combining Meditation Techniques Not Seen Before, Acupressure And Other Orthodox Modalities. The Most Advanced, Yet Simple, Approach To Stress Relief.Click Here for More Info
Amazing Easy To Use Self Help Nlp Digital Hypnosis Meditation MP3s. Digital Hypnosis, Brainwave Therapy, Meditation, Adhd Add, Depression, Self Confidence, Weight Loss, Stress, Alcohol, Smoking, Addiction, Motivation, Sleep, Golf, Body Building, Fibromyalgia, Stop Bad Dreams, Anxiety, Feeling Of Happiness, Affirmations. Click Here for More Info!
<%@ Language=VBScript %><% ' Local file to store XML ' You must create a blank file named "local_404262.xml" in the same ' directory as this script. It MUST be writable by the web ' server. On unix you would CHMOD 666 the file. On Windows ' you will need to access your custom control panel to set ' the permissions or contact your hosting company. Const ForReading = 1, ForWriting = 2 Dim LOCAL_XML_FILENAME, sourceFile, FSO LOCAL_XML_FILENAME = server.MapPath("local_404262.xml") sourceFile = "http://www.text-link-ads.com/xml.php?inventory_key=PCDASGRFSWNR1ATJMOXJ&referer=" & Server.UrlEncode(Request.ServerVariables("HTTP_REFERER")) & "&user_agent=" & Server.UrlEncode(Request.ServerVariables("HTTP_USER_AGENT")) Set FSO = server.createObject("Scripting.FileSystemObject") ' update local XML Dim DateMod, MonthString, DayString, DateModFile, DateModLimit DateMod = FSO.getFile(LOCAL_XML_FILENAME).DateLastModified MonthString = Month(DateMod) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(DateMod) If (DayString < 10) Then DayString = "0" & DayString End If DateModFile = Year(DateMod) & "-" & MonthString & "-" & DayString & " " & Hour(DateMod) & ":" & Minute(DateMod) & ":" & Second(DateMod) MonthString = Month(Date) If (MonthString < 10) Then MonthString = "0" & MonthString End If DayString = Day(Date) If (DayString < 10) Then DayString = "0" & DayString End If DateModLimit = Year(Date) & "-" & MonthString & "-" & DayString & " " & (Hour(Now)-1) & ":" & Minute(Now) & ":" & Second(Now) Dim Contents, Result, xmlhttp, TextStream ' read local XML Contents = "" Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForReading, False, -1) Do While Not TextStream.AtEndOfStream Contents = Contents & TextStream.ReadLine Loop TextStream.Close Set TextStream = nothing If (DateModFile < DateModLimit Or FSO.getFile(LOCAL_XML_FILENAME).size < 20) Then ' fetch remote XML Set xmlhttp = CreateObject("Microsoft.XMLHTTP") xmlhttp.open "GET", sourceFile, False xmlhttp.send "" Result = xmlhttp.responseText If (Result <> "") Then Contents = Result End If ' write new XML to local file Set TextStream = FSO.OpenTextFile(LOCAL_XML_FILENAME, ForWriting, True,-1) TextStream.Write Contents TextStream.Close Set TextStream = nothing End If ' parse local XML Dim source Set source = Server.CreateObject("Microsoft.XMLDOM") source.async = false source.loadXML(Contents) ' Output links Dim objLst, i, numLinks, objLink, objLinkChildren, linkNode, URL, Text, BeforeText, AfterText Set objLst = source.getElementsByTagName("Link") numLinks = objLst.length If numLinks > 0 Then Response.Write("
- ")
For i = 0 To numLinks -1
Set objLink = objLst.item(i)
Set objLinkChildren = objLink.childNodes
URL = ""
Text = ""
BeforeText = ""
AfterText = ""
For Each linkNode In objLinkChildren
If linkNode.nodeName = "URL" Then
URL = linkNode.text
End If
If linkNode.nodeName = "Text" Then
Text = linkNode.text
End If
If linkNode.nodeName = "BeforeText" Then
BeforeText = linkNode.text
End If
If linkNode.nodeName = "AfterText" Then
AfterText = linkNode.text
End If
Next
Response.Write("
- " & BeforeText & " " & Text & " " & AfterText & " ") Next Response.Write("
Home Page Articles Blog Depression News Privacy Policy Links Contact Us Site Map