%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
[an error occurred while processing this directive]
<%
Dim members
Dim members_numRows
Set members = Server.CreateObject("ADODB.Recordset")
members.ActiveConnection = MM_rcdb_STRING
members.Source = "SELECT * FROM Members ORDER BY MLName ASC"
members.CursorType = 0
members.CursorLocation = 2
members.LockType = 1
members.Open()
members_numRows = 0
%>
<%
Dim Repeat1__numRows
Dim Repeat1__index
Repeat1__numRows = -1
Repeat1__index = 0
members_numRows = members_numRows + Repeat1__numRows
%>
Our Members
| Name |
AMA |
IMAA |
<%
While ((Repeat1__numRows <> 0) AND (NOT members.EOF))
%>
">
| <%=(members.Fields.Item("MFName").Value)%> <%=(members.Fields.Item("MLName").Value)%> |
<% if (members.Fields.Item("AMAPublish").Value) = True then %><%=(members.Fields.Item("MAMA").Value)%><% end if %> |
<% if (members.Fields.Item("AMAPublish").Value) = True then %><%=(members.Fields.Item("MIMAA").Value)%><% end if %> |
<%
Repeat1__index=Repeat1__index+1
Repeat1__numRows=Repeat1__numRows-1
members.MoveNext()
Wend
%>
|
|