<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="../../Connections/connAbts.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="member,admin"
MM_authFailedURL="mem_login.asp"
MM_grantAccess=false
If Session("MM_Username") <> "" Then
  If (false Or CStr(Session("MM_UserAuthorization"))="") Or _
         (InStr(1,MM_authorizedUsers,Session("MM_UserAuthorization"))>=1) Then
    MM_grantAccess = true
  End If
End If
If Not MM_grantAccess Then
  MM_qsChar = "?"
  If (InStr(1,MM_authFailedURL,"?") >= 1) Then MM_qsChar = "&"
  MM_referrer = Request.ServerVariables("URL")
  if (Len(Request.QueryString()) > 0) Then MM_referrer = MM_referrer & "?" & Request.QueryString()
  MM_authFailedURL = MM_authFailedURL & MM_qsChar & "accessdenied=" & Server.URLEncode(MM_referrer)
  Response.Redirect(MM_authFailedURL)
End If
%>
<%
Dim rsMemInfo__MMColParam
rsMemInfo__MMColParam = "1"
If (Request.QueryString("MemID") <> "") Then 
  rsMemInfo__MMColParam = Request.QueryString("MemID")
End If
%>
<%
Dim rsMemInfo
Dim rsMemInfo_numRows

Set rsMemInfo = Server.CreateObject("ADODB.Recordset")
rsMemInfo.ActiveConnection = MM_connAbts_STRING
rsMemInfo.Source = "SELECT * FROM tblMembers WHERE MemID = " + Replace(rsMemInfo__MMColParam, "'", "''") + " ORDER BY lastName ASC"
rsMemInfo.CursorType = 0
rsMemInfo.CursorLocation = 2
rsMemInfo.LockType = 1
rsMemInfo.Open()

rsMemInfo_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index

Repeat1__numRows = 3
Repeat1__index = 0
rsMemInfo_numRows = rsMemInfo_numRows + Repeat1__numRows
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rsMemInfo_total
Dim rsMemInfo_first
Dim rsMemInfo_last

' set the record count
rsMemInfo_total = rsMemInfo.RecordCount

' set the number of rows displayed on this page
If (rsMemInfo_numRows < 0) Then
  rsMemInfo_numRows = rsMemInfo_total
Elseif (rsMemInfo_numRows = 0) Then
  rsMemInfo_numRows = 1
End If

' set the first and last displayed record
rsMemInfo_first = 1
rsMemInfo_last  = rsMemInfo_first + rsMemInfo_numRows - 1

' if we have the correct record count, check the other stats
If (rsMemInfo_total <> -1) Then
  If (rsMemInfo_first > rsMemInfo_total) Then
    rsMemInfo_first = rsMemInfo_total
  End If
  If (rsMemInfo_last > rsMemInfo_total) Then
    rsMemInfo_last = rsMemInfo_total
  End If
  If (rsMemInfo_numRows > rsMemInfo_total) Then
    rsMemInfo_numRows = rsMemInfo_total
  End If
End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rsMemInfo_total = -1) Then

  ' count the total records by iterating through the recordset
  rsMemInfo_total=0
  While (Not rsMemInfo.EOF)
    rsMemInfo_total = rsMemInfo_total + 1
    rsMemInfo.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rsMemInfo.CursorType > 0) Then
    rsMemInfo.MoveFirst
  Else
    rsMemInfo.Requery
  End If

  ' set the number of rows displayed on this page
  If (rsMemInfo_numRows < 0 Or rsMemInfo_numRows > rsMemInfo_total) Then
    rsMemInfo_numRows = rsMemInfo_total
  End If

  ' set the first and last displayed record
  rsMemInfo_first = 1
  rsMemInfo_last = rsMemInfo_first + rsMemInfo_numRows - 1
  
  If (rsMemInfo_first > rsMemInfo_total) Then
    rsMemInfo_first = rsMemInfo_total
  End If
  If (rsMemInfo_last > rsMemInfo_total) Then
    rsMemInfo_last = rsMemInfo_total
  End If

End If
%>
<%
Dim MM_paramName 
%>

<%
' *** Move To Record and Go To Record: declare variables

Dim MM_rs
Dim MM_rsCount
Dim MM_size
Dim MM_uniqueCol
Dim MM_offset
Dim MM_atTotal
Dim MM_paramIsDefined

Dim MM_param
Dim MM_index

