<%@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 Dim event_date, event_time, headline, location, detail1, detail2, detail3, entered, i DIM Conn,strConn,SQLstmt,RS set Conn = server.createobject("adodb.connection") strConn = "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("/data/piba.mdb") Conn.open strConn SQLstmt = "SELECT events.counter, events.event_date, events.event_time, events.headline, events.location, events.detail1, events.detail2, events.detail3, events.entered, events.authorized FROM events WHERE (((events.event_date)>=(Now()-1)) AND ((events.authorized)='x')) ORDER BY events.event_date;" Set RS = conn.execute(SQLstmt) If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF conn.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "

" response.write "Error desc. -> " & conn.errors(counter).description & "

" next else %> Padre Island Business Association
 

Home
Members
Bulletin
Events
Contact Us

Welcome to the Padre Island Business Association!

<% SQLstmt = "SELECT COUNT(events.headline) FROM events WHERE (((events.event_date)>=(Now()-1)) AND ((events.authorized)='x')); " Set RSx = conn.execute(SQLstmt) if RSx(0) > 3 then For i = 0 To 2 Response.Write("

") new_date = FormatDateTime(RS(1),1) Response.Write new_date Response.Write ("    ") Response.Write RS(2) Response.Write (":
" ) Response.Write RS(3) Response.Write ("

") RS.MoveNext Next else For i = 0 to (RSx(0)-1) Response.Write("

") new_date = FormatDateTime(RS(1),1) Response.Write new_date Response.Write ("    ") Response.Write RS(2) Response.Write (":
" ) Response.Write RS(3) Response.Write ("

") RS.MoveNext Next end if end if %>
 
  PIBA Updates Images coming soon!
<% Dim RSa SQLstmt = "SELECT events.counter, events.event_date, events.event_time, events.headline, events.location, events.detail1, events.detail2, events.detail3, events.entered, events.authorized FROM events WHERE (events.event_date >= Now()-1 AND events.authorized ='x') ORDER BY events.event_date,counter;" Set RSa = conn.execute(SQLstmt) If err.number>0 then response.write "VBScript Errors Occured:" & "

" response.write "Error Number=" & err.number & "

" response.write "Error Descr.=" & err.description & "

" response.write "Help Context=" & err.helpcontext & "

" response.write "Help Path=" & err.helppath & "

" response.write "Native Error=" & err.nativeerror & "

" response.write "Source=" & err.source & "

" response.write "SQLState=" & err.sqlstate & "

" end if IF conn.errors.count> 0 then response.write "Database Errors Occured" & "

" response.write SQLstmt & "

" for counter= 0 to conn.errors.count response.write "Error #" & conn.errors(counter).number & "

" response.write "Error desc. -> " & conn.errors(counter).description & "

" next else Response.Write ("") Do While Not RSa.EOF Response.Write("") RSa.MoveNext Loop end if %>
") new_date = FormatDateTime(RSa(1),1) Response.Write new_date Response.Write(" ") Response.Write RSa(2) Response.Write("
") Response.Write RSa(3) Response.Write("
") Response.Write RSa(4) Response.Write("
") Response.Write RSa(5) Response.Write("
") Response.Write RSa(6) Response.Write("
") Response.Write RSa(7) Response.Write ("

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