Newsletters for the Marin Waldorf School Community

<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% ' FileName="Connection_odbc_conn_dsn.htm" ' Type="ADO" ' DesigntimeType="ADO" ' HTTP="false" ' Catalog="" ' Schema="" Dim MM_waldorf_STRING MM_waldorf_STRING = "dsn=waldorf;uid=marin;pwd=waldorf0;" %> <% Dim newsletter Dim newsletter_numRows Set newsletter = Server.CreateObject("ADODB.Recordset") newsletter.ActiveConnection = MM_waldorf_STRING newsletter.Source = "SELECT * FROM newsletters ORDER BY listNumber DESC" newsletter.CursorType = 0 newsletter.CursorLocation = 2 newsletter.LockType = 1 newsletter.Open() newsletter_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = 1 Repeat1__index = 0 newsletter_numRows = newsletter_numRows + Repeat1__numRows %> <% Dim Repeat2__numRows Dim Repeat2__index Repeat2__numRows = 10 Repeat2__index = 0 newsletter_numRows = newsletter_numRows + Repeat2__numRows %> Newsletters for the Marin Waldorf School Community

Marin County Waldorf School

Marin Waldorf School Pre-K to 8th Grade

Community Newsletter

Alumni for Marin Waldorf School

Calendar of Events

<% While ((Repeat1__numRows <> 0) AND (NOT newsletter.EOF)) %> <% Repeat1__index=Repeat1__index+1 Repeat1__numRows=Repeat1__numRows-1 newsletter.MoveNext() Wend %>

Current Newsletter

5-7-08 Newsletter

" target="_blank" onFocus="if(this.blur)this.blur()"><%=(newsletter.Fields.Item("newsletterName").Value)%>

You will need Adobe Acrobat Reader™ to view and print newsletters.

<% While ((Repeat2__numRows <> 0) AND (NOT newsletter.EOF)) %> <% Repeat2__index=Repeat2__index+1 Repeat2__numRows=Repeat2__numRows-1 newsletter.MoveNext() Wend %>

Previous Newsletter

4-30-08 Newsletter

" target="_blank" onFocus="if(this.blur)this.blur()"><%=(newsletter.Fields.Item("newsletterName").Value)%>

@2003 Marin Waldorf School, All Rights Reserved.
Site Designed by Seymour Designs

<% newsletter.Close() Set newsletter = Nothing %>