Set MM_rs    = rsMemInfo
MM_rsCount   = rsMemInfo_total
MM_size      = rsMemInfo_numRows
MM_uniqueCol = ""
MM_paramName = ""
MM_offset = 0
MM_atTotal = false
MM_paramIsDefined = false
If (MM_paramName <> "") Then
  MM_paramIsDefined = (Request.QueryString(MM_paramName) <> "")
End If
%>
<%
' *** Move To Record: handle 'index' or 'offset' parameter

if (Not MM_paramIsDefined And MM_rsCount <> 0) then

  ' use index parameter if defined, otherwise use offset parameter
  MM_param = Request.QueryString("index")
  If (MM_param = "") Then
    MM_param = Request.QueryString("offset")
  End If
  If (MM_param <> "") Then
    MM_offset = Int(MM_param)
  End If

  ' if we have a record count, check if we are past the end of the recordset
  If (MM_rsCount <> -1) Then
    If (MM_offset >= MM_rsCount Or MM_offset = -1) Then  ' past end or move last
      If ((MM_rsCount Mod MM_size) > 0) Then         ' last page not a full repeat region
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While ((Not MM_rs.EOF) And (MM_index < MM_offset Or MM_offset = -1))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
  If (MM_rs.EOF) Then 
    MM_offset = MM_index  ' set MM_offset to the last possible record
  End If

End If
%>
<%
' *** Move To Record: if we dont know the record count, check the display range

If (MM_rsCount = -1) Then

  ' walk to the end of the display range for this page
  MM_index = MM_offset
  While (Not MM_rs.EOF And (MM_size < 0 Or MM_index < MM_offset + MM_size))
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend

  ' if we walked off the end of the recordset, set MM_rsCount and MM_size
  If (MM_rs.EOF) Then
    MM_rsCount = MM_index
    If (MM_size < 0 Or MM_size > MM_rsCount) Then
      MM_size = MM_rsCount
    End If
  End If

  ' if we walked off the end, set the offset based on page size
  If (MM_rs.EOF And Not MM_paramIsDefined) Then
    If (MM_offset > MM_rsCount - MM_size Or MM_offset = -1) Then
      If ((MM_rsCount Mod MM_size) > 0) Then
        MM_offset = MM_rsCount - (MM_rsCount Mod MM_size)
      Else
        MM_offset = MM_rsCount - MM_size
      End If
    End If
  End If

  ' reset the cursor to the beginning
  If (MM_rs.CursorType > 0) Then
    MM_rs.MoveFirst
  Else
    MM_rs.Requery
  End If

  ' move the cursor to the selected record
  MM_index = 0
  While (Not MM_rs.EOF And MM_index < MM_offset)
    MM_rs.MoveNext
    MM_index = MM_index + 1
  Wend
End If
%>
<%
' *** Move To Record: update recordset stats

' set the first and last displayed record
rsMemInfo_first = MM_offset + 1
rsMemInfo_last  = MM_offset + MM_size

If (MM_rsCount <> -1) Then
  If (rsMemInfo_first > MM_rsCount) Then
    rsMemInfo_first = MM_rsCount
  End If
  If (rsMemInfo_last > MM_rsCount) Then
    rsMemInfo_last = MM_rsCount
  End If
End If

' set the boolean used by hide region to check if we are on the last record
MM_atTotal = (MM_rsCount <> -1 And MM_offset + MM_size >= MM_rsCount)
%>
<%
' *** 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
%>
<%
' *** Move To Record: set the strings for the first, last, next, and previous links

Dim MM_keepMove
Dim MM_moveParam
Dim MM_moveFirst
Dim MM_moveLast
Dim MM_moveNext
Dim MM_movePrev

Dim MM_urlStr
Dim MM_paramList
Dim MM_paramIndex
Dim MM_nextParam

MM_keepMove = MM_keepBoth
MM_moveParam = "index"

' if the page has a repeated region, remove 'offset' from the maintained parameters
If (MM_size > 1) Then
  MM_moveParam = "offset"
  If (MM_keepMove <> "") Then
    MM_paramList = Split(MM_keepMove, "&")
    MM_keepMove = ""
    For MM_paramIndex = 0 To UBound(MM_paramList)
      MM_nextParam = Left(MM_paramList(MM_paramIndex), InStr(MM_paramList(MM_paramIndex),"=") - 1)
      If (StrComp(MM_nextParam,MM_moveParam,1) <> 0) Then
        MM_keepMove = MM_keepMove & "&" & MM_paramList(MM_paramIndex)
      End If
    Next
    If (MM_keepMove <> "") Then
      MM_keepMove = Right(MM_keepMove, Len(MM_keepMove) - 1)
    End If
  End If
