<%@ Language=VBScript %>
<%
'--------------------------------------------------------------------
' Microsoft ADO
'
' (c) 1996-1998 Microsoft Corporation.  All Rights Reserved.
'
'
'
' ADO constants include file for VBScript
'
'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----
Const adOpenForwardOnly = 0
Const adOpenKeyset = 1
Const adOpenDynamic = 2
Const adOpenStatic = 3

'---- CursorOptionEnum Values ----
Const adHoldRecords = &H00000100
Const adMovePrevious = &H00000200
Const adAddNew = &H01000400
Const adDelete = &H01000800
Const adUpdate = &H01008000
Const adBookmark = &H00002000
Const adApproxPosition = &H00004000
Const adUpdateBatch = &H00010000
Const adResync = &H00020000
Const adNotify = &H00040000
Const adFind = &H00080000
Const adSeek = &H00400000
Const adIndex = &H00800000

'---- LockTypeEnum Values ----
Const adLockReadOnly = 1
Const adLockPessimistic = 2
Const adLockOptimistic = 3
Const adLockBatchOptimistic = 4

'---- ExecuteOptionEnum Values ----
Const adRunAsync = &H00000010
Const adAsyncExecute = &H00000010
Const adAsyncFetch = &H00000020
Const adAsyncFetchNonBlocking = &H00000040
Const adExecuteNoRecords = &H00000080

'---- ConnectOptionEnum Values ----
Const adAsyncConnect = &H00000010

'---- ObjectStateEnum Values ----
Const adStateClosed = &H00000000
Const adStateOpen = &H00000001
Const adStateConnecting = &H00000002
Const adStateExecuting = &H00000004
Const adStateFetching = &H00000008

'---- CursorLocationEnum Values ----
Const adUseServer = 2
Const adUseClient = 3

'---- DataTypeEnum Values ----
Const adEmpty = 0
Const adTinyInt = 16
Const adSmallInt = 2
Const adInteger = 3
Const adBigInt = 20
Const adUnsignedTinyInt = 17
Const adUnsignedSmallInt = 18
Const adUnsignedInt = 19
Const adUnsignedBigInt = 21
Const adSingle = 4
Const adDouble = 5
Const adCurrency = 6
Const adDecimal = 14
Const adNumeric = 131
Const adBoolean = 11
Const adError = 10
Const adUserDefined = 132
Const adVariant = 12
Const adIDispatch = 9
Const adIUnknown = 13
Const adGUID = 72
Const adDate = 7
Const adDBDate = 133
Const adDBTime = 134
Const adDBTimeStamp = 135
Const adBSTR = 8
Const adChar = 129
Const adVarChar = 200
Const adLongVarChar = 201
Const adWChar = 130
Const adVarWChar = 202
Const adLongVarWChar = 203
Const adBinary = 128
Const adVarBinary = 204
Const adLongVarBinary = 205
Const adChapter = 136
Const adFileTime = 64
Const adDBFileTime = 137
Const adPropVariant = 138
Const adVarNumeric = 139

'---- FieldAttributeEnum Values ----
Const adFldMayDefer = &H00000002
Const adFldUpdatable = &H00000004
Const adFldUnknownUpdatable = &H00000008
Const adFldFixed = &H00000010
Const adFldIsNullable = &H00000020
Const adFldMayBeNull = &H00000040
Const adFldLong = &H00000080
Const adFldRowID = &H00000100
Const adFldRowVersion = &H00000200
Const adFldCacheDeferred = &H00001000
Const adFldKeyColumn = &H00008000

'---- EditModeEnum Values ----
Const adEditNone = &H0000
Const adEditInProgress = &H0001
Const adEditAdd = &H0002
Const adEditDelete = &H0004

'---- RecordStatusEnum Values ----
Const adRecOK = &H0000000
Const adRecNew = &H0000001
Const adRecModified = &H0000002
Const adRecDeleted = &H0000004
Const adRecUnmodified = &H0000008
Const adRecInvalid = &H0000010
Const adRecMultipleChanges = &H0000040
Const adRecPendingChanges = &H0000080
Const adRecCanceled = &H0000100
Const adRecCantRelease = &H0000400
Const adRecConcurrencyViolation = &H0000800
Const adRecIntegrityViolation = &H0001000
Const adRecMaxChangesExceeded = &H0002000
Const adRecObjectOpen = &H0004000
Const adRecOutOfMemory = &H0008000
Const adRecPermissionDenied = &H0010000
Const adRecSchemaViolation = &H0020000
Const adRecDBDeleted = &H0040000

'---- GetRowsOptionEnum Values ----
Const adGetRowsRest = -1

'---- PositionEnum Values ----
Const adPosUnknown = -1
Const adPosBOF = -2
Const adPosEOF = -3

'---- enum Values ----
Const adBookmarkCurrent = 0
Const adBookmarkFirst = 1
Const adBookmarkLast = 2

'---- MarshalOptionsEnum Values ----
Const adMarshalAll = 0
Const adMarshalModifiedOnly = 1

'---- AffectEnum Values ----
Const adAffectCurrent = 1
Const adAffectGroup = 2
Const adAffectAll = 3
Const adAffectAllChapters = 4

'---- ResyncEnum Values ----
Const adResyncUnderlyingValues = 1
Const adResyncAllValues = 2

'---- CompareEnum Values ----
Const adCompareLessThan = 0
Const adCompareEqual = 1
Const adCompareGreaterThan = 2
Const adCompareNotEqual = 3
Const adCompareNotComparable = 4

'---- FilterGroupEnum Values ----
Const adFilterNone = 0
Const adFilterPendingRecords = 1
Const adFilterAffectedRecords = 2
Const adFilterFetchedRecords = 3
Const adFilterPredicate = 4
Const adFilterConflictingRecords = 5

'---- SearchDirectionEnum Values ----
Const adSearchForward = 1
Const adSearchBackward = -1

'---- PersistFormatEnum Values ----
Const adPersistADTG = 0
Const adPersistXML = 1

'---- StringFormatEnum Values ----
Const adStringXML = 0
Const adStringHTML = 1
Const adClipString = 2

