<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% 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__sort rs_members__sort = "member" If (Request.QueryString("sort") <> "") Then rs_members__sort = Request.QueryString("sort") End If %> <% Dim rs_members__dir rs_members__dir = "asc" If (Request.QueryString("dir") <> "") Then rs_members__dir = Request.QueryString("dir") End If %> <% Dim rs_members__MMColParam2 rs_members__MMColParam2 = "%" If (Request.QueryString("alph") <> "") Then rs_members__MMColParam2 = Request.QueryString("alph") End If %> <% 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 WHERE member LIKE '" + Replace(rs_members__MMColParam2, "'", "''") + "%' AND active='x' ORDER BY " + Replace(rs_members__sort, "'", "''") + " " + Replace(rs_members__dir, "'", "''") + "" rs_members.CursorType = 0 rs_members.CursorLocation = 2 rs_members.LockType = 1 rs_members.Open() rs_members_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rs_members_numRows = rs_members_numRows + Repeat1__numRows %> <% ' *** Validate request to log in to this site. MM_LoginAction = Request.ServerVariables("URL") If Request.QueryString<>"" Then MM_LoginAction = MM_LoginAction + "?" + Server.HTMLEncode(Request.QueryString) MM_valUsername=CStr(Request.Form("username")) If MM_valUsername <> "" Then MM_fldUserAuthorization="access" MM_redirectLoginSuccess="home.asp" MM_redirectLoginFailed="error.asp" MM_flag="ADODB.Recordset" set MM_rsUser = Server.CreateObject(MM_flag) MM_rsUser.ActiveConnection = MM_piba_STRING MM_rsUser.Source = "SELECT username, password" If MM_fldUserAuthorization <> "" Then MM_rsUser.Source = MM_rsUser.Source & "," & MM_fldUserAuthorization MM_rsUser.Source = MM_rsUser.Source & " FROM users WHERE username='" & Replace(MM_valUsername,"'","''") &"' AND password='" & Replace(Request.Form("password"),"'","''") & "'" MM_rsUser.CursorType = 0 MM_rsUser.CursorLocation = 2 MM_rsUser.LockType = 3 MM_rsUser.Open If Not MM_rsUser.EOF Or Not MM_rsUser.BOF Then ' username and password match - this is a valid user Session("MM_Username") = MM_valUsername If (MM_fldUserAuthorization <> "") Then Session("MM_UserAuthorization") = CStr(MM_rsUser.Fields.Item(MM_fldUserAuthorization).Value) Else Session("MM_UserAuthorization") = "" End If if CStr(Request.QueryString("accessdenied")) <> "" And false Then MM_redirectLoginSuccess = Request.QueryString("accessdenied") End If MM_rsUser.Close Response.Redirect(MM_redirectLoginSuccess) End If MM_rsUser.Close Response.Redirect(MM_redirectLoginFailed) End If %> Padre Island Business Association
 

Home
Bulletin
Events
Contact Us

Welcome to the Padre Island Business Association!

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.
Join us, and become a member!
Download an online membership application MSWord  today.
Download an online membership application PDF today.
The Membership section of the website is Under Construction.

 
PIBA Updates A B C D E F G H I J K L M N O P Q R S T U V W X Y Z - ALL
<% While ((Repeat1__numRows <> 0) AND (NOT rs_members.EOF)) %>
» "><%=(rs_members.Fields.Item("member").Value)%> <%=(rs_members.Fields.Item("description").Value)%> <%=(rs_members.Fields.Item("phone").Value)%>
<% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 rs_members.MoveNext() Wend %>
 
Member Name Sort A-Z Sort Z-A
Description Sort A-Z Sort Z-A
Phone Sort A-Z Sort Z-A
PIBA
 
 
Username:
 
Password:
 
PIBA

MEMBERSHIP APPLICATION
HOME
| MEMBERS | BULLETIN | EVENTS | CONTACT
Copyright © 2008. All Rights Reserved. Padre Island Business Assocation

www.padreislandbusiness.com

 

<% rs_users.Close() Set rs_users = Nothing %> <% rs_members.Close() Set rs_members = Nothing %>