End If

' set the strings for the move to links
If (MM_keepMove <> "") Then 
  MM_keepMove = MM_keepMove & "&"
End If

MM_urlStr = Request.ServerVariables("URL") & "?" & MM_keepMove & MM_moveParam & "="

MM_moveFirst = MM_urlStr & "0"
MM_moveLast  = MM_urlStr & "-1"
MM_moveNext  = MM_urlStr & CStr(MM_offset + MM_size)
If (MM_offset - MM_size < 0) Then
  MM_movePrev = MM_urlStr & "0"
Else
  MM_movePrev = MM_urlStr & CStr(MM_offset - MM_size)
End If
%>
<html><!-- InstanceBegin template="/Templates/ABTS_membersonly.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>ABTS - Members Only - View Member Information Detail</title>
<!-- InstanceEndEditable --> 
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<!-- Fireworks MX Dreamweaver MX target.  Created Tue Oct 07 23:04:05 GMT-0700 (Pacific Daylight Time) 2008-->
<!-- InstanceBeginEditable name="head" --><!-- InstanceEndEditable -->

<link href="../abtsstyle.css" rel="stylesheet" type="text/css">

<% Const IMGS_DIR = "/abts/topPics/" 
Dim objFSO, objFolderObject, objFileCollection, objFile
Dim intFileNumberToUse, intFileLooper
Dim objImageFileToUse
Dim strImageSrcText
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolderObject = objFSO.GetFolder(Server.MapPath(IMGS_DIR))
Set objFSO = Nothing
Set objFileCollection = objFolderObject.Files
Set objFolderObject = Nothing
Randomize()
intFileNumberToUse = Int(objFileCollection.Count * Rnd) + 1
intFileLooper = 1
For Each objFile in objFileCollection
	If intFileLooper = intFileNumberToUse Then
		Set objImageFileToUse = objFile
		Exit For
	End If
	intFileLooper = intFileLooper + 1
Next
Set objFileCollection = Nothing
strImageSrcText = IMGS_DIR & objImageFileToUse.Name
Set objImageFileToUse = Nothing
%>

</head>
<body>
<div id="maindiv">
<br>
<table class="membertable">
  <!-- fwtable fwsrc="ABTS_grid2.png" fwbase="ABTS2.jpg" fwstyle="Dreamweaver" fwdocid = "742308039" fwnested="1" -->
  <tr> 
    <td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="557">
        <tr> 
          <td><table border="0" cellpadding="0" cellspacing="0" width="152">
              <tr> 
                <td valign="top"><img name="ABTS2_r1_c1" src="../pics/ABTS2_r1_c1.gif" width="152" height="41" border="0" alt="flower decoration"></td>
              </tr>
              <tr> 
                <td><img name="ABTS2_r3_c1" src="../pics/ABTS2_r3_c1.jpg" width="152" height="1" border="0" alt=""></td>
              </tr>
            </table></td>
          <td><img name="ABTS2_r1_c3" src="../pics/ABTS2_r1_c3.jpg" width="9" height="42" border="0" alt=""></td>
          <td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="396">
              <tr> 
                <td><img name="ABTS2_r1_c5" src="../pics/ABTS2_r1_c5.jpg" width="396" height="1" border="0" alt=""></td>
              </tr>
              <tr> 
                <td valign="top"><a href="../../index.asp"><img name="ABTS2_r2_c5" src="../pics/ABTS2_r2_c5.jpg" width="396" height="41" border="0" alt="Artisans By The Sea"></a></td>
              </tr>
            </table></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><img name="ABTS2_r4_c1" src="../pics/ABTS2_r4_c1.jpg" width="557" height="9" border="0" alt=""></td>
  </tr>
  <tr> 
    <td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="557">
        <tr> 
          <td height="98" valign="top"><a href="mem_login.asp"><img name="ABTS2_r5_c1" src="../pics/ABTS2_r5_c1.jpg" width="152" height="98" border="0" alt="Members Only"></a></td>
          <td><img name="ABTS2_r5_c3" src="../pics/ABTS2_r5_c3.jpg" width="9" height="98" border="0" alt=""></td>
          <td><img src="<%= strImageSrcText %>" width="396" height="98" border=0></td>
          </tr>
      </table></td>
  </tr>
  <tr> 
    <td><img name="ABTS2_r6_c1" src="../pics/ABTS2_r6_c1.jpg" width="557" height="8" border="0" alt=""></td>
  </tr>
  <tr> 
    <td valign="top"> <table border="0" cellpadding="0" cellspacing="0" width="100%">
        <tr> 
          <td width="152" valign="top" bgcolor="#996633"> 
            <table border="0" cellpadding="5" cellspacing="0" width="152">
              <tr> 
                <td>&nbsp;</td>
              </tr>
              <tr> 
                <td width="152" valign="top"> 
                  <p><strong><a href="mem_login.asp" class="menulink"><font color="#FFFFFF">Login</font></a></strong></p>
                  <p><strong><a href="mem_info.asp"><font color="#FFFFFF">Members 
                    ' information</font></a></strong></p>
                  <p><strong><a href="admin.asp"><font color="#FFFFFF">Administrators 
                    <br>
                    Only</font></a></strong></p>
                  <p><strong><a href="../../index.asp"><font color="#FFFFFF">Back 
                    to Main Site</font></a></strong></p>
                  <p><font color="#FFFFFF"></font></p>
                  <p>&nbsp;</p>
                  <p>&nbsp;</p>
                  <p>&nbsp;</p></td>
              </tr>
            </table></td>
          <td><img name="ABTS2_r7_c4" src="../pics/ABTS2_r7_c4.jpg" width="8" height="292" border="0" alt=""></td>
          <td width="100%" valign="top" bgcolor="#FFFFFF"><!-- InstanceBeginEditable name="BodyText" --> 
            <table width="100%" border="0" cellpadding="5">
              <tr> 
                <td valign="top"> <h1><font face="Georgia, Times New Roman, Times, serif">ABTS 
                    Member Detail</font></h1>
                  
                  <% 
