<%@ 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("") End If %>
depression manager

 

 

Severe Depression

  

Severe Depression

There are three main categories of depression disorder. They are known as Bipolar Disorder, Chronic Depression Disorder and Major Depression Disorder. Of the three mood disorders Major Depression Disorder is the most severe. This disorder may also be called Severe Depression.


In Severe Depression the cause can be a single traumatic event in your life. It could even be the result of many personal disappointments and problems in your life. Sometimes it is possible to develop Severe Depression without any traumatic events or life problems. Still other times people who suffer from Chronic Depression can go into Severe Depression as a result of a traumatic event.


The symptoms of depression are also present in Severe Depression. They are however more intense than normal depression symptoms. For most people who suffer from Severe Depression, they can either have a recurring Severe Depression episode or their Severe Depression may occur only once in their lifetime and never reoccur again.

Recurring Severe Depression is where the individual will have periods of Severe Depression that are followed by periods of depression. After these bouts of depression are finished, they will be able to live at least several years without any episodes of depression. They may have another episode of Severe Depression which can arise due to some traumatic event. In a single episode of Severe Depression the symptoms occur due to a major traumatic event in the individual’s life. Once medical treatment has taken effect, the Severe Depression will not occur again in their lifetime.

In general the medication that is prescribed for Severe Depression is anti-depressants. There are several types of depression medications that are used for Severe Depression. These medications include Tricyclics, Selective Serotonin Reuptake Inhibitors, Serotonin Noradrenaline Reuptake Inhibitors, Noradrenergic and Serotonergic anti-depressants, Serotonin 5-HT (2) Receptor Antagonists, Monoamine Oxidase Inhibitors and Bupropion.

The other type of treatment that works for Severe Depression is that of cognitive-behavioral therapy. The best method of treatment is that of medication combined with cognitive therapy. The therapy is used to treat the psychological aspects of Severe Depression while the medication will treat the symptoms of Severe Depression.

The intensified symptoms of Severe Depression include restlessness, irritability, insomnia, oversleeping, fatigue, thoughts of death, suicide, early morning waking, pessimism, hopelessness, weight loss or gain, and a change in appetite

These symptoms coupled with any traumatic incident or an accumulation of life problems can trigger either recurring Severe Depression or episodic Severe Depression. Both types of Severe Depression need to be treated as the consequences can be life threatening. Should you suspect that you may be having Severe Depression then you should get immediate medical help.

Source: http://www.depressionmgr.com

   Back to top     |      Print this page   |     Bookmark this page

 

 Depression News

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!

 

Site Search

 

Home Page
Articles
»  Despair in Depression
»  Popular Facts Relating to Clinical Depression
»  Emotions Explained in Depression
»  Facing Reality in Depression
»  Facts in Depression
»  Manic Depressant
»  Depression Test
»  Self Help Guide to Wellness
»  Depression Manager-Bipolar Disease
»  Causes Of Depression
»  Clinical Depression
»  Severe Depression
»  Medical Depression
»  Depression Self Test
Blog
Depression News
Privacy Policy
Links
Contact Us
Site Map

 

<%@ 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("
") End If %>

Canada Drug 

 

Stress