<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<!--#include file="Connections/piba.asp" -->
<%
' *** Restrict Access To Page: Grant or deny access to this page
MM_authorizedUsers="administrator"
MM_authFailedURL="index.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 rs_users
Dim rs_users_numRows

Set rs_users = Server.CreateObject("ADODB.Recordset")
rs_users.ActiveConnection = MM_piba_STRING
rs_users.Source = "SELECT * FROM users"
rs_users.CursorType = 0
rs_users.CursorLocation = 2
rs_users.LockType = 1
rs_users.Open()

rs_users_numRows = 0
%>
<%
Dim rs_members
Dim rs_members_numRows

Set rs_members = Server.CreateObject("ADODB.Recordset")
rs_members.ActiveConnection = MM_piba_STRING
rs_members.Source = "SELECT * FROM members"
rs_members.CursorType = 0
rs_members.CursorLocation = 2
rs_members.LockType = 1
rs_members.Open()

rs_members_numRows = 0
%>
<%
Dim rs_reg_w_adv__MMColParam
rs_reg_w_adv__MMColParam = "Island Business w Adv"
If (Request("MM_EmptyValue") <> "") Then 
  rs_reg_w_adv__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_reg_w_adv
Dim rs_reg_w_adv_numRows

Set rs_reg_w_adv = Server.CreateObject("ADODB.Recordset")
rs_reg_w_adv.ActiveConnection = MM_piba_STRING
rs_reg_w_adv.Source = "SELECT * FROM members WHERE member_type = '" + Replace(rs_reg_w_adv__MMColParam, "'", "''") + "'"
rs_reg_w_adv.CursorType = 0
rs_reg_w_adv.CursorLocation = 2
rs_reg_w_adv.LockType = 1
rs_reg_w_adv.Open()

rs_reg_w_adv_numRows = 0
%>
<%
Dim rs_reg_wo_adv__MMColParam
rs_reg_wo_adv__MMColParam = "Island Business"
If (Request("MM_EmptyValue") <> "") Then 
  rs_reg_wo_adv__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_reg_wo_adv
Dim rs_reg_wo_adv_numRows

Set rs_reg_wo_adv = Server.CreateObject("ADODB.Recordset")
rs_reg_wo_adv.ActiveConnection = MM_piba_STRING
rs_reg_wo_adv.Source = "SELECT *  FROM members  WHERE member_type = '" + Replace(rs_reg_wo_adv__MMColParam, "'", "''") + "'"
rs_reg_wo_adv.CursorType = 0
rs_reg_wo_adv.CursorLocation = 2
rs_reg_wo_adv.LockType = 1
rs_reg_wo_adv.Open()

rs_reg_wo_adv_numRows = 0
%>
<%
Dim rs_reg_w_cccc__MMColParam
rs_reg_w_cccc__MMColParam = "Island Business w CCCC"
If (Request("MM_EmptyValue") <> "") Then 
  rs_reg_w_cccc__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_reg_w_cccc
Dim rs_reg_w_cccc_numRows

Set rs_reg_w_cccc = Server.CreateObject("ADODB.Recordset")
rs_reg_w_cccc.ActiveConnection = MM_piba_STRING
rs_reg_w_cccc.Source = "SELECT * FROM members WHERE member_type = '" + Replace(rs_reg_w_cccc__MMColParam, "'", "''") + "'"
rs_reg_w_cccc.CursorType = 0
rs_reg_w_cccc.CursorLocation = 2
rs_reg_w_cccc.LockType = 1
rs_reg_w_cccc.Open()

rs_reg_w_cccc_numRows = 0
%>
<%
Dim rs_associate__MMColParam
rs_associate__MMColParam = "Assoc Member"
If (Request("MM_EmptyValue") <> "") Then 
  rs_associate__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_associate
Dim rs_associate_numRows

Set rs_associate = Server.CreateObject("ADODB.Recordset")
rs_associate.ActiveConnection = MM_piba_STRING
rs_associate.Source = "SELECT * FROM members WHERE member_type = '" + Replace(rs_associate__MMColParam, "'", "''") + "'"
rs_associate.CursorType = 0
rs_associate.CursorLocation = 2
rs_associate.LockType = 1
rs_associate.Open()

rs_associate_numRows = 0
%>
<%
Dim rs_nonprofit__MMColParam
rs_nonprofit__MMColParam = "Non-Profit"
If (Request("MM_EmptyValue") <> "") Then 
  rs_nonprofit__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_nonprofit
Dim rs_nonprofit_numRows