'---- ConnectPromptEnum Values ----
Const adPromptAlways = 1
Const adPromptComplete = 2
Const adPromptCompleteRequired = 3
Const adPromptNever = 4

'---- ConnectModeEnum Values ----
Const adModeUnknown = 0
Const adModeRead = 1
Const adModeWrite = 2
Const adModeReadWrite = 3
Const adModeShareDenyRead = 4
Const adModeShareDenyWrite = 8
Const adModeShareExclusive = &Hc
Const adModeShareDenyNone = &H10

'---- IsolationLevelEnum Values ----
Const adXactUnspecified = &Hffffffff
Const adXactChaos = &H00000010
Const adXactReadUncommitted = &H00000100
Const adXactBrowse = &H00000100
Const adXactCursorStability = &H00001000
Const adXactReadCommitted = &H00001000
Const adXactRepeatableRead = &H00010000
Const adXactSerializable = &H00100000
Const adXactIsolated = &H00100000

'---- XactAttributeEnum Values ----
Const adXactCommitRetaining = &H00020000
Const adXactAbortRetaining = &H00040000

'---- PropertyAttributesEnum Values ----
Const adPropNotSupported = &H0000
Const adPropRequired = &H0001
Const adPropOptional = &H0002
Const adPropRead = &H0200
Const adPropWrite = &H0400

'---- ErrorValueEnum Values ----
Const adErrInvalidArgument = &Hbb9
Const adErrNoCurrentRecord = &Hbcd
Const adErrIllegalOperation = &Hc93
Const adErrInTransaction = &Hcae
Const adErrFeatureNotAvailable = &Hcb3
Const adErrItemNotFound = &Hcc1
Const adErrObjectInCollection = &Hd27
Const adErrObjectNotSet = &Hd5c
Const adErrDataConversion = &Hd5d
Const adErrObjectClosed = &He78
Const adErrObjectOpen = &He79
Const adErrProviderNotFound = &He7a
Const adErrBoundToCommand = &He7b
Const adErrInvalidParamInfo = &He7c
Const adErrInvalidConnection = &He7d
Const adErrNotReentrant = &He7e
Const adErrStillExecuting = &He7f
Const adErrOperationCancelled = &He80
Const adErrStillConnecting = &He81
Const adErrNotExecuting = &He83
Const adErrUnsafeOperation = &He84

'---- ParameterAttributesEnum Values ----
Const adParamSigned = &H0010
Const adParamNullable = &H0040
Const adParamLong = &H0080

'---- ParameterDirectionEnum Values ----
Const adParamUnknown = &H0000
Const adParamInput = &H0001
Const adParamOutput = &H0002
Const adParamInputOutput = &H0003
Const adParamReturnValue = &H0004

'---- CommandTypeEnum Values ----
Const adCmdUnknown = &H0008
Const adCmdText = &H0001
Const adCmdTable = &H0002
Const adCmdStoredProc = &H0004
Const adCmdFile = &H0100
Const adCmdTableDirect = &H0200

'---- EventStatusEnum Values ----
Const adStatusOK = &H0000001
Const adStatusErrorsOccurred = &H0000002
Const adStatusCantDeny = &H0000003
Const adStatusCancel = &H0000004
Const adStatusUnwantedEvent = &H0000005

'---- EventReasonEnum Values ----
Const adRsnAddNew = 1
Const adRsnDelete = 2
Const adRsnUpdate = 3
Const adRsnUndoUpdate = 4
Const adRsnUndoAddNew = 5
Const adRsnUndoDelete = 6
Const adRsnRequery = 7
Const adRsnResynch = 8
Const adRsnClose = 9
Const adRsnMove = 10
Const adRsnFirstChange = 11
Const adRsnMoveFirst = 12
Const adRsnMoveNext = 13
Const adRsnMovePrevious = 14
Const adRsnMoveLast = 15

'---- SchemaEnum Values ----
Const adSchemaProviderSpecific = -1
Const adSchemaAsserts = 0
Const adSchemaCatalogs = 1
Const adSchemaCharacterSets = 2
Const adSchemaCollations = 3
Const adSchemaColumns = 4
Const adSchemaCheckConstraints = 5
Const adSchemaConstraintColumnUsage = 6
Const adSchemaConstraintTableUsage = 7
Const adSchemaKeyColumnUsage = 8
Const adSchemaReferentialConstraints = 9
Const adSchemaTableConstraints = 10
Const adSchemaColumnsDomainUsage = 11
Const adSchemaIndexes = 12
Const adSchemaColumnPrivileges = 13
Const adSchemaTablePrivileges = 14
Const adSchemaUsagePrivileges = 15
Const adSchemaProcedures = 16
Const adSchemaSchemata = 17
Const adSchemaSQLLanguages = 18
Const adSchemaStatistics = 19
Const adSchemaTables = 20
Const adSchemaTranslations = 21
Const adSchemaProviderTypes = 22
Const adSchemaViews = 23
Const adSchemaViewColumnUsage = 24
Const adSchemaViewTableUsage = 25
Const adSchemaProcedureParameters = 26
Const adSchemaForeignKeys = 27
Const adSchemaPrimaryKeys = 28
Const adSchemaProcedureColumns = 29
Const adSchemaDBInfoKeywords = 30
Const adSchemaDBInfoLiterals = 31
Const adSchemaCubes = 32
Const adSchemaDimensions = 33
Const adSchemaHierarchies = 34
Const adSchemaLevels = 35
Const adSchemaMeasures = 36
Const adSchemaProperties = 37
Const adSchemaMembers = 38

'---- SeekEnum Values ----
Const adSeekFirstEQ = &H1
Const adSeekLastEQ = &H2
Const adSeekAfterEQ = &H4
Const adSeekAfter = &H8
Const adSeekBeforeEQ = &H10
Const adSeekBefore = &H20

'---- ADCPROP_UPDATECRITERIA_ENUM Values ----
Const adCriteriaKey = 0
Const adCriteriaAllCols = 1
Const adCriteriaUpdCols = 2
Const adCriteriaTimeStamp = 3

