<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> 
<!--#include file="../../Connections/connAbts.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="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 MM_editAction
MM_editAction = CStr(Request.ServerVariables("SCRIPT_NAME"))
If (Request.QueryString <> "") Then
  MM_editAction = MM_editAction & "?" & Server.HTMLEncode(Request.QueryString)
End If

' boolean to abort record edit
Dim MM_abortEdit
MM_abortEdit = false
%>

<%
' IIf implementation
Function MM_IIf(condition, ifTrue, ifFalse)
  If condition = "" Then
    MM_IIf = ifFalse
  Else
    MM_IIf = ifTrue
  End If
End Function
%>
<%
If (CStr(Request("MM_update")) = "form1") Then
  If (Not MM_abortEdit) Then
    ' execute the update
    Dim MM_editCmd

    Set MM_editCmd = Server.CreateObject ("ADODB.Command")
    MM_editCmd.ActiveConnection = MM_connAbts_STRING
    MM_editCmd.CommandText = "UPDATE tblMembers SET lastName = ?, firstName = ?, phone = ?, streetAddress = ?, City = ?, [State] = ?, Zip = ?, otherPhone = ?, memWebsite = ?, IdalNo = ?, boardPosition = ?, [2008Dues] = ?, [2009Dues] = ? WHERE MemID = ?" 
    MM_editCmd.Prepared = true
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param1", 202, 1, 255, Request.Form("textfield")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param2", 202, 1, 255, Request.Form("textfield10")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param3", 202, 1, 255, Request.Form("textfield2")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param4", 202, 1, 255, Request.Form("textfield3")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param5", 202, 1, 255, Request.Form("textfield4")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param6", 202, 1, 255, Request.Form("textfield5")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param7", 5, 1, -1, MM_IIF(Request.Form("textfield6"), Request.Form("textfield6"), null)) ' adDouble
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param8", 202, 1, 255, Request.Form("textfield7")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param9", 202, 1, 255, Request.Form("textfield8")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param10", 202, 1, 255, Request.Form("textfield9")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param11", 202, 1, 255, Request.Form("textfield11")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param12", 202, 1, 255, Request.Form("2008Dues")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param13", 202, 1, 255, Request.Form("2009Dues")) ' adVarWChar
    MM_editCmd.Parameters.Append MM_editCmd.CreateParameter("param14", 5, 1, -1, MM_IIF(Request.Form("MM_recordId"), Request.Form("MM_recordId"), null)) ' adDouble
    MM_editCmd.Execute
    MM_editCmd.ActiveConnection.Close

    ' append the query string to the redirect URL
    Dim MM_editRedirectUrl
    MM_editRedirectUrl = "AdminMemList.asp"
    If (Request.QueryString <> "") Then
      If (InStr(1, MM_editRedirectUrl, "?", vbTextCompare) = 0) Then
        MM_editRedirectUrl = MM_editRedirectUrl & "?" & Request.QueryString
      Else
        MM_editRedirectUrl = MM_editRedirectUrl & "&" & Request.QueryString
      End If
    End If
    Response.Redirect(MM_editRedirectUrl)
  End If
End If
%>
<%
Dim rsMemUpdate__MMColParam
rsMemUpdate__MMColParam = "1"
If (Request.QueryString("MemID") <> "") Then 
  rsMemUpdate__MMColParam = Request.QueryString("MemID")
End If
%>
<%
Dim rsMemUpdate
Dim rsMemUpdate_numRows

Set rsMemUpdate = Server.CreateObject("ADODB.Recordset")
rsMemUpdate.ActiveConnection = MM_connAbts_STRING
rsMemUpdate.Source = "SELECT * FROM tblMembers WHERE MemID = " + Replace(rsMemUpdate__MMColParam, "'", "''") + ""
rsMemUpdate.CursorType = 0
rsMemUpdate.CursorLocation = 2
rsMemUpdate.LockType = 1
rsMemUpdate.Open()

rsMemUpdate_numRows = 0
%>
<html><!-- InstanceBegin template="/Templates/ABTS_membersonly.dwt" codeOutsideHTMLIsLocked="false" -->
<head>
<!-- InstanceBeginEditable name="doctitle" -->
<title>ABTS - Administration - Update Member Record</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>Update Member Record</h1>
                  <p>Make changes to the existing information and submit changes.</p>
                  <form name="form1" method="POST" action="<%=MM_editAction%>">
                    <table border="1" cellpadding="3" cellspacing="0" bordercolor="#666666">
                      <tr> 
                        <td width="117"> <h2 align="right">Member ID</h2></td>
                        <td width="150"><%=(rsMemUpdate.Fields.Item("MemID").Value)%></td>
                      </tr>
                      <tr> 
                        <td><h2 align="right">Last Name</h2></td>
                        <td><input name="textfield" type="text" value="<%=(rsMemUpdate.Fields.Item("lastName").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td><h2 align="right">First Name</h2></td>
                        <td><input name="textfield10" type="text" value="<%=(rsMemUpdate.Fields.Item("firstName").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Phone</h2></td>
                        <td><input name="textfield2" type="text" value="<%=(rsMemUpdate.Fields.Item("phone").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td><h2 align="right">Email</h2></td>
                        <td><input name="textfield12" type="text" value="<%=(rsMemUpdate.Fields.Item("email").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Address</h2></td>
                        <td><input name="textfield3" type="text" value="<%=(rsMemUpdate.Fields.Item("streetAddress").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">City</h2></td>
                        <td><input name="textfield4" type="text" value="<%=(rsMemUpdate.Fields.Item("City").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">State</h2></td>
                        <td><input name="textfield5" type="text" value="<%=(rsMemUpdate.Fields.Item("State").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Zip</h2></td>
                        <td><input name="textfield6" type="text" value="<%=(rsMemUpdate.Fields.Item("Zip").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Other Phone</h2></td>
                        <td><input name="textfield7" type="text" value="<%=(rsMemUpdate.Fields.Item("otherPhone").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Website<br>
                            Start with http://</h2></td>
                        <td><input name="textfield8" type="text" value="<%=(rsMemUpdate.Fields.Item("memWebsite").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">IDAL Number</h2></td>
                        <td><input name="textfield9" type="text" value="<%=(rsMemUpdate.Fields.Item("IdalNo").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td> <h2 align="right">Board Position</h2></td>
                        <td><input name="textfield11" type="text" value="<%=(rsMemUpdate.Fields.Item("boardPosition").Value)%>"></td>
                      </tr>
                      <tr> 
                        <td><div align="right"> 
                            <h2>2008 Dues</h2>
                          </div></td>
                        <td><input name="2008Dues" type="text" id="2008Dues" value="<%=(rsMemUpdate.Fields.Item("2008Dues").Value)%>" size="5" maxlength="3"></td>
                      </tr>
                      <tr> 
                        <td><div align="right"> 
                            <h2>2009 Dues</h2>
                          </div></td>
                        <td><input name="2009Dues" type="text" id="2009Dues" value="<%=(rsMemUpdate.Fields.Item("2009Dues").Value)%>" size="5" maxlength="1"></td>
                      </tr>
                      <tr> 
                        <td>&nbsp;</td>
                        <td><input name="update" type="submit" id="update" value="Update Record"></td>
                      </tr>
                    </table>
                    <input type="hidden" name="MM_update" value="form1">
                    <input type="hidden" name="MM_recordId" value="<%= rsMemUpdate.Fields.Item("MemID").Value %>">
                  </form>
                  <p>&nbsp;</p>
                  <p>&nbsp;</p></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>
<%
rsMemUpdate.Close()
Set rsMemUpdate = Nothing
%>