While ((Repeat1__numRows <> 0) AND (NOT rsMemInfo.EOF)) 
%>
                  <table border="1" cellpadding="3" cellspacing="0" bordercolor="#996633">
                    <tr> 
                      <td>
<h2>Name</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("lastName").Value)%>, <%=(rsMemInfo.Fields.Item("firstName").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Phone</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("phone").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Email</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("email").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Address</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("streetAddress").Value)%><br> <%=(rsMemInfo.Fields.Item("City").Value)%>, <%=(rsMemInfo.Fields.Item("State").Value)%> &nbsp;<%=(rsMemInfo.Fields.Item("Zip").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Website</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("memWebsite").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>IDAL #</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("IdalNo").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Other <br>
                          phone </h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("otherPhone").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Dues</h2></td>
                      <td>2008: <%=(rsMemInfo.Fields.Item("2008Dues").Value)%></td>
                      <td>2009: <%=(rsMemInfo.Fields.Item("2009Dues").Value)%></td>
                    </tr>
                    <tr> 
                      <td><h2>Board Member</h2></td>
                      <td colspan="2"><%=(rsMemInfo.Fields.Item("boardPosition").Value)%></td>
                    </tr>
                  </table>
				  <br>
                  <% 
  Repeat1__index=Repeat1__index+1
  Repeat1__numRows=Repeat1__numRows-1
  rsMemInfo.MoveNext()
Wend
%>
                  Return to <a href="mem_view.asp">List of Members</a></td>
              </tr>
            </table>
            <!-- InstanceEndEditable --></td>
        </tr>
      </table></td>
  </tr>
  <tr> 
    <td><img name="ABTS2_r16_c1" src="../pics/ABTS2_r16_c1.jpg" width="557" height="10" border="0" alt=""></td>
  </tr>
  <tr> 
    <td valign="top" bgcolor="#147A9C"> 
      <div align="center"><img name="ABTS2_r17_c1" src="../pics/ABTS2_r17_c1.gif" width="557" height="25" alt=""></div></td>
  </tr>
</table>
<p id="footer">Stencil images are used with permissions by Melanie 
  Royals of <a href="http://www.royaldesignstudio.com" target="_blank"><strong>Royal 
  Design</strong></a></p>
  
  </div>
  
</body>

<!-- InstanceEnd --></html>
<%
rsMemInfo.Close()
Set rsMemInfo = Nothing
%>