'---- ADCPROP_ASYNCTHREADPRIORITY_ENUM Values ----
Const adPriorityLowest = 1
Const adPriorityBelowNormal = 2
Const adPriorityNormal = 3
Const adPriorityAboveNormal = 4
Const adPriorityHighest = 5

'---- CEResyncEnum Values ----
Const adResyncNone = 0
Const adResyncAutoIncrement = 1
Const adResyncConflicts = 2
Const adResyncUpdates = 4
Const adResyncInserts = 8
Const adResyncAll = 15

'---- ADCPROP_AUTORECALC_ENUM Values ----
Const adRecalcUpFront = 0
Const adRecalcAlways = 1
%>

<%
' Identify the site
Const SiteName = "TRSAR"
Const DomainName = "TRSAR"
Const DomainArea = "org"
Const DomainMail = "mail.TRSAR.org"

Const DomainAdmin = "webmaster@trsar.org"
Const DomainAuth = "j9windoze"

' Const DomainBoss = "webmaster@TRSAR.org"
' Const DomainBoss = "webmaster@TRSAR.org"
Const DomainBoss = "Jack@JacksWebs.com"

Const Developer = "jack@jackswebs.com"

' Do you want to send an notification to DomainBoss 
Const SendMailA = "Yes"
' Const SendMailA = "No"

' Do you want to send an notification to the developer 
Const SendMailD = "Yes"
' Const SendMailD = "No"

' Do you want to send an notification to the member 
Const SendMailU = "Yes"
' Const SendMailU = "No"

' Do you want to send notice when the user logs on
Const LogNotify = "Yes"
' Const LogNotify = "No"

' Change the Login Name and Password for Administration here
Const AdminName = "adminboss"
Const AdminPass = "Jacks_Webs"

' Very Necessary public variable (DO NOT DELETE OR CHANGE)
Dim gbConn

Sub OpenDataConnection

' This is the database path (Folder needs write permission}
' where you keep the database or nothing will not work
  Dim dbPath
  dbPath = Server.MapPath("/database/common.mdb")
' Response.Write "<BR>Database path =[" & dbpath & "]<br>"
  
' This connects the database to the asp pages
  Set gbConn = Server.CreateObject("ADODB.Connection")
  gbConn.Open "Provider=Microsoft.Jet.OLEDB.4.0;DATA SOURCE=" & dbPath
  
End Sub

