<% '========================================================= 'Set Session ID if Session("cookieid") = "" then Insertvisitors "0", "0", "0", "N", "", "" ,"", Request.ServerVariables("REMOTE_HOST"), Request.ServerVariables("HTTP_USER_AGENT"), NOW Response.Redirect "index.html" end if 'response.write Session("cookieid") '========================================================= Session("prepage") = Session("nowpage") Dim filename, chnum filename = request.servervariables("URL") chnum = InstrRev(filename,"/") filename = mid(filename,chnum + 1,len(filename) - chnum) Session("nowpage") = filename '========================================================== %> Welcome to Asian Business Association

<% if session("mem_id") > "0" then %> member logout <% else %> member login  <% end if %>

213.628.1ABA

<% Dim T_event set T_event = Server.CreateObject("ADODB.Recordset") Set T_event.ActiveConnection = MyCNN 'T_event.Source = "SELECT top 2 ev_id, ev_sdesc, ev_stime, ev_etime from event where ev_id in (select distinct ed_eventid from event_date where ed_sdate >= #" & formatdatetime(now,2) & "#)" 'T_event.Source = "SELECT top 2 e.* FROM event AS e, event_date AS ed WHERE e.ev_publish = 1 AND e.ev_id = ed.ed_eventid AND ed.ed_sdate >= #" & formatdatetime(now,2) & "# ORDER BY ed.ed_sdate" T_event.Source = "SELECT ev_id, ev_publish, ev_highlight, ev_sdesc, MIN(ed_sdate) as M_sdate FROM event, event_date WHERE ev_publish = 1 AND ev_id = ed_eventid AND ev_highlight= 1 GROUP BY ev_id, ev_publish, ev_highlight, ev_sdesc ORDER BY 5 ASC " T_event.CursorType = 1 T_event.LockType = 2 T_event.Open if T_event.EOF = False then Dim i i = 0 Do while T_event.EOF = False and i < 2 %>

 <%=T_event("ev_sdesc")%>
<% '************************** 'response.write date Dim T_eventdetail set T_eventdetail = Server.CreateObject("ADODB.Recordset") Set T_eventdetail.ActiveConnection = MyCNN T_eventdetail.Source = "SELECT month(ed_sdate), day(ed_sdate) from event_date where ed_eventid = " & T_event("ev_id") & " order by ed_sdate desc" T_eventdetail.CursorType = 1 T_eventdetail.LockType = 2 T_eventdetail.Open if T_eventdetail.eof = false then Dim thismonth thismonth = T_eventdetail(0) IF thismonth = "1" then thismonth = "January" elseif thismonth = "2" then thismonth ="February" elseif thismonth = "3" then thismonth ="March" elseif thismonth = "4" then thismonth ="April" elseif thismonth = "5" then thismonth ="May" elseif thismonth = "6" then thismonth ="June" elseif thismonth = "7" then thismonth ="July" elseif thismonth = "8" then thismonth ="August" elseif thismonth = "9" then thismonth ="September" elseif thismonth = "10" then thismonth ="October" elseif thismonth = "11" then thismonth ="November" else thismonth ="December" end if dim checkloop checkloop = 1 Do while T_eventdetail.eof = false if checkloop = "2" then response.write ", " & T_eventdetail(1) else response.write thismonth & " " & T_eventdetail(1) end if checkloop = "2" T_eventdetail.movenext Loop end if T_eventdetail.close set T_eventdetail = nothing %>   " class="footer">View Details

<% i = i + 1 T_event.MoveNext LOOP else %>

Event Information coming soon.

<% end if T_event.close set T_event = nothing %>
 

Welcome to Asian Business Association

The Asian Business Association was founded in 1976 to proactively help Asian Americans gain access to economic opportunities and advancement. Through the efforts of the organization the ABA works towards bringing together divergent groups spanning the Asian business community on issues which mutually affect their business interests.

Asian Business Association is a non-profit membership based organization that has been proactively assisting Asian American small businesses to gain access to economic opportunities and advancement for over a quarter of a century. ABA makes every effort to provide members with current information on business opportunities and outreach programs with major corporation and public agencies. Through our activities, we continue to build a strong business relationship among our members. Our events include our monthly mixers, golf tournaments, award banquets, business education training seminars and more.

 

ABA survey results

2010 ABA Board of Directors

Health Care Reform

Gary F. Locke Resolution

 
 

Join Our Mailing List
Email:

ELITE GOLD SPONSORS

 
 

All ABA Sponsors

 

2007 Copyright Asian Business Association. www.aba-la.org  All Rights Reserved  
Privacy Policy

 

 
 

Web Partnered By E*CONNECT Web Services