<%@LANGUAGE="VBSCRIPT"%>
<!--#include file="Connections/conn_dot.asp" -->
<%
Dim rs_newest
Dim rs_newest_numRows

Set rs_newest = Server.CreateObject("ADODB.Recordset")
rs_newest.ActiveConnection = MM_conn_dot_STRING
rs_newest.Source = "SELECT Date, Title, Entry FROM tbl_digging_for_treasure_entries ORDER BY Date DESC"
rs_newest.CursorType = 0
rs_newest.CursorLocation = 2
rs_newest.LockType = 1
rs_newest.Open()

rs_newest_numRows = 0
%>
<%
Dim rs_general__MMColParam
rs_general__MMColParam = "1"
If (Request("MM_EmptyValue") <> "") Then 
  rs_general__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_general
Dim rs_general_numRows

Set rs_general = Server.CreateObject("ADODB.Recordset")
rs_general.ActiveConnection = MM_conn_dot_STRING
rs_general.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_general__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_general.CursorType = 0
rs_general.CursorLocation = 2
rs_general.LockType = 1
rs_general.Open()

rs_general_numRows = 0
%>
<%
Dim rs_parenting__MMColParam
rs_parenting__MMColParam = "2"
If (Request("MM_EmptyValue") <> "") Then 
  rs_parenting__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_parenting
Dim rs_parenting_numRows

Set rs_parenting = Server.CreateObject("ADODB.Recordset")
rs_parenting.ActiveConnection = MM_conn_dot_STRING
rs_parenting.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_parenting__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_parenting.CursorType = 0
rs_parenting.CursorLocation = 2
rs_parenting.LockType = 1
rs_parenting.Open()

rs_parenting_numRows = 0
%>
<%
Dim rs_perseverance__MMColParam
rs_perseverance__MMColParam = "3"
If (Request("MM_EmptyValue") <> "") Then 
  rs_perseverance__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_perseverance
Dim rs_perseverance_numRows

Set rs_perseverance = Server.CreateObject("ADODB.Recordset")
rs_perseverance.ActiveConnection = MM_conn_dot_STRING
rs_perseverance.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_perseverance__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_perseverance.CursorType = 0
rs_perseverance.CursorLocation = 2
rs_perseverance.LockType = 1
rs_perseverance.Open()

rs_perseverance_numRows = 0
%>
<%
Dim rs_relationships__MMColParam
rs_relationships__MMColParam = "4"
If (Request("MM_EmptyValue") <> "") Then 
  rs_relationships__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_relationships
Dim rs_relationships_numRows

Set rs_relationships = Server.CreateObject("ADODB.Recordset")
rs_relationships.ActiveConnection = MM_conn_dot_STRING
rs_relationships.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_relationships__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_relationships.CursorType = 0
rs_relationships.CursorLocation = 2
rs_relationships.LockType = 1
rs_relationships.Open()

rs_relationships_numRows = 0
%>
<%
Dim rs_thoughts__MMColParam
rs_thoughts__MMColParam = "5"
If (Request("MM_EmptyValue") <> "") Then 
  rs_thoughts__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_thoughts
Dim rs_thoughts_numRows

Set rs_thoughts = Server.CreateObject("ADODB.Recordset")
rs_thoughts.ActiveConnection = MM_conn_dot_STRING
rs_thoughts.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_thoughts__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_thoughts.CursorType = 0
rs_thoughts.CursorLocation = 2
rs_thoughts.LockType = 1
rs_thoughts.Open()

rs_thoughts_numRows = 0
%>
<%
Dim rs_trusting_god__MMColParam
rs_trusting_god__MMColParam = "9"
If (Request("MM_EmptyValue") <> "") Then 
  rs_trusting_god__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_trusting_god
Dim rs_trusting_god_numRows

Set rs_trusting_god = Server.CreateObject("ADODB.Recordset")
rs_trusting_god.ActiveConnection = MM_conn_dot_STRING
rs_trusting_god.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_trusting_god__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_trusting_god.CursorType = 0
rs_trusting_god.CursorLocation = 2
rs_trusting_god.LockType = 1
rs_trusting_god.Open()