Set rs_nonprofit = Server.CreateObject("ADODB.Recordset")
rs_nonprofit.ActiveConnection = MM_piba_STRING
rs_nonprofit.Source = "SELECT * FROM members WHERE member_type = '" + Replace(rs_nonprofit__MMColParam, "'", "''") + "'"
rs_nonprofit.CursorType = 0
rs_nonprofit.CursorLocation = 2
rs_nonprofit.LockType = 1
rs_nonprofit.Open()

rs_nonprofit_numRows = 0
%>
<%
Dim rs_sustainer__MMColParam
rs_sustainer__MMColParam = "Sustainer"
If (Request("MM_EmptyValue") <> "") Then 
  rs_sustainer__MMColParam = Request("MM_EmptyValue")
End If
%>
<%
Dim rs_sustainer
Dim rs_sustainer_numRows

Set rs_sustainer = Server.CreateObject("ADODB.Recordset")
rs_sustainer.ActiveConnection = MM_piba_STRING
rs_sustainer.Source = "SELECT * FROM members WHERE member_type = '" + Replace(rs_sustainer__MMColParam, "'", "''") + "'"
rs_sustainer.CursorType = 0
rs_sustainer.CursorLocation = 2
rs_sustainer.LockType = 1
rs_sustainer.Open()

rs_sustainer_numRows = 0
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_members_total
Dim rs_members_first
Dim rs_members_last

' set the record count
rs_members_total = rs_members.RecordCount

' set the number of rows displayed on this page
If (rs_members_numRows < 0) Then
  rs_members_numRows = rs_members_total
Elseif (rs_members_numRows = 0) Then
  rs_members_numRows = 1
End If

' set the first and last displayed record
rs_members_first = 1
rs_members_last  = rs_members_first + rs_members_numRows - 1

' if we have the correct record count, check the other stats
If (rs_members_total <> -1) Then
  If (rs_members_first > rs_members_total) Then
    rs_members_first = rs_members_total
  End If
  If (rs_members_last > rs_members_total) Then
    rs_members_last = rs_members_total
  End If
  If (rs_members_numRows > rs_members_total) Then
    rs_members_numRows = rs_members_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_reg_w_adv_total
Dim rs_reg_w_adv_first
Dim rs_reg_w_adv_last

' set the record count
rs_reg_w_adv_total = rs_reg_w_adv.RecordCount

' set the number of rows displayed on this page
If (rs_reg_w_adv_numRows < 0) Then
  rs_reg_w_adv_numRows = rs_reg_w_adv_total
Elseif (rs_reg_w_adv_numRows = 0) Then
  rs_reg_w_adv_numRows = 1
End If

' set the first and last displayed record
rs_reg_w_adv_first = 1
rs_reg_w_adv_last  = rs_reg_w_adv_first + rs_reg_w_adv_numRows - 1

' if we have the correct record count, check the other stats
If (rs_reg_w_adv_total <> -1) Then
  If (rs_reg_w_adv_first > rs_reg_w_adv_total) Then
    rs_reg_w_adv_first = rs_reg_w_adv_total
  End If
  If (rs_reg_w_adv_last > rs_reg_w_adv_total) Then
    rs_reg_w_adv_last = rs_reg_w_adv_total
  End If
  If (rs_reg_w_adv_numRows > rs_reg_w_adv_total) Then
    rs_reg_w_adv_numRows = rs_reg_w_adv_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_reg_wo_adv_total
Dim rs_reg_wo_adv_first
Dim rs_reg_wo_adv_last

' set the record count
rs_reg_wo_adv_total = rs_reg_wo_adv.RecordCount

' set the number of rows displayed on this page
If (rs_reg_wo_adv_numRows < 0) Then
  rs_reg_wo_adv_numRows = rs_reg_wo_adv_total
Elseif (rs_reg_wo_adv_numRows = 0) Then
  rs_reg_wo_adv_numRows = 1
End If

' set the first and last displayed record
rs_reg_wo_adv_first = 1
rs_reg_wo_adv_last  = rs_reg_wo_adv_first + rs_reg_wo_adv_numRows - 1

