<% Set Conn = Server.CreateObject("ADODB.Connection") Conn.Open "mrca" querystring = "SELECT id,title,text,pos FROM notice ORDER BY pos" set RS = Conn.execute(querystring) %> MRCA

Notice Board

<%if not RS.EOF then do while not RS.EOF%> <%RS.movenext loop end if%>



		" class="notice_link"><%=RS("title")%> <%=left(RS("text"),100)%>

<% RS.Close Conn.Close Set Conn = nothing %>