<%@ 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

 

Depression and Types Of Depression > Articles > Causes Of Depression
 

Causes Of Depression


 
   
 Causes Of Depression

Depression is a feeling that we get when something bad happens and we are unable to deal with it. Even though depression is now known to have serious effects if it persists for a long length of time, the actual causes of depression are not well defined. There are some theories that suggest a multiple number of reasons, both internal and external factors which can cause depression.

There are other theories about the cause of depression arising from genetics. With this theory the family and their behavior has a predisposition towards depression. There are numerous studies and research that has shown family members who are affected by depression have a genetic makeup that is very different from family members who are unaffected by depression.

It has been noted that changes in the brain structure or even brain functions may be one of the causes of depression. While there is no clear evidence of brain functionality or genetics as being predisposed towards depression, there is ample research data to suggest that this is the case.

Low self esteem and pessimism are thought to be the other causes of depression. With these mood traits a person suffering from low self esteem will regard themselves with feelings of pessimism, worthlessness, a desire to end their life and perhaps even attempts at suicide. In this case the person who suffers from low self esteem and depression will only see the negative aspects of life. These low self esteem and pessimistic feelings maybe some of the causes of depression, as they invoke the response towards depression.

Being overwhelmed by stress can easily lead a person into a state of depression. The many pressures that we face in our lives and the great expectations that are placed on us contribute to this feeling of stress. Therefore as more stress enters our lives depression begins to set in. Low self esteem, pessimism and stress are considered to be psychological causes of depression.

Other causes of depression can include any physical changes that occur to our bodies. Severe medical conditions like Parkinson’s disease, heart attacks, strokes and diabetes can make the individual believe that there is nothing worthwhile living for. This emotional state in many cases causes the person to drop into a depression phase. By feeling depressed the rate of recovery is delayed.

While it is not completely clear what the exact causes of depression are, there is agreement that certain physical, emotional, and genetic traits can lead towards depression. Whatever the actual cause is, the end result is that the individual who is suffering from depression has a very poor quality of life. Therefore until we can define what are the real causes of depression, all that we can do is to help them become better.


   

Source: http://www.depressionmgr.com


 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

 

Home Page Articles Blog Depression News Privacy Policy Links Contact Us Site Map