' if we have the correct record count, check the other stats
If (rs_reg_wo_adv_total <> -1) Then
  If (rs_reg_wo_adv_first > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_first = rs_reg_wo_adv_total
  End If
  If (rs_reg_wo_adv_last > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_last = rs_reg_wo_adv_total
  End If
  If (rs_reg_wo_adv_numRows > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_numRows = rs_reg_wo_adv_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_reg_w_cccc_total
Dim rs_reg_w_cccc_first
Dim rs_reg_w_cccc_last

' set the record count
rs_reg_w_cccc_total = rs_reg_w_cccc.RecordCount

' set the number of rows displayed on this page
If (rs_reg_w_cccc_numRows < 0) Then
  rs_reg_w_cccc_numRows = rs_reg_w_cccc_total
Elseif (rs_reg_w_cccc_numRows = 0) Then
  rs_reg_w_cccc_numRows = 1
End If

' set the first and last displayed record
rs_reg_w_cccc_first = 1
rs_reg_w_cccc_last  = rs_reg_w_cccc_first + rs_reg_w_cccc_numRows - 1

' if we have the correct record count, check the other stats
If (rs_reg_w_cccc_total <> -1) Then
  If (rs_reg_w_cccc_first > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_first = rs_reg_w_cccc_total
  End If
  If (rs_reg_w_cccc_last > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_last = rs_reg_w_cccc_total
  End If
  If (rs_reg_w_cccc_numRows > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_numRows = rs_reg_w_cccc_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_associate_total
Dim rs_associate_first
Dim rs_associate_last

' set the record count
rs_associate_total = rs_associate.RecordCount

' set the number of rows displayed on this page
If (rs_associate_numRows < 0) Then
  rs_associate_numRows = rs_associate_total
Elseif (rs_associate_numRows = 0) Then
  rs_associate_numRows = 1
End If

' set the first and last displayed record
rs_associate_first = 1
rs_associate_last  = rs_associate_first + rs_associate_numRows - 1

' if we have the correct record count, check the other stats
If (rs_associate_total <> -1) Then
  If (rs_associate_first > rs_associate_total) Then
    rs_associate_first = rs_associate_total
  End If
  If (rs_associate_last > rs_associate_total) Then
    rs_associate_last = rs_associate_total
  End If
  If (rs_associate_numRows > rs_associate_total) Then
    rs_associate_numRows = rs_associate_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_nonprofit_total
Dim rs_nonprofit_first
Dim rs_nonprofit_last

' set the record count
rs_nonprofit_total = rs_nonprofit.RecordCount

' set the number of rows displayed on this page
If (rs_nonprofit_numRows < 0) Then
  rs_nonprofit_numRows = rs_nonprofit_total
Elseif (rs_nonprofit_numRows = 0) Then
  rs_nonprofit_numRows = 1
End If

' set the first and last displayed record
rs_nonprofit_first = 1
rs_nonprofit_last  = rs_nonprofit_first + rs_nonprofit_numRows - 1

' if we have the correct record count, check the other stats
If (rs_nonprofit_total <> -1) Then
  If (rs_nonprofit_first > rs_nonprofit_total) Then
    rs_nonprofit_first = rs_nonprofit_total
  End If
  If (rs_nonprofit_last > rs_nonprofit_total) Then
    rs_nonprofit_last = rs_nonprofit_total
  End If
  If (rs_nonprofit_numRows > rs_nonprofit_total) Then
    rs_nonprofit_numRows = rs_nonprofit_total
  End If
End If
%>
<%
'  *** Recordset Stats, Move To Record, and Go To Record: declare stats variables

Dim rs_sustainer_total
Dim rs_sustainer_first
Dim rs_sustainer_last

' set the record count
rs_sustainer_total = rs_sustainer.RecordCount

' set the number of rows displayed on this page
If (rs_sustainer_numRows < 0) Then
  rs_sustainer_numRows = rs_sustainer_total
Elseif (rs_sustainer_numRows = 0) Then
  rs_sustainer_numRows = 1
End If

' set the first and last displayed record
rs_sustainer_first = 1
rs_sustainer_last  = rs_sustainer_first + rs_sustainer_numRows - 1

' if we have the correct record count, check the other stats
If (rs_sustainer_total <> -1) Then
  If (rs_sustainer_first > rs_sustainer_total) Then
    rs_sustainer_first = rs_sustainer_total
  End If
  If (rs_sustainer_last > rs_sustainer_total) Then
    rs_sustainer_last = rs_sustainer_total
  End If
  If (rs_sustainer_numRows > rs_sustainer_total) Then
    rs_sustainer_numRows = rs_sustainer_total
  End If
End If
%>







<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_members_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_members_total=0
  While (Not rs_members.EOF)
    rs_members_total = rs_members_total + 1
    rs_members.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_members.CursorType > 0) Then
    rs_members.MoveFirst
  Else
    rs_members.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_members_numRows < 0 Or rs_members_numRows > rs_members_total) Then
    rs_members_numRows = rs_members_total
  End If

  ' set the first and last displayed record
  rs_members_first = 1
  rs_members_last = rs_members_first + rs_members_numRows - 1
  
  If (rs_members_first > rs_members_total) Then
    rs_members_first = rs_members_total
  End If
  If (rs_members_last > rs_members_total) Then
    rs_members_last = rs_members_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_reg_w_adv_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_reg_w_adv_total=0
  While (Not rs_reg_w_adv.EOF)
    rs_reg_w_adv_total = rs_reg_w_adv_total + 1
    rs_reg_w_adv.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_reg_w_adv.CursorType > 0) Then
    rs_reg_w_adv.MoveFirst
  Else
    rs_reg_w_adv.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_reg_w_adv_numRows < 0 Or rs_reg_w_adv_numRows > rs_reg_w_adv_total) Then
    rs_reg_w_adv_numRows = rs_reg_w_adv_total
  End If

  ' set the first and last displayed record
  rs_reg_w_adv_first = 1
  rs_reg_w_adv_last = rs_reg_w_adv_first + rs_reg_w_adv_numRows - 1
  
  If (rs_reg_w_adv_first > rs_reg_w_adv_total) Then
    rs_reg_w_adv_first = rs_reg_w_adv_total
  End If
  If (rs_reg_w_adv_last > rs_reg_w_adv_total) Then
    rs_reg_w_adv_last = rs_reg_w_adv_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_reg_wo_adv_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_reg_wo_adv_total=0
  While (Not rs_reg_wo_adv.EOF)
    rs_reg_wo_adv_total = rs_reg_wo_adv_total + 1
    rs_reg_wo_adv.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_reg_wo_adv.CursorType > 0) Then
    rs_reg_wo_adv.MoveFirst
  Else
    rs_reg_wo_adv.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_reg_wo_adv_numRows < 0 Or rs_reg_wo_adv_numRows > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_numRows = rs_reg_wo_adv_total
  End If

  ' set the first and last displayed record
  rs_reg_wo_adv_first = 1
  rs_reg_wo_adv_last = rs_reg_wo_adv_first + rs_reg_wo_adv_numRows - 1
  
  If (rs_reg_wo_adv_first > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_first = rs_reg_wo_adv_total
  End If
  If (rs_reg_wo_adv_last > rs_reg_wo_adv_total) Then
    rs_reg_wo_adv_last = rs_reg_wo_adv_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_reg_w_cccc_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_reg_w_cccc_total=0
  While (Not rs_reg_w_cccc.EOF)
    rs_reg_w_cccc_total = rs_reg_w_cccc_total + 1
    rs_reg_w_cccc.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_reg_w_cccc.CursorType > 0) Then
    rs_reg_w_cccc.MoveFirst
  Else
    rs_reg_w_cccc.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_reg_w_cccc_numRows < 0 Or rs_reg_w_cccc_numRows > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_numRows = rs_reg_w_cccc_total
  End If

  ' set the first and last displayed record
  rs_reg_w_cccc_first = 1
  rs_reg_w_cccc_last = rs_reg_w_cccc_first + rs_reg_w_cccc_numRows - 1
  
  If (rs_reg_w_cccc_first > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_first = rs_reg_w_cccc_total
  End If
  If (rs_reg_w_cccc_last > rs_reg_w_cccc_total) Then
    rs_reg_w_cccc_last = rs_reg_w_cccc_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_associate_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_associate_total=0
  While (Not rs_associate.EOF)
    rs_associate_total = rs_associate_total + 1
    rs_associate.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_associate.CursorType > 0) Then
    rs_associate.MoveFirst
  Else
    rs_associate.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_associate_numRows < 0 Or rs_associate_numRows > rs_associate_total) Then
    rs_associate_numRows = rs_associate_total
  End If

  ' set the first and last displayed record
  rs_associate_first = 1
  rs_associate_last = rs_associate_first + rs_associate_numRows - 1
  
  If (rs_associate_first > rs_associate_total) Then
    rs_associate_first = rs_associate_total
  End If
  If (rs_associate_last > rs_associate_total) Then
    rs_associate_last = rs_associate_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_nonprofit_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_nonprofit_total=0
  While (Not rs_nonprofit.EOF)
    rs_nonprofit_total = rs_nonprofit_total + 1
    rs_nonprofit.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_nonprofit.CursorType > 0) Then
    rs_nonprofit.MoveFirst
  Else
    rs_nonprofit.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_nonprofit_numRows < 0 Or rs_nonprofit_numRows > rs_nonprofit_total) Then
    rs_nonprofit_numRows = rs_nonprofit_total
  End If

  ' set the first and last displayed record
  rs_nonprofit_first = 1
  rs_nonprofit_last = rs_nonprofit_first + rs_nonprofit_numRows - 1
  
  If (rs_nonprofit_first > rs_nonprofit_total) Then
    rs_nonprofit_first = rs_nonprofit_total
  End If
  If (rs_nonprofit_last > rs_nonprofit_total) Then
    rs_nonprofit_last = rs_nonprofit_total
  End If

