<%
META_DESCRIPTION=""
META_KEYWORDS=""
META_TITLE = ""
PAGE_TITLE = "Corporate Information"
PAGE_KEY = "corporate"
TITLE_TAG = ""
Set DB = New clsDatabase
DB.OpenDatabase SQL_DATABASE_NAME, SQL_USR, SQL_PWD
'numOfMembers = DB.RunQuery("SELECT ml_corporate_categories.id, ml_corporate_categories.name, ml_corporate_members.name, ml_corporate_members.title FROM ml_corporate_members INNER JOIN ml_corporate_categories ON ml_corporate_members.category_id=ml_corporate_categories.id ORDER BY ml_corporate_categories.ordering, ml_corporate_categories.name, ml_corporate_members.ordering, ml_corporate_members.name") - 1
numOfMembers = DB.RunQuery("SELECT mlb_corporate_categories.id, mlb_corporate_categories_lang.name, mlb_corporate_members_lang.name, mlb_corporate_members_lang.title FROM mlb_corporate_members INNER JOIN mlb_corporate_members_lang ON mlb_corporate_members.id = mlb_corporate_members_lang.record_id INNER JOIN (mlb_corporate_categories INNER JOIN mlb_corporate_categories_lang ON mlb_corporate_categories.id = mlb_corporate_categories_lang.record_id) ON mlb_corporate_members.category_id = mlb_corporate_categories.id WHERE mlb_corporate_categories_lang.[language] = '" & selLang & "' AND mlb_corporate_members_lang.[language] = '" & selLang & "' ORDER BY mlb_corporate_categories.ordering, mlb_corporate_categories_lang.name, mlb_corporate_members.ordering, mlb_corporate_members_lang.name") - 1
If numOfMembers > -1 Then allMembers = DB.GetLastResults()
Set DB = Nothing
'display the events
If numOfMembers > -1 Then
strCorporateInfo = "" _
& ""
For x = 0 to numOfMembers
If Trim("" & allMembers(1,x)) <> strLastGroup Then
If x > 0 Then
strCorporateInfo = strCorporateInfo _
& " ![]() |
"
End If
strCorporateInfo = strCorporateInfo _
& " | " & allMembers(1,x) & " |
"
strLastGroup = Trim("" & allMembers(1,x))
End If
strCorporateInfo = strCorporateInfo _
& " " _
& " | " & allMembers(2,x) & " | " _
& " " & Replace(Trim("" & allMembers(3,x)), vbCrLf, "
") & " | " _
& "
"
Next
strCorporateInfo = strCorporateInfo _
& " ![]() |
" _
& "
"
Else
strCorporateInfo = "No acclamations currently found! Please check back soon for updates!
"
End If
%>
corporate information
<%=strCorporateInfo%>
|