rs_trusting_god_numRows = 0
%>
<%
Dim rs_serving__MMColParam
rs_serving__MMColParam = "10"
If (Request("MM_EmptyValue") <> "") Then 
  rs_serving__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_serving
Dim rs_serving_numRows

Set rs_serving = Server.CreateObject("ADODB.Recordset")
rs_serving.ActiveConnection = MM_conn_dot_STRING
rs_serving.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_serving__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_serving.CursorType = 0
rs_serving.CursorLocation = 2
rs_serving.LockType = 1
rs_serving.Open()

rs_serving_numRows = 0
%>
<%
Dim rs_moving__MMColParam
rs_moving__MMColParam = "11"
If (Request("MM_EmptyValue") <> "") Then 
  rs_moving__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_moving
Dim rs_moving_numRows

Set rs_moving = Server.CreateObject("ADODB.Recordset")
rs_moving.ActiveConnection = MM_conn_dot_STRING
rs_moving.Source = "SELECT Title FROM tbl_digging_for_treasure_entries WHERE Category = " + Replace(rs_moving__MMColParam, "'", "''") + " ORDER BY Date DESC"
rs_moving.CursorType = 0
rs_moving.CursorLocation = 2
rs_moving.LockType = 1
rs_moving.Open()

rs_moving_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = -1
Repeat1__index = 0
rs_general_numRows = rs_general_numRows + Repeat1__numRows
%>
<%
Dim Repeat2__numRows
Dim Repeat2__index

Repeat2__numRows = -1
Repeat2__index = 0
rs_parenting_numRows = rs_parenting_numRows + Repeat2__numRows
%>
<%
Dim Repeat3__numRows
Dim Repeat3__index

Repeat3__numRows = -1
Repeat3__index = 0
rs_perseverance_numRows = rs_perseverance_numRows + Repeat3__numRows
%>
<%
Dim Repeat4__numRows
Dim Repeat4__index

Repeat4__numRows = -1
Repeat4__index = 0
rs_relationships_numRows = rs_relationships_numRows + Repeat4__numRows
%>
<%
Dim Repeat5__numRows
Dim Repeat5__index

Repeat5__numRows = -1
Repeat5__index = 0
rs_thoughts_numRows = rs_thoughts_numRows + Repeat5__numRows
%>
<%
Dim Repeat6__numRows
Dim Repeat6__index

Repeat6__numRows = -1
Repeat6__index = 0
rs_trusting_god_numRows = rs_trusting_god_numRows + Repeat6__numRows
%>
<%
Dim Repeat9__numRows
Dim Repeat9__index

Repeat9__numRows = -1
Repeat9__index = 0
rs_newest_numRows = rs_newest_numRows + Repeat9__numRows
%><%
Dim Repeat8__numRows
Dim Repeat8__index

Repeat8__numRows = -1
Repeat8__index = 0
rs_moving_numRows = rs_moving_numRows + Repeat8__numRows
%>
<%
Dim Repeat7__numRows
Dim Repeat7__index

Repeat7__numRows = -1
Repeat7__index = 0
rs_serving_numRows = rs_serving_numRows + Repeat7__numRows
%>
<%
Dim MM_paramName 
%>
<%
' *** Go To Record and Move To Record: create strings for maintaining URL and Form parameters

Dim MM_keepNone
Dim MM_keepURL
Dim MM_keepForm
Dim MM_keepBoth

Dim MM_removeList
Dim MM_item
Dim MM_nextItem

' create the list of parameters which should not be maintained
MM_removeList = "&index="
If (MM_paramName <> "") Then
  MM_removeList = MM_removeList & "&" & MM_paramName & "="
End If

MM_keepURL=""
MM_keepForm=""
MM_keepBoth=""
MM_keepNone=""

' add the URL parameters to the MM_keepURL string
For Each MM_item In Request.QueryString
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepURL = MM_keepURL & MM_nextItem & Server.URLencode(Request.QueryString(MM_item))
  End If