End If
%>
<%
' *** Recordset Stats: if we don't know the record count, manually count them

If (rs_sustainer_total = -1) Then

  ' count the total records by iterating through the recordset
  rs_sustainer_total=0
  While (Not rs_sustainer.EOF)
    rs_sustainer_total = rs_sustainer_total + 1
    rs_sustainer.MoveNext
  Wend

  ' reset the cursor to the beginning
  If (rs_sustainer.CursorType > 0) Then
    rs_sustainer.MoveFirst
  Else
    rs_sustainer.Requery
  End If

  ' set the number of rows displayed on this page
  If (rs_sustainer_numRows < 0 Or rs_sustainer_numRows > rs_sustainer_total) Then
    rs_sustainer_numRows = rs_sustainer_total
  End If

  ' set the first and last displayed record
  rs_sustainer_first = 1
  rs_sustainer_last = rs_sustainer_first + rs_sustainer_numRows - 1
  
  If (rs_sustainer_first > rs_sustainer_total) Then
    rs_sustainer_first = rs_sustainer_total
  End If
  If (rs_sustainer_last > rs_sustainer_total) Then
    rs_sustainer_last = rs_sustainer_total
  End If

End If
%>







<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">
<head>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1" />
<title>Padre Island Business Association</title>
<meta name="Description" content="The Padre Island Business Association is a not-for-profit organization whose purpose is to advertise and promote Padre Island and to advance the interest of the Padre Island business community.">
<meta name="Keywords" content="corpus christi,North Padre Island Business Association Membership Committee Events Business Bulletin">
<meta http-equiv="Content-Language" content="en-us">
<meta name="Robots" content="index, follow">
<meta name="Revisit-After" content="2 Days">
<META http-equiv=Pragma content=no-cache>
<META content=document name=resource-type>
<META content="Business Association" name=classification>
<META content=ALL name=robots>
<META content=Global name=distribution>
<META content="Safe For Kids" name=rating>
<META content="Padre Island Business Association" name=copyright>
<META content="Identity Theft Solutions LLC, Padre Island Business Association" name=author>
<style type="text/css">
<!--
body, td, th {
	font-size: 12px;
	color: #000000;
	font-family: Arial, Helvetica, sans-serif;
}
body {
	margin:0px; background-color: #01669E;
	background-image: url('images/bgsand.gif');
}
#Layer1 {
	position:absolute;
	width:170px;
	height:115px;
	z-index:1;
	left: 229px;
	top: 248px;
}
#Layer2 {
	position:absolute;
	width:618px;
	height:583px;
	z-index:1;
}
.style4 {
	font-size: 16px;
	font-weight: bold;
	color: #00639C;
}
.style5 {
	color: #FFFFFF;
	font-weight: bold;
}
.style6 {color: #FFFFFF}
-->
</style>
<script type="text/JavaScript">
<!--
function MM_swapImgRestore() { //v3.0
  var i,x,a=document.MM_sr; for(i=0;a&&i<a.length&&(x=a[i])&&x.oSrc;i++) x.src=x.oSrc;
}

function MM_preloadImages() { //v3.0
  var d=document; if(d.images){ if(!d.MM_p) d.MM_p=new Array();
    var i,j=d.MM_p.length,a=MM_preloadImages.arguments; for(i=0; i<a.length; i++)
    if (a[i].indexOf("#")!=0){ d.MM_p[j]=new Image; d.MM_p[j++].src=a[i];}}
}

function MM_findObj(n, d) { //v4.01
  var p,i,x;  if(!d) d=document; if((p=n.indexOf("?"))>0&&parent.frames.length) {
    d=parent.frames[n.substring(p+1)].document; n=n.substring(0,p);}
  if(!(x=d[n])&&d.all) x=d.all[n]; for (i=0;!x&&i<d.forms.length;i++) x=d.forms[i][n];
  for(i=0;!x&&d.layers&&i<d.layers.length;i++) x=MM_findObj(n,d.layers[i].document);
  if(!x && d.getElementById) x=d.getElementById(n); return x;
}

function MM_swapImage() { //v3.0
  var i,j=0,x,a=MM_swapImage.arguments; document.MM_sr=new Array; for(i=0;i<(a.length-2);i+=3)
   if ((x=MM_findObj(a[i]))!=null){document.MM_sr[j++]=x; if(!x.oSrc) x.oSrc=x.src; x.src=a[i+2];}
}
//-->
</script>
</head>

<body onload="MM_preloadImages('images/menu/home_ro.jpg','images/menu/members_ro.jpg','images/menu/bulletin_ro.jpg','images/menu/events_ro.jpg','images/menu/contact_ro.jpg','images/layout/piba_topctr_ro.jpg')">
<div align="center">Welcome!  You are logged in to PIBA LiveData! <br />
</div>
<table width="766" border="0" align="center" cellpadding="0" cellspacing="0">
  <tr>
    <td><img src="images/topedge.gif" width="766" height="15" /></td>
  </tr>
</table>
<table width="772" border="0" align="center" cellpadding="0" cellspacing="0">
  
  <tr>
    <td width="3" background="images/piba_leftside.jpg">&nbsp;</td>
    <td width="766"><table width="766" border="0" align="center" cellpadding="0" cellspacing="0" bordercolor="#08466B">
      
      
      
      
      <tr>
        <td valign="top"><p align="center"><img src="images/layout/piba_top.jpg" width="766" height="113" /></p>          </td>
      </tr>
      <tr>
        <td valign="top"><table width="766" border="0" cellspacing="0" cellpadding="0">
          <tr>
            <td width="54" valign="top"><table width="54" border="0" cellspacing="0" cellpadding="0">
              <tr>
                <td><img src="images/piba_leftmenutop.jpg" width="54" height="53" /></td>
              </tr>
              <tr>
                <td><a href="index.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('home','','images/menu/home_ro.jpg',1)"><img src="images/menu/home.jpg" alt="Home" name="home" width="54" height="81" border="0" id="home" /></a></td>
              </tr>
              <tr>
                <td><a href="members.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('members','','images/menu/members_ro.jpg',1)"><img src="images/menu/members.jpg" alt="Members" name="members" width="54" height="80" border="0" id="members" /></a></td>
              </tr>
              <tr>
                <td><a href="bulletin.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('bulletin','','images/menu/bulletin_ro.jpg',1)"><img src="images/menu/bulletin.jpg" alt="Bulletin" name="bulletin" width="54" height="80" border="0" id="bulletin" /></a></td>
              </tr>
              <tr>
                <td><a href="events.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('events','','images/menu/events_ro.jpg',1)"><img src="images/menu/events.jpg" alt="Events" name="events" width="54" height="78" border="0" id="events" /></a></td>
              </tr>
              <tr>
                <td><a href="contact.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('contact','','images/menu/contact_ro.jpg',1)"><img src="images/menu/contact.jpg" alt="Contact Us" name="contact" width="54" height="80" border="0" id="contact" /></a></td>
              </tr>
              <tr>
                <td><table width="54" border="0" cellspacing="0" cellpadding="0">
                  <tr>
                    <td width="35" valign="top" bgcolor="#D9D0CB"><img src="images/menu/piba_leftmenu_btm1.jpg" width="35" height="131" /></td>
                    <td valign="bottom" background="images/menu/piba_leftmenu_btmbk.jpg"><p><img src="images/menu/piba_leftmenu_btm2.jpg" width="19" height="45" /></p></td>
                  </tr>
                </table></td>
              </tr>
            </table></td>
            <td width="618" height="583" valign="top" bgcolor="#FFFFFF"><div id="Layer2">
              <table width="618" border="0" cellpadding="0" cellspacing="0">
                <tr>
                  <td valign="top"><table width="618" border="0" cellspacing="0" cellpadding="0">
                      <tr>
                        <td colspan="2"><a href="home.asp" onmouseout="MM_swapImgRestore()" onmouseover="MM_swapImage('topctr','','images/layout/piba_topctr_ro.jpg',1)"><img src="images/layout/piba_topctr.jpg" alt="Welcome to the Padre Island Business Association!" name="topctr" width="618" height="45" border="0" id="topctr" /></a></td>
                      </tr>
                      <tr>
                        <td width="247" height="149"><object classid="clsid:D27CDB6E-AE6D-11cf-96B8-444553540000" width="247" height="149" codebase="http://download.macromedia.com/pub/shockwave/cabs/flash/swflash.cab">
                          <param name="movie" value="jpgrotator.swf" />
                          <param name="wmode" value="transparent" />
                          <embed width="247" height="149" src="jpgrotator.swf" type="application/x-shockwave-flash" pluginspage="http://www.macromedia.com/go/getflashplayer" wmode="transparent" /></embed>
                          </embed>
                          </embed></object></td>
                        <td width="371" valign="top" background="images/layout/piba_topmenuback.jpg"><br />
                            <table width="371" border="0" cellspacing="0" cellpadding="7">
                              <tr>
                                <td valign="top"><div align="justify">
                                    <p><span class="style4">Site &amp; Member Management Tools:</span> <br />
                                      Welcome to the administration side of the Padre Island Business Association website! Here you can view, edit, or delete members, banners or even users who can access this page.</p>
                                    <p>You can also look up site traffic  statistics, submit changes for site updates, and even submit info for custom email blasts.                              </p>
                                </div></td>
                              </tr>
                          </table></td>
                      </tr>
                      <tr>
                        <td colspan="2"><table width="618" height="350" border="0" cellpadding="0" cellspacing="0">
                            <tr>
                              <td width="365" height="40" valign="top" background="images/layout/piba_contenttitle_sec2.jpg"><table width="365" height="40" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="15">&nbsp;</td>
                                    <td><img src="images/titles/site_management.jpg" alt="PIBA Site Management Tools" width="298" height="33" /></td>
                                  </tr>
                              </table></td>
                              <td width="253" height="40" valign="top" background="images/layout/piba_contenttitle_sec3.jpg"><table width="253" height="40" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="10">&nbsp;</td>
                                    <td><img src="images/titles/member_management.jpg" alt="Member Management" width="220" height="33" /></td>
                                  </tr>
                              </table></td>
                            </tr>
                            <tr>
                              <td height="311" valign="top" background="images/layout/piba_content_sec2.jpg" bgcolor="#F7F0DE"><table width="355" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="15">&nbsp;</td>
                                    <td width="260" valign="top"><p>Submit: <strong>Website Changes</strong> |  <strong>Email Blast Info</strong></p>
                                      <ul>
                                      <li><a href="admin/admin.asp">
                                      <b><font color="#FF0000">NEW!</font></b> Add / Edit&nbsp; News Stories 
                                      &amp; Events</a></li>
                                        <li><a href="http://www.google.com/analytics" target="_blank">Google Analytics Reports</a></li>
                                        <li><a href="http://www.accountsupport.com" target="_blank">Webhosting Control Panel</a></li>
                                        <li><a href="http://shopsite.com/help/8.3/en-US/sc/lte/index.htm" target="_blank">E-Commerce Shopsite Help</a><br />
                                          <br />
</li>
                                      </ul></td><td width="80" valign="top">&nbsp;</td>
                                  </tr>
                                  
                                  <tr>
                                    <td>&nbsp;</td>
                                    <td colspan="2" valign="top"><table width="100%" border="0" cellpadding="3" cellspacing="0">
                                      <tr>
                                        <td width="235" bgcolor="#84B2C9"><div align="right"><span class="style5">Member Stats:</span></div></td>
                                        <td width="20" bgcolor="#84B2C9"><div align="center" class="style6"></div></td>
                                        <td bgcolor="#84B2C9"><div align="center" class="style5">
                                            <div align="center">Total Number:</div>
                                        </div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#E1EDF2"><div align="right"><a href="view_members.asp?member_type='*'" target="_self">Total Members</a>:</div></td>
                                        <td width="20" bgcolor="#E1EDF2">&nbsp;</td>
                                        <td width="55" bgcolor="#F4F9FB"><div align="center"><%=(rs_members_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#F4F9FB"><div align="right">Reg Members w Adv:</div></td>
                                        <td width="20" bgcolor="#F4F9FB">&nbsp;</td>
                                        <td bgcolor="#F4F9FB"><div align="center"><%=(rs_reg_w_adv_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#E1EDF2"><div align="right">Reg Members w/o Adv:</div></td>
                                        <td width="20" bgcolor="#E1EDF2">&nbsp;</td>
                                        <td bgcolor="#F4F9FB"><div align="center"><%=(rs_reg_wo_adv_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#F4F9FB"><div align="right">Reg Members w CCCC:</div></td>
                                        <td width="20" bgcolor="#F4F9FB">&nbsp;</td>
                                        <td width="55" bgcolor="#F4F9FB"><div align="center"><%=(rs_reg_w_cccc_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#E1EDF2"><div align="right">Associate Members:</div></td>
                                        <td width="20" bgcolor="#E1EDF2">&nbsp;</td>
                                        <td width="55" bgcolor="#F4F9FB"><div align="center"><%=(rs_associate_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#F4F9FB"><div align="right">Non-Profit Members: </div></td>
                                        <td width="20" bgcolor="#F4F9FB">&nbsp;</td>
                                        <td width="55" bgcolor="#F4F9FB"><div align="center"><%=(rs_nonprofit_total)%></div></td>
                                      </tr>
                                      <tr>
                                        <td width="235" bgcolor="#E1EDF2"><div align="right">Sustainer Members: </div></td>
                                        <td width="20" bgcolor="#E1EDF2">&nbsp;</td>
                                        <td width="55" bgcolor="#F4F9FB"><div align="center"><%=(rs_sustainer_total)%></div></td>
                                      </tr>
                                      
                                    </table></td>
                                  </tr>
                              </table></td>
                              <td height="311" valign="top" background="images/layout/piba_content_sec3.jpg"><table width="245" border="0" cellpadding="0" cellspacing="0">
                                  <tr>
                                    <td width="10">&nbsp;</td>
                                    <td valign="top"><form action="search_results.asp" method="get" enctype="application/x-www-form-urlencoded" name="search" target="_self" id="search">
                                      <table width="245" border="0" cellspacing="0" cellpadding="3">
                                        <tr>
                                          <td colspan="2" bgcolor="#84B2C9"><span class="style5">Member Search: </span><span class="style6"></span></td>
                                          </tr>
                                        <tr>
                                          <td width="96">Member Name:</td>
                                          <td><div align="right">
                                            <input name="search" type="text" id="search" size="20" />
                                          </div></td>
                                        </tr>
                                        <tr>
                                          <td>&nbsp;</td>
                                          <td><table width="100%" border="0" cellspacing="0" cellpadding="0">
                                            <tr>
                                              <td width="56%">&nbsp;</td>
                                              <td width="44%"><input type="submit" name="Submit" value="Search" /></td>
                                            </tr>
                                          </table></td>
                                          </tr>
                                      </table>
                                                                        </form>
                                      <ul>
                                        <li><a href="add_member.asp">Add New Member</a></li>
                                        <li>Edit Member Data </li>
                                        <li>Delete Member <br />
                                          <br />
</li>
                                        <li>Add Banner Ad</li>
                                        <li>Edit Banner Ad</li>
                                        <li>Delete Banner Ad</li>
                                      </ul>
                                      </td>
                                  </tr>
                              </table></td>
                            </tr>
                        </table></td>
                      </tr>
                  </table></td>
                </tr>
                <tr>
                  <td height="38"><img src="images/layout/piba_btmctr.jpg" alt="PIBA" width="618" height="38" /></td>
                </tr>
              </table>
            </div></td>
            <td width="94" valign="top" background="images/layout/piba_right.jpg">&nbsp;</td>
          </tr>
        </table></td>
      </tr>
      <tr>
        <td height="92" valign="top" background="images/layout/piba_btm.jpg"><form id="user_login" name="user_login" method="POST">
        </form>
        </td>
      </tr>
    </table></td>
    <td width="3" background="images/piba_rightside.jpg">&nbsp;</td>
  </tr>
  <tr>
    <td colspan="3"><img src="images/piba_bottom.jpg" alt="PIBA" width="772" height="6" /></td>
  </tr>
</table>
<p align="center"><a href="http://www.padreislandbusiness.org/pdf/membership%20application%202010.doc">MEMBERSHIP APPLICATION</a><a href="home.asp"><br />
  HOME</a> | <a href="members.asp">MEMBERS</a> | <a href="bulletin.asp">BULLETIN</a> | <a href="events.asp">EVENTS</a> | <a href="contact.asp">CONTACT<br />
</a>Copyright &copy; 2008. All Rights Reserved. Padre Island Business Assocation</p>
<p align="center"><a href="www.padreislandbusiness.com">www.padreislandbusiness.com</a><br />
</p>
<p>&nbsp;</p>
<script type="text/javascript">
var gaJsHost = (("https:" == document.location.protocol) ? "https://ssl." : "http://www.");
document.write(unescape("%3Cscript src='" + gaJsHost + "google-analytics.com/ga.js' type='text/javascript'%3E%3C/script%3E"));
</script>
<script type="text/javascript">
var pageTracker = _gat._getTracker("UA-782464-37");
pageTracker._initData();
pageTracker._trackPageview();
</script>
</body>
</html>
<%
rs_users.Close()
Set rs_users = Nothing
%>
<%
rs_members.Close()
Set rs_members = Nothing
%>
<%
rs_reg_w_adv.Close()
Set rs_reg_w_adv = Nothing
%>
<%
rs_reg_wo_adv.Close()
Set rs_reg_wo_adv = Nothing
%>
<%
rs_reg_w_cccc.Close()
Set rs_reg_w_cccc = Nothing
%>
<%
rs_associate.Close()
Set rs_associate = Nothing
%>
<%
rs_nonprofit.Close()
Set rs_nonprofit = Nothing
%>
<%
rs_sustainer.Close()
Set rs_sustainer = Nothing
%>