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

 

 

Print  |   Bookmark 

  
Depression Self Test



Depression Self Test

 

Depression Self TestDepression is a mood disorder that can degrade the quality of our lives. While there are many treatments, medications and methods of dealing with depression, there needs to be a way of detecting if someone is going to be at risk from depression. This is where a depression self test can be of great help in finding the early symptoms of depression.

While these self tests are of great help they do not promise to cure or even prevent depression from progressing further into our lives. Nor can they replace the medical evaluation and diagnosis of a doctor. What these depression self tests do provide is an indication that our depression may be a passing phase or that it could be part of a mood disorder.

A search on the internet will provide you with a large choice of depression self tests. When you look at a depression self test you will notice that it is fairly easy to do. There will be a number of questions for you to answer. These questions will be based upon your mental and emotional outlook. The self test may have questions like “I get tired for no reason”.

The answers to the questions on the depression self test are not intrusive. They merely give an indication of what you maybe going through. They can also provide a guide to hidden feelings that may cause depression. You may find that there are answers that you can choose from.

The format of the answers can be something like this - A little of the time, Some of the time, A good part of the time, and Most of the time. It is possible that there will be buttons or spaces on the depression self test next to the answer. You indicate your choice by clicking on the answer that most reflects your mental state.

You will need to answer all of the questions on the depression self test or the form will reset itself. Some depression self tests will let you use the BACK button on the browser so that you can complete the test with the answers that you have already provided.

Once you have fully completed the depression self test, clicking the Calculate Score button that is found at the bottom of the test will indicate if you are suffering from a depression disorder or if what you are experiencing is the normal but brief periods of feeling depressed and blue.

Should you be unsatisfied with the results you can always take the depression self test all over again. However you need to realize that depression self tests are only a way of finding if you do have a depression disorder. By taking a depression self test you are only finding out if you might have any depression disorders and are not replacing a doctor’s medical evaluation.


For more information visit our main site:
http://www.depressionmgr.com

 Top of 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