Padre Island Business Association

<%@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, "'", "''") + "%' 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 %> <% ' *** 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

The Padre Island Business Bulletin is a publication of the Padre Island Business Association.

If you are interested in submitting articles or advertising in the Padre Island Business Bulletin, read more below!

The Business Bulletin is published monthly and mailed free of charge to all Island businesses and residents. It is also mailed to members of the Corpus Christi City Council and staff, Corpus Christi and Port Aransas Chambers of Commerce, Nueces County Commissioners Court and staff, local legislators, and other community leaders.

Currently 5,400 copies are being printed and distributed. Printing and mailing costs are defrayed in part by the proceeds of advertisements. See below for information on advertising in the Business Bulletin.

Articles for the Business Bulletin are written by individuals volunteering their services to the Padre Island Business Association. Contributors do not receive compensation for their articles.
Editorial opinions and views expressed in articles and the appearance of advertisements in the Business Bulletin do not necessarily represent the position of, or an endorsement by, the Padre Island Business Association or its Board of Directors.

The Padre Island Business Bulletin is edited by Stan Hulse. Articles are always welcome and can be submitted my mail or preferably by e-mail.

Mail articles to:
Padre Island Business Bulletin
14493 S Padre Island Dr., Ste. A, PMB 313
Corpus Christi, TX 78418

E-mail Articles to: bulletin@padreislandbusiness.org

Interested in advertising in the PIBA Business Bulletin? Click here!

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 %>