Next

' add the Form variables to the MM_keepForm string
For Each MM_item In Request.Form
  MM_nextItem = "&" & MM_item & "="
  If (InStr(1,MM_removeList,MM_nextItem,1) = 0) Then
    MM_keepForm = MM_keepForm & MM_nextItem & Server.URLencode(Request.Form(MM_item))
  End If
Next

' create the Form + URL string and remove the intial '&' from each of the strings
MM_keepBoth = MM_keepURL & MM_keepForm
If (MM_keepBoth <> "") Then 
  MM_keepBoth = Right(MM_keepBoth, Len(MM_keepBoth) - 1)
End If
If (MM_keepURL <> "")  Then
  MM_keepURL  = Right(MM_keepURL, Len(MM_keepURL) - 1)
End If
If (MM_keepForm <> "") Then
  MM_keepForm = Right(MM_keepForm, Len(MM_keepForm) - 1)
End If

' a utility function used for adding additional parameters to these strings
Function MM_joinChar(firstItem)
  If (firstItem <> "") Then
    MM_joinChar = "&"
  Else
    MM_joinChar = ""
  End If
End Function
%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<SCRIPT RUNAT=SERVER LANGUAGE=VBSCRIPT>					
function DoDateTime(str, nNamedFormat, nLCID)				
	dim strRet								
	dim nOldLCID								
										
	strRet = str								
	If (nLCID > -1) Then							
		oldLCID = Session.LCID						
	End If									
										
	On Error Resume Next							
										
	If (nLCID > -1) Then							
		Session.LCID = nLCID						
	End If									
										
	If ((nLCID < 0) Or (Session.LCID = nLCID)) Then				
		strRet = FormatDateTime(str, nNamedFormat)			
	End If									
										
	If (nLCID > -1) Then							
		Session.LCID = oldLCID						
	End If									
										
	DoDateTime = strRet							