Function FormatMessage(strMessage)
  Dim strTemp
	strTemp = Server.HTMLEncode(strMessage)
	strTemp = Replace(strTemp, "       ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
	strTemp = Replace(strTemp, "      ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
	strTemp = Replace(strTemp, "     ", "&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
	strTemp = Replace(strTemp, "    ", "&nbsp;&nbsp;&nbsp;&nbsp;", 1, -1, 1)
	strTemp = Replace(strTemp, "   ", "&nbsp;&nbsp;&nbsp;", 1, -1, 1)
	strTemp = Replace(strTemp, vbCrLf & vbCrLf, "<BR><BR>" & vbCrLf, 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;i&gt;", "<i>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;/i&gt;", "</i>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;b&gt;", "<b>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;/b&gt;", "</b>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;u&gt;", "<u>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;/u&gt;", "</u>", 1, -1, 1)
	strTemp = Replace(strTemp, "&lt;br&gt;", "<br>", 1, -1, 1)
	strTemp = Replace(strTemp, "&amp;", "&", 1, -1, 1)
	FormatMessage = strTemp
End Function

Function TitleCase(xStr)
 Dim tcTmp, tcStr, tcIndex, tcLength
 tcStr = " "
 tcTmp = " " & Trim(xStr) & " "
 tcLength = Len(tcTmp)
 tcIndex = 1
 Do While tcIndex < tcLength
   tcIndex = tcIndex + 1
   Select Case Mid(tcTmp,tcIndex-1,1)
     Case " "
       tcStr = tcStr & Ucase(Mid(tcTmp,tcIndex,1))
     Case "("
       tcStr = tcStr & Ucase(Mid(tcTmp,tcIndex,1))
     Case "I"
       If tcIndex > 2 AND UCase(Mid(tcTmp,tcIndex,1)) = "I" Then
         tcStr = tcStr & Ucase(Mid(tcTmp,tcIndex,1))
       Else
         tcStr = tcStr & Lcase(Mid(tcTmp,tcIndex,1))
       End If
     Case Else
       tcStr = tcStr & Lcase(Mid(tcTmp,tcIndex,1))
   End Select
 Loop
 TitleCase = Trim(tcStr)
End Function

Function strReplace(strValue)
  If not IsNull(strValue) or Trim(strValue) <> "" then
    strReplace =  Replace(strValue, "'"," ")
  end if
End function
%>
<%
'  This function accepts a string variable and verifies if it is in
'  the proper format for an e-mail address or not.

'  The function returns true if the format is valid, false if not.
Function isEmaila(email)
  Dim invalidChars, badChar, lengthOfEmail, Pos, i
  invalidChars = " ~\'^`""*+=|][(){}$&!#%/:,;"
  isEmaila = True
  ' Check for null
  If email = "" Then
    isEmaila = False
  Else
    ' Must be length 5 or more (a@b.c)
    If Len(email) < 5 Then
      isEmaila = False
    Else
      ' Check for invalid characters as defined above
      For i=1 to Len(invalidChars)
        badChar = Mid(invalidChars,i,1)
        If InStr(email, badChar) > 0 Then
          isEmaila = False
        End If
      Next
    End If
  End If
End Function

function isEmail(email)
  Dim Pos, i
  email = Trim(Lcase(" " & email))
  ' Check for null and bad characters
  isEmail = True
  If isEmaila(email) Then
    lengthOfEmail = Len(email)
    ' No period in either of last two places
    If (Right(email,1) = ".") OR (Mid(email,lengthOfEmail - 1,1) = ".") Then
        isEmail = False
    Else
        ' There must be at least one @ symbol but not first
        ' Also no @ in last 3 characters
        Pos = InStr(email, "@")
        If (Pos < 2) OR (Pos > (lengthOfEmail - 3)) Then
          isEmail = False
        Else
          ' Must be 1 period after the @ but not next to it
          i = InStr(Right(email,lengthOfEmail - Pos), ".")
          If i < 2 Then
            isEmail = False
          End If
        End If
    End If
  Else
    isEmail = False
  End If
End Function
%>
<%
Function SendEMail(CDOTo, CDOSubject, CDOBody, CDOType)
  Dim CDOEmsg
  CDOEmsg = ""
  IF CDOTo > " " Then
	If isEmail(CDOTo) Then
		Dim objMail
		set objMail = Server.CreateObject("CDO.Message")
		objMail.from = DomainAdmin
		objMail.to = CDOTo
		objMail.subject = CDOSubject
		If UCase(CDOType) = "HTML" Then
			objMail.HTMLBody = CDOBody
		Else
			objMail.TextBody = CDOBody
		End If
		On Error Resume Next
		objMail.Send
		If Err.Number <> 0 Then
			CDOEmsg = "An error ocurred: " & Err.Description
		End If
		Set objMail= Nothing
	Else
		CDOEmsg = "Invalid Email Address"
	End If
  End If
  SendEmail = CDOEmsg
End Function
%>
<%
Function Send2Member (sEmail, sSubject, sBody, sType)
' assumes the calling program has included function.asp
  Dim s2mErr
  s2mErr = "Send Mail To Member (" & sEmail & ")" & VBCRLF
  s2mErr = s2mErr & VBCRLF & SendEmail(sEmail1, sSubjet, sBody, sType)
  Send2Member = s2mErr
End Function
%>
<%
Function strFixQuote(strValue)
  If not IsNull(strValue) or Trim(strValue) <> "" then
    strReplace =  Replace(strValue, "'","''")
  end if
End function
%>
<%
sql = "select * from Members ORDER BY LastName, FirstName"
Call OpenDataConnection
Set RS = Server.CreateObject("ADODB.RecordSet")
RS.Open sql, gbConn, adOpenKeyset , adLockOptimistic
%>
<html>

<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<meta http-equiv="Content-Language" content="en-us">
<title>Members Roster</title>
<link rel="stylesheet" type="text/css" href="../css/text.css">
<style>
<!--
body.hmmessage
{
FONT-SIZE: 10pt;
FONT-FAMILY:Tahoma
}
-->
</style>
<script src="view.js"></script>


<meta name="Microsoft Theme" content="trsar-nature-1-green-mountains 0010, default">
<meta name="Microsoft Border" content="b">
<body bgcolor="#FFFFFF" text="#000000" link="#2F4F2F" vlink="#2F4F2F" alink="#2F4F2F"><!--msnavigation--><table dir="ltr" border="0" cellpadding="0" cellspacing="0" width="100%"><tr><!--msnavigation--><td valign="top"><!--mstheme--><font face="Arial, Arial, Helvetica">


<div ALIGN="left">
  
  <!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" HEIGHT="40">
    <tr>
      <td WIDTH="100%" HEIGHT="40" VALIGN="bottom"><!--mstheme--><font face="Arial, Arial, Helvetica">
      <!--webbot bot="Include" U-Include="../header.htm" TAG="BODY" startspan -->
<p align="center">
<img border="0" src="../images/trsar_header4.gif" width="728" height="28"></p><!--webbot bot="Include" i-checksum="9595" endspan --><!--mstheme--></font></td>
    </tr>
  </table><!--mstheme--><font face="Arial, Arial, Helvetica">
  
</div>
<div ALIGN="right">
  
  <!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">
    <tr>
      <td WIDTH="100%" VALIGN="bottom"><!--mstheme--><font face="Arial, Arial, Helvetica">
      <div ALIGN="right">
        
        <!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0">
          <tr>
            <td><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
            <img BORDER="0" SRC="../images/gb_sp.gif" width="29" height="20"></b><!--mstheme--></font></td>
            <td BACKGROUND="../images/gb_bk.gif"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
            <font color="#FFFFFF">
            <!--webbot bot="Navigation" S-Type="global" S-Orientation="horizontal" S-Rendering="graphics" B-Include-Home="TRUE" B-Include-Up="FALSE" U-Page="members.asp" S-Target startspan --><a href="../index.htm"><img src="../_derived/home_cmp_trsar-nature-1-green-mountains010_gbtn.gif" width="90" height="15" border="0" alt="Home" align="middle"></a> <a href="../search.htm"><img src="../_derived/search.htm_cmp_trsar-nature-1-green-mountains010_gbtn.gif" width="90" height="15" border="0" alt="Search" align="middle"></a> <a href="../links.htm"><img src="../_derived/links.htm_cmp_trsar-nature-1-green-mountains010_gbtn.gif" width="90" height="15" border="0" alt="Links" align="middle"></a><!--webbot bot="Navigation" i-checksum="5253" endspan --></font></b><!--mstheme--></font></td>
          </tr>
        </table><!--mstheme--><font face="Arial, Arial, Helvetica">
        
      </div>
      <!--mstheme--></font></td>
    </tr>
    <tr>
      <td WIDTH="100%" BACKGROUND="../images/top_sp_bk.gif" VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
      
      <img BORDER="0" SRC="../images/top_sp_bk.gif" width="96" height="12"></b><!--mstheme--></font></td>
    </tr>
    <tr>
      <td WIDTH="100%" BACKGROUND="../images/main_bk.gif" VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica"><!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%">
          <tr>
            <td WIDTH="50%"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
            
              <object classid="clsid:D27CDB6E-AE6D-11CF-96B8-444553540000" id="obj1" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab#version=6,0,40,0" border="0" width="557" height="108" align="left">
                <param name="movie" value="../flash/movie1p.swf">
                <param name="quality" value="High">
                <embed src="../flash/movie1p.swf" pluginspage="http://www.macromedia.com/go/getflashplayer" type="application/x-shockwave-flash" name="obj1" width="557" height="108" quality="High"></object>
             </b><!--mstheme--></font></td>
            <td WIDTH="49%"><!--mstheme--><font face="Arial, Arial, Helvetica">
              <p align="center">
              <b><font face="Arial, Arial, Helvetica">
              <a href="http://www.trsar.org">
              <img border="0" src="../images/lic_plate180.gif" alt="Tonto Rim Search and Rescue" width="180" height="90"></a>
            	</font></b><!--mstheme--></font></td>
          </tr>
        </table><!--mstheme--><font face="Arial, Arial, Helvetica"><!--mstheme--></font></td>
    </tr>
    <tr>
      <td WIDTH="100%" VALIGN="top" BACKGROUND="../images/bt_sp_bk.gif"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
      
      <img BORDER="0" SRC="../images/bt_sp_bk.gif" width="96" height="18"></b><!--mstheme--></font></td>
    </tr>
  </table><!--mstheme--><font face="Arial, Arial, Helvetica">
  
</div>
<div ALIGN="left">
  
  <!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" background="../images/sar_badge_emb3.jpg" style="border-collapse: collapse">
    <tr>
      <td WIDTH="1%" VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica">
      <div ALIGN="left">
        
        <!--mstheme--></font><table BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="100%" BACKGROUND="../images/nav_bk.gif" height="305">
          <tr>
            <td WIDTH="100%" VALIGN="top" height="207"><!--mstheme--><font face="Arial, Arial, Helvetica">
            <div align="left">
              
              <!--mstheme--></font><table border="0" cellpadding="0" cellspacing="0" width="100%">
                <tr>
                  <td width="100%" valign="top"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
                  <font color="#FFFFFF">
                  <!--webbot bot="Navigation" S-Type="top" S-Orientation="vertical" S-Rendering="graphics" B-Include-Home="TRUE" B-Include-Up="FALSE" startspan --><script language="JavaScript"><!--
MSFPhover = 
  (((navigator.appName == "Netscape") && 
  (parseInt(navigator.appVersion) >= 3 )) || 
  ((navigator.appName == "Microsoft Internet Explorer") && 
  (parseInt(navigator.appVersion) >= 4 ))); 
function MSFPpreload(img) 
{
  var a=new Image(); a.src=img; return a; 
}
// --></script><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav1n=MSFPpreload("../_derived/home_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav1h=MSFPpreload("../_derived/home_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1h.src" onmouseout="if(MSFPhover) document['MSFPnav1'].src=MSFPnav1n.src"><img src="../_derived/home_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Home" name="MSFPnav1"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav2n=MSFPpreload("../_derived/about_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav2h=MSFPpreload("../_derived/about_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../about_us.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2h.src" onmouseout="if(MSFPhover) document['MSFPnav2'].src=MSFPnav2n.src"><img src="../_derived/about_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="About Us" name="MSFPnav2"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav3n=MSFPpreload("../_derived/membership.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav3h=MSFPpreload("../_derived/membership.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../membership.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3h.src" onmouseout="if(MSFPhover) document['MSFPnav3'].src=MSFPnav3n.src"><img src="../_derived/membership.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Membership" name="MSFPnav3"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav4n=MSFPpreload("../_derived/contact_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav4h=MSFPpreload("../_derived/contact_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../contact_us.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4h.src" onmouseout="if(MSFPhover) document['MSFPnav4'].src=MSFPnav4n.src"><img src="../_derived/contact_us.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Contact Us" name="MSFPnav4"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav5n=MSFPpreload("../EzEvents/EventCalendar/_derived/default.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav5h=MSFPpreload("../EzEvents/EventCalendar/_derived/default.asp_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../EzEvents/EventCalendar/default.asp" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav5'].src=MSFPnav5h.src" onmouseout="if(MSFPhover) document['MSFPnav5'].src=MSFPnav5n.src"><img src="../EzEvents/EventCalendar/_derived/default.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Event Calendar" name="MSFPnav5"></a><br><img src="_derived/members.asp_cmp_trsar-nature-1-green-mountains010_vbtn_p.gif" width="145" height="18" border="0" alt="Members Roster"><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav6n=MSFPpreload("../_derived/TRSAR-Google-Maps.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav6h=MSFPpreload("../_derived/TRSAR-Google-Maps.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../TRSAR-Google-Maps.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6h.src" onmouseout="if(MSFPhover) document['MSFPnav6'].src=MSFPnav6n.src"><img src="../_derived/TRSAR-Google-Maps.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="TRSAR-Google-Maps" name="MSFPnav6"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav7n=MSFPpreload("../_derived/faq.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav7h=MSFPpreload("../_derived/faq.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../faq.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7h.src" onmouseout="if(MSFPhover) document['MSFPnav7'].src=MSFPnav7n.src"><img src="../_derived/faq.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Frequently Asked Questions" name="MSFPnav7"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav8n=MSFPpreload("../RodCronk/_derived/rod-cronk.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav8h=MSFPpreload("../RodCronk/_derived/rod-cronk.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../RodCronk/rod-cronk.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav8'].src=MSFPnav8h.src" onmouseout="if(MSFPhover) document['MSFPnav8'].src=MSFPnav8n.src"><img src="../RodCronk/_derived/rod-cronk.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="The Rod Cronk Page" name="MSFPnav8"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav9n=MSFPpreload("../_derived/raffle-drawing.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav9h=MSFPpreload("../_derived/raffle-drawing.asp_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../raffle-drawing.asp" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav9'].src=MSFPnav9h.src" onmouseout="if(MSFPhover) document['MSFPnav9'].src=MSFPnav9n.src"><img src="../_derived/raffle-drawing.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="RAFFLE DRAWING 2008" name="MSFPnav9"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav10n=MSFPpreload("../_derived/donate_info.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav10h=MSFPpreload("../_derived/donate_info.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../donate_info.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav10'].src=MSFPnav10h.src" onmouseout="if(MSFPhover) document['MSFPnav10'].src=MSFPnav10n.src"><img src="../_derived/donate_info.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Donation Information" name="MSFPnav10"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav11n=MSFPpreload("../missions_recent/_derived/recent_missions.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav11h=MSFPpreload("../missions_recent/_derived/recent_missions.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../missions_recent/recent_missions.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav11'].src=MSFPnav11h.src" onmouseout="if(MSFPhover) document['MSFPnav11'].src=MSFPnav11n.src"><img src="../missions_recent/_derived/recent_missions.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Missions-Recent" name="MSFPnav11"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav12n=MSFPpreload("../missions_archives/_derived/missions_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav12h=MSFPpreload("../missions_archives/_derived/missions_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../missions_archives/missions_archive_index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav12'].src=MSFPnav12h.src" onmouseout="if(MSFPhover) document['MSFPnav12'].src=MSFPnav12n.src"><img src="../missions_archives/_derived/missions_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Missions-Archived" name="MSFPnav12"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav13n=MSFPpreload("../sar_newsletter/2009/_derived/2009_newsletter_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav13h=MSFPpreload("../sar_newsletter/2009/_derived/2009_newsletter_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../sar_newsletter/2009/2009_newsletter_index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav13'].src=MSFPnav13h.src" onmouseout="if(MSFPhover) document['MSFPnav13'].src=MSFPnav13n.src"><img src="../sar_newsletter/2009/_derived/2009_newsletter_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="SAR Coordinates 2009" name="MSFPnav13"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav14n=MSFPpreload("../sar_newsletter/_derived/newsletter_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav14h=MSFPpreload("../sar_newsletter/_derived/newsletter_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../sar_newsletter/newsletter_archive_index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav14'].src=MSFPnav14h.src" onmouseout="if(MSFPhover) document['MSFPnav14'].src=MSFPnav14n.src"><img src="../sar_newsletter/_derived/newsletter_archive_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Coordinates Archives" name="MSFPnav14"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav15n=MSFPpreload("../_derived/wilderness_survival.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav15h=MSFPpreload("../_derived/wilderness_survival.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../wilderness_survival.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav15'].src=MSFPnav15h.src" onmouseout="if(MSFPhover) document['MSFPnav15'].src=MSFPnav15n.src"><img src="../_derived/wilderness_survival.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Wilderness Survival" name="MSFPnav15"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav16n=MSFPpreload("../project_lifesaver/_derived/proj_life_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav16h=MSFPpreload("../project_lifesaver/_derived/proj_life_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../project_lifesaver/proj_life_index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav16'].src=MSFPnav16h.src" onmouseout="if(MSFPhover) document['MSFPnav16'].src=MSFPnav16n.src"><img src="../project_lifesaver/_derived/proj_life_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Project Lifesaver Index" name="MSFPnav16"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav17n=MSFPpreload("../training/_derived/training_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav17h=MSFPpreload("../training/_derived/training_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../training/training_index.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav17'].src=MSFPnav17h.src" onmouseout="if(MSFPhover) document['MSFPnav17'].src=MSFPnav17n.src"><img src="../training/_derived/training_index.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Training" name="MSFPnav17"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav18n=MSFPpreload("../topo_quads/_derived/topo_quads.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav18h=MSFPpreload("../topo_quads/_derived/topo_quads.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../topo_quads/topo_quads.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav18'].src=MSFPnav18h.src" onmouseout="if(MSFPhover) document['MSFPnav18'].src=MSFPnav18n.src"><img src="../topo_quads/_derived/topo_quads.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="TRSAR Topo Quads" name="MSFPnav18"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav19n=MSFPpreload("../_derived/weather.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav19h=MSFPpreload("../_derived/weather.htm_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="../weather.htm" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav19'].src=MSFPnav19h.src" onmouseout="if(MSFPhover) document['MSFPnav19'].src=MSFPnav19n.src"><img src="../_derived/weather.htm_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Current Payson Weather" name="MSFPnav19"></a><br><script language="JavaScript"><!--
if(MSFPhover) { MSFPnav20n=MSFPpreload("_derived/members_only.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif"); MSFPnav20h=MSFPpreload("_derived/members_only.asp_cmp_trsar-nature-1-green-mountains010_vbtn_a.gif"); }
// --></script><a href="members_only.asp" language="JavaScript" onmouseover="if(MSFPhover) document['MSFPnav20'].src=MSFPnav20h.src" onmouseout="if(MSFPhover) document['MSFPnav20'].src=MSFPnav20n.src"><img src="_derived/members_only.asp_cmp_trsar-nature-1-green-mountains010_vbtn.gif" width="145" height="18" border="0" alt="Members Only" name="MSFPnav20"></a><!--webbot bot="Navigation" i-checksum="41442" endspan -->
                  </font></b><!--mstheme--></font></td>
                </tr>
              </table><!--mstheme--><font face="Arial, Arial, Helvetica">
              
            </div>
            <!--mstheme--></font></td>
          </tr>
          <tr>
            <td WIDTH="100%" VALIGN="top" height="82"><!--mstheme--><font face="Arial, Arial, Helvetica">
            <p ALIGN="left"><b>
			<font COLOR="#FFFFFF" face="Arial, Arial, Helvetica"><br>
            <br>
            <br>
            <br>
            </font></b></p>
            <!--mstheme--></font></td>
          </tr>
          <tr>
            <td WIDTH="100%" VALIGN="top" height="1"><!--mstheme--><font face="Arial, Arial, Helvetica">&nbsp;<!--mstheme--></font></td>
          </tr>
        </table><!--mstheme--><font face="Arial, Arial, Helvetica">
        
      </div>
      <!--mstheme--></font></td>
      <td WIDTH="99%" VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica">
      <div ALIGN="left">
        
        <!--mstheme--></font><table BORDER="0" CELLPADDING="5" CELLSPACING="12" width="100%" style="border-collapse: collapse">
          <tr>
            <td VALIGN="top" height="18"><!--mstheme--><font face="Arial, Arial, Helvetica">
            <p>
            <b><font size="3" face="Arial, Arial, Helvetica">TRSAR Roster&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;&nbsp; </font></b></p>
            <!--mstheme--></font><table border="0" width="100%" cellspacing="1" style="border-collapse: collapse">
              <tr>
                <td align="center"><!--mstheme--><font face="Arial, Arial, Helvetica">&nbsp;<!--mstheme--></font></td>
              </tr>
            </table><!--mstheme--><font face="Arial, Arial, Helvetica">
            <p>
            <b><font size="3" face="Arial, Arial, Helvetica">&nbsp;&nbsp;
<% If RS.EOF THEN %>
      		<br><b>Sorry there are no Member records to display.</b>
    <% End If %>
			&nbsp;</font></b></p>
            <div align="center">
              <center>
              <!--mstheme--></font><table border="1" cellpadding="5" cellspacing="1" style="border-collapse: collapse" width="100%" align="right" bordercolordark="#6D836D" bordercolorlight="#6D836D">
<% 
    Do while NOT RS.EOF
    	strID = RS("ID")
		strLastName = RS("LastName")
		strFirstName = RS("FirstName")
		strMemberID = RS("MemberID")
		strMemberStatus = RS("MemberStatus")
		strMemberPix = RS("MemberPix")
		If Len(RS("MemberPix")) > 4 Then
			strMemberPix = RS("MemberPix")
		Else
			strMemberPix = "pix/nopix.jpg"
		End If
		strMLevel = RS("Level")
		strTitle = RS("Title")
		Select Case strTitle
			Case "BM": strTitle = "Board Member"
			Case "MBR": strTitle = ""
            Case "GCSO": strTitle = "SAR Coordinator"
            Case "CMDR": strTitle = "Commander"
            Case "VCMDR": strTitle = "Vice Commander"
            Case "SCRTRY": strTitle = "Secretary"
            Case "TRSR": strTitle = "Treasurer"
            Case "WM": strTitle = "Web Master"
            Case Else: strTitle = ""
		End Select
		strEmail = RS("Email")
%>
                <tr>
                  <td width="24%" valign="top" align="center"><!--mstheme--><font face="Arial, Arial, Helvetica">
                    <b><%=strLastName%>,&nbsp;<%=strFirstName%>&nbsp;&nbsp;&nbsp;<%=strMemberID%><%=strMemberStatus%><br><%=strTitle%>
                    <br>
<% If (Session("TheLevel") = "9") OR ((Session("TheLevel") = "8") AND (strMLevel < "9")) Then %>
					<a href="memberedit.asp?r=<%=strID%>">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to edit member record"></a>
					<br>Picture: [<%=strMemberPix%>]
	<% If isEmail(strEmail) Then %>
					<br><a href="sendinfo.asp?mid=<%=strMemberID%>"><b>Email Info To Member</b></a>
					<br><a href="broadcast.asp?mid=<%=strMemberID%>"><b>Email Message To Member</b></a>
	<% End If %>
<% Else %>
                    <a href="javascript:view('<%=strMemberPix%>')">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to see picture full size"></a>
<% End If %>
                    </b><p>
                    &nbsp;<!--mstheme--></font></td>
                  <td width="25%" valign="top" align="center"><!--mstheme--><font face="Arial, Arial, Helvetica">
<%
	RS.MoveNext
	If NOT RS.EOF Then
    	strID = RS("ID")
		strLastName = RS("LastName")
		strFirstName = RS("FirstName")
		strMemberID = RS("MemberID")
		strMemberStatus = RS("MemberStatus")
		If Len(RS("MemberPix")) > 4 Then
			strMemberPix = RS("MemberPix")
		Else
			strMemberPix = "nopix.jpg"
		End If
		strMLevel = RS("Level")
		strTitle = RS("Title")
		Select Case strTitle
			Case "BM": strTitle = "Board Member"
			Case "MBR": strTitle = ""
            Case "GCSO": strTitle = "SAR Coordinator"
            Case "CMDR": strTitle = "Commander"
            Case "VCMDR": strTitle = "Vice Commander"
            Case "SCRTRY": strTitle = "Secretary"
            Case "TRSR": strTitle = "Treasurer"
            Case "WM": strTitle = "Web Master"
            Case Else: strTitle = ""
		End Select
		strEmail = RS("Email")
%>
                    <b><%=strLastName%>,&nbsp;<%=strFirstName%>&nbsp;&nbsp;&nbsp;<%=strMemberID%><%=strMemberStatus%><br><%=strTitle%>
                    <br>
<% If (Session("TheLevel") = "9") OR ((Session("TheLevel") = "8") AND (strMLevel < "9")) Then %>
					<a href="memberedit.asp?r=<%=strID%>">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to edit member record"></a>
					<br>Picture: [<%=strMemberPix%>]
	<% If isEmail(strEmail) Then %>
					<br><a href="sendinfo.asp?mid=<%=strMemberID%>"><b>Email Info To Member</b></a>
					<br><a href="broadcast.asp?mid=<%=strMemberID%>"><b>Email Message To Member</b></a>
	<% End If %>
<% Else %>
                    <a href="javascript:view('<%=strMemberPix%>')">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to see picture full size"></a>
<% End If %>
                    </b><p>
<% 
	RS.MoveNext
	End If 
%>
					&nbsp;<!--mstheme--></font></td>
                  <td width="31%" valign="top" align="center"><!--mstheme--><font face="Arial, Arial, Helvetica">
<%
	If NOT RS.EOF Then
    	strID = RS("ID")
		strLastName = RS("LastName")
		strFirstName = RS("FirstName")
		strMemberID = RS("MemberID")
		strMemberStatus = RS("MemberStatus")
		If Len(RS("MemberPix")) > 4 Then
			strMemberPix = RS("MemberPix")
		Else
			strMemberPix = "nopix.jpg"
		End If
		strMLevel = RS("Level")
		strTitle = RS("Title")
		Select Case strTitle
			Case "BM": strTitle = "Board Member"
			Case "MBR": strTitle = ""
            Case "GCSO": strTitle = "SAR Coordinator"
            Case "CMDR": strTitle = "Commander"
            Case "VCMDR": strTitle = "Vice Commander"
            Case "SCRTRY": strTitle = "Secretary"
            Case "TRSR": strTitle = "Treasurer"
            Case "WM": strTitle = "Web Master"
            Case Else: strTitle = ""
		End Select
		strEmail = RS("Email")
%>
                    <b><%=strLastName%>,&nbsp;<%=strFirstName%>&nbsp;&nbsp;&nbsp;<%=strMemberID%><%=strMemberStatus%><br><%=strTitle%>
                    <br>
<% If (Session("TheLevel") = "9") OR ((Session("TheLevel") = "8") AND (strMLevel < "9")) Then %>
					<a href="memberedit.asp?r=<%=strID%>">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to edit member record"></a>
					<br>Picture: [<%=strMemberPix%>]
	<% If isEmail(strEmail) Then %>
					<br><a href="sendinfo.asp?mid=<%=strMemberID%>"><b>Email Info To Member</b></a>
					<br><a href="broadcast.asp?mid=<%=strMemberID%>"><b>Email Message To Member</b></a>
	<% End If %>
<% Else %>
                    <a href="javascript:view('<%=strMemberPix%>')">
                    <img border="1" src="<%=strMemberPix%>" xthumbnail-orig-image="<%=strMemberPix%>" height="100" alt="Click to see picture full size"></a>
<% End If %>
                    </b><p>
<%
		RS.MoveNext
	End If 
%>
                  &nbsp;<!--mstheme--></font></td>
                </tr>
<%
      Loop
      RS.Close
      gbConn.Close
      If Session("TheLevel") > "7" Then
%>
                <tr>
                  <td align="center"><!--mstheme--><font face="Arial, Arial, Helvetica"><a href="memberedit.asp?r=0"><b>Add New Member</b></a>&nbsp;<!--mstheme--></font></td>
                  <td align="right" colspan="2"><!--mstheme--><font face="Arial, Arial, Helvetica">&nbsp;
<% ' If Session("TheLevel") = 9 AND Session("TheTitle") = "AdminBoss" Then %>
					<a href="broadcast.asp?mid=all"><b>Broadcast Email to TRSAR Members</b></a>		
					&nbsp;&nbsp;&nbsp;
<% ' End If %>
                  <!--mstheme--></font></td>
                </tr>
                <tr>
                  <td align="center" colspan="3"><!--mstheme--><font face="Arial, Arial, Helvetica"><b>
                  <a href="../database/common-ezevents.zip">UID/Password Database</a></b><!--mstheme--></font></td>
                </tr>
<% End If %>
                </table><!--mstheme--><font face="Arial, Arial, Helvetica"></center>
            </div>
            <p align="left">
            <br>&nbsp;
            <br>&nbsp;</p>
            <!--mstheme--></font></td>
          </tr>
          <tr>
            <td VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica">&nbsp;<!--mstheme--></font></td>
          </tr>
          <tr>
            <td VALIGN="top"><!--mstheme--><font face="Arial, Arial, Helvetica">&nbsp;<!--mstheme--></font></td>
          </tr>
        </table><!--mstheme--><font face="Arial, Arial, Helvetica">
        
      </div>
      <!--mstheme--></font></td>
    </tr>
          <tr>
            <td VALIGN="top" align="center"  colspan="2"><!--mstheme--><font face="Arial, Arial, Helvetica">
            <!--webbot bot="Include" U-Include="../footer.htm" TAG="BODY" startspan -->

<div align="center">
  <!--mstheme--></font><table border="0" cellpadding="3" cellspacing="1" style="border-collapse: collapse" width="63%" id="table1">
    <tr>
      <td><!--mstheme--><font face="Arial, Arial, Helvetica">
      <p align="center"><b>
     
      <a id="spamspoiler_ph1" style="color: blue"> Click to send an email to the TRSAR Commander</a>
<script language="JavaScript">
var userTo = '500';
var domainTo = 'trsar.org';
var userCC = '';
var domainCC = '';
var userBCC = '';
var domainBCC = '';
var subject = '';
var body = '';
document.write('<a href=\"mailto:' + escape(userTo) + '@' + escape(domainTo) + '\"> Click to send an email to the TRSAR Commander</a>');
var ssDiv = document.getElementById("spamspoiler_ph1");
ssDiv.style.display="none";

</script>
     
      </a>
		<br>
		</b><a href="../donate1.asp">
<img src="../images/PayPalDonate.gif" border ="0" longdesc="Help us search and rescue along the Tonto Rim" width="132" height="46"></a><br>
		<b>
     
      <font SIZE="1">Copyright � 2009 Tonto Rim 
Search and Rescue Squad</font></b></font><!--mstheme--></font></td>
    </tr>
  </table><!--mstheme--><font face="Arial, Arial, Helvetica">
</div><!--webbot bot="Include" i-checksum="9461" endspan --><!--mstheme--></font></td>
          </tr>
  </table><!--mstheme--><font face="Arial, Arial, Helvetica">
  
</div>

<p></p>
</font><!--mstheme--></font></td><td valign="top" width="24"><!--mstheme--><font face="Arial, Arial, Helvetica"><!--mstheme--></font></td><td valign="top" width="1%"><!--mstheme--><font face="Arial, Arial, Helvetica">

<p></p>

<!--mstheme--></font></td></tr></table><!--mstheme--><font face="Arial, Arial, Helvetica"></font><!--mstheme--></font></td><td valign="top" width="24"><!--mstheme--><font face="Arial, Arial, Helvetica"><!--mstheme--></font></td><td valign="top" width="1%"><!--mstheme--><font face="Arial, Arial, Helvetica">

<p></p>

<!--mstheme--></font></td></tr></table><!--mstheme--><font face="Arial, Arial, Helvetica"><!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Arial, Helvetica">
<p align="center">&nbsp;</p>

<!--mstheme--></font></td></tr><!--msnavigation--></table></body>

<!--mstheme--></font><!--msnavigation--></td></tr><!--msnavigation--></table><!--msnavigation--><table border="0" cellpadding="0" cellspacing="0" width="100%"><tr><td><!--mstheme--><font face="Arial, Arial, Helvetica">
<p align="center">&nbsp;</p>

<!--mstheme--></font></td></tr><!--msnavigation--></table></body>

</html>