%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[an error occurred while processing this directive]
<%
Dim officers
Dim officers_numRows
Set officers = Server.CreateObject("ADODB.Recordset")
officers.ActiveConnection = MM_rcdb_STRING
officers.Source = "SELECT * FROM Officers ORDER BY OrderNum ASC"
officers.CursorType = 0
officers.CursorLocation = 2
officers.LockType = 1
officers.Open()
officers_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
officers_numRows = officers_numRows + Repeat1__numRows
%>
Join Us
Curious? Come down and visit us at one of our upcoming events or meetings. Feel free to contact one of our club officers below with any questions you may have.
| Name |
Position |
<%
While ((Repeat1__numRows <> 0) AND (NOT officers.EOF))
%>
">
| <% if (officers.Fields.Item("MEmail").Value) <> "" then%>"><%=(officers.Fields.Item("MFName").Value)%> <%=(officers.Fields.Item("MLName").Value)%><% else %><%=(officers.Fields.Item("MFName").Value)%> <%=(officers.Fields.Item("MLName").Value)%><% end if%> |
<%=(officers.Fields.Item("MPosition").Value)%> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
officers.MoveNext()
Wend
%>
|
|