End Function									
</SCRIPT>									
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>.:: Digging Out Together - Diggingouttogether.com ::.</title>
<style type="text/css">
<!--
body,td,th {
	font-family: Verdana, Arial, Helvetica, sans-serif;
	font-size: 10pt;
	color: #000000;
}
body {
	background-color: #FFFFFF;
	margin-left: 0px;
	margin-top: 0px;
	margin-right: 0px;
	margin-bottom: 0px;
}
a {
	font-size: 10pt;
	color: #000000;
}
a:visited {
	color: #000000;
}
a:hover {
	color: #000099;
}
a:active {
	color: #000099;
}
.style2 {
	font-family: "Times New Roman", Times, serif;
	font-size: 14pt;
	color: #FFFFFF;
}
.style3 {font-size: 10px}
.style4 {color: #FFFFFF}
-->
</style>
<SCRIPT LANGUAGE="JavaScript">
<!--
function addbookmark()
{
bookmarkurl="http://www.diggingouttogether.com"
bookmarktitle="Digging Out Together"
if (document.all)
window.external.AddFavorite(bookmarkurl,bookmarktitle)
}

function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
<script language="JavaScript" type="text/JavaScript">
<!--


function MM_openBrWindow(theURL,winName,features) { //v2.0
  window.open(theURL,winName,features);
}
//-->
</script>
</head>

<body>
<table width="770" border="0" align="center" cellpadding="0" cellspacing="2">
  <tr>
    <td colspan="6" bgcolor="#9AB1FF"><img src="images/archive_top.jpg" width="563" height="100" /></td>
    <td width="207" rowspan="2"><img src="images/top_right.jpg" width="207" height="124" /></td>
  </tr>
  <tr>
    <td colspan="6" bgcolor="#333366">
	<div align="center">
		<span class="style2"><strong>Encouragement for Overcoming What Is to 
		Realize What Can Be</strong></span></div>
	</td>
  </tr>
  <tr>
    <td width="63" bgcolor="d5d8dd"><div align="center"><a href="index.htm">Home</a></div></td>
    <td width="70" height="20" bgcolor="#9AB1FF"><div align="center"><a href="about/about.htm">About</a> </div></td>
    <td width="72" bgcolor="d5d8dd"><div align="center"><a href="bio/bio.htm">Julie Bio</a> </div></td>
    <td width="114" bgcolor="#9AB1FF"><div align="center"><a href="speaking/speaking_info.htm">Speaking Info</a> </div></td>
    <td width="116" bgcolor="d5d8dd"><div align="center"><a href="notes_quotes/note_quote.htm">Notes &amp; Quotes</a></div></td>
    <td width="118" bgcolor="#9AB1FF"><div align="center"><a href="organizing_tips/organizing_tips.htm">Organizing Tips </a></div></td>
    <td bgcolor="d5d8dd"><div align="center"><a href="archives.asp" target="_blank">Digging For Treasure Archives</a>  </div></td>
  </tr>
  <tr>
    <td height="146" colspan="6"><p>All experiences, even bad ones, can be used for good if we take the time to learn from them. Zig Zigler emphasized this when he told eighteen thousand seminar attendees, &ldquo;Failure is an event, it is not a person.&rdquo; Below are nuggets of insight discovered while digging out from my own &lsquo;events&rsquo;. May they inspire you to look for your own messages in the mess of everyday living. </p>
    <hr /></td>
    <td rowspan="4" valign="top"><table width="100%"  border="0" cellspacing="3" cellpadding="0">
      <tr bgcolor="#9AB1FF">
        <td colspan="2"><h4 align="center" class="style4">Archives</h4>
          <p><strong>- Book Reviews<br />
            </strong>
            <% 
While ((Repeat1__numRows <> 0) AND (NOT rs_general.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
            <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_general.Fields.Item("Title").Value %>"><%=(rs_general.Fields.Item("Title").Value)%></A><br />
            <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rs_general.MoveNext()
Wend
%>
                    </p>
          <p><strong>- Moving Moments<br />
            </strong>
            <% 
While ((Repeat8__numRows <> 0) AND (NOT rs_moving.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
                        <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_moving.Fields.Item("Title").Value %>"><%=(rs_moving.Fields.Item("Title").Value)%></A><br />
            <% 
  Repeat8__index=Repeat8__index+1
  Repeat8__numRows=Repeat8__numRows-1
  rs_moving.MoveNext()
Wend
%>
            <strong><br />
            </strong>
          <p><strong>- Parenting<br />
              </strong>
              <% 
While ((Repeat2__numRows <> 0) AND (NOT rs_parenting.EOF)) 
%>
&nbsp;&nbsp;&nbsp;&nbsp; <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_parenting.Fields.Item("Title").Value %>"><%=(rs_parenting.Fields.Item("Title").Value)%></A><br />
  <% 
  Repeat2__index=Repeat2__index+1
  Repeat2__numRows=Repeat2__numRows-1
  rs_parenting.MoveNext()
Wend
%>
          </p>
          <p><strong>- Perseverance<br />
              </strong>
            <% 
While ((Repeat3__numRows <> 0) AND (NOT rs_perseverance.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
            <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_perseverance.Fields.Item("Title").Value %>"><%=(rs_perseverance.Fields.Item("Title").Value)%></A><br />
            <% 
  Repeat3__index=Repeat3__index+1
  Repeat3__numRows=Repeat3__numRows-1
  rs_perseverance.MoveNext()
Wend
%>
</p>
          
          <p><strong>- Relationships<br />
              </strong>
            <% 
While ((Repeat4__numRows <> 0) AND (NOT rs_relationships.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
            <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_relationships.Fields.Item("Title").Value %>"><%=(rs_relationships.Fields.Item("Title").Value)%></A><br />
            <% 
  Repeat4__index=Repeat4__index+1
  Repeat4__numRows=Repeat4__numRows-1
  rs_relationships.MoveNext()
Wend
%>
</p>
          
          <p><strong>- Serving</strong><br />
            <% 
While ((Repeat7__numRows <> 0) AND (NOT rs_serving.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
            <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_serving.Fields.Item("Title").Value %>"><%=(rs_serving.Fields.Item("Title").Value)%></A><br/>
            <% 
  Repeat7__index=Repeat7__index+1
  Repeat7__numRows=Repeat7__numRows-1
  rs_serving.MoveNext()
Wend
%>
</p>
          <p><strong>- Thoughts to Grown On<br />
              </strong>
              <% 
While ((Repeat5__numRows <> 0) AND (NOT rs_thoughts.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
              <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_thoughts.Fields.Item("Title").Value %>"><%=(rs_thoughts.Fields.Item("Title").Value)%></A><br />
              <% 
  Repeat5__index=Repeat5__index+1
  Repeat5__numRows=Repeat5__numRows-1
  rs_thoughts.MoveNext()
Wend
%>
          </p>
          <p><strong>- Trusting God<br />
            </strong>
            <% 
While ((Repeat6__numRows <> 0) AND (NOT rs_trusting_god.EOF)) 
%>&nbsp;&nbsp;&nbsp;&nbsp;
            <A HREF="archives_details.asp?<%= Server.HTMLEncode(MM_keepNone) & MM_joinChar(MM_keepNone) & "Title=" & rs_trusting_god.Fields.Item("Title").Value %>"><%=(rs_trusting_god.Fields.Item("Title").Value)%></A><br />
			            <% 
  Repeat6__index=Repeat6__index+1
  Repeat6__numRows=Repeat6__numRows-1
  rs_trusting_god.MoveNext()
Wend
%>
</p>
          <p>&nbsp; </p></td>
        </tr>
    </table></td>
  </tr>
  <tr>
    <td colspan="3"><h4><strong><%=(rs_newest.Fields.Item("Title").Value)%></strong></h4></td>
    <td><div align="right"></div></td>
    <td>&nbsp;</td>
    <td><%= DoDateTime((rs_newest.Fields.Item("Date").Value), 1, 4105) %></td>
  </tr>
  <tr>
    <td colspan="6"><%=(rs_newest.Fields.Item("Entry").Value)%></td>
  </tr>
  <tr>
    <td colspan="6" valign="top"><div align="center">
      <p>&nbsp;</p>
      <p><a href="javascript:;" onclick="MM_openBrWindow('archives/comment.htm','','width=400,height=500')">Submit Your Comment</a> </p>
      <p>&nbsp;</p>
    </div></td>
  </tr>
  <tr>
    <td colspan="7"><div align="center"><a href="javascript:;" onclick="MM_openBrWindow('newsletter/sub_newsletter.htm','','width=406,height=300')">Subscribe to Newsletter</a> |<a href="javascript:addbookmark()">Bookmark this Site</a> | <a href="contact/contact.htm">Contact Us</a>      
        <hr /> 
      </div></td>
  </tr>
  <tr>
    <td colspan="7"><p align="center" class="style8 style3">DiggingOutTogether.com is intended as a practical reference, and should not be considered as a substitute for advice from medical, mental health or legal professionals. <a 
href="javascript:;" onclick="MM_openBrWindow('about/legal_disclaimer.htm','','width=408,height=351')">Details</a>.<br />
  Copyright &copy; 2006 DiggingOutTogether.com. All rights reserved.</p></td>
  </tr>
</table>
</body>
</html>
<%
rs_newest.Close()
Set rs_newest = Nothing
%>
<%
rs_general.Close()
Set rs_general = Nothing
%>
<%
rs_parenting.Close()
Set rs_parenting = Nothing
%>
<%
rs_perseverance.Close()
Set rs_perseverance = Nothing
%>
<%
rs_relationships.Close()
Set rs_relationships = Nothing
%>
<%
rs_thoughts.Close()
Set rs_thoughts = Nothing
%>
<%
rs_trusting_god.Close()
Set rs_trusting_god = Nothing
%>
<%
rs_serving.Close()
Set rs_serving = Nothing
%>
<%
rs_moving.Close()
Set rs_moving = Nothing
%>