The School of Insight and Intuition - Spiritual and Consciousness Studies

<% @LANGUAGE = VBScript %> <% Dim RefID, lines, col_no, backgroundcol RefID=1 'Reference of Client login... strSQL = "SELECT * FROM tblSiteData WHERE tblSiteData.RefID = " & RefID rst1.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic strSQL = "SELECT * FROM tblSiteSetup WHERE tblSiteSetup.RefID = " & RefID rst2.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic%> The School of Insight and Intuition - Spiritual and Consciousness Studies

©2005 The school of Insight and Intuition

Course Dates - Autumn Term 2005

<%if rst1("Error")=false and not(rst1.eof) and (rst1("Header")<>"" or rst1("BodyP1")<>"" or rst1("BodyP2")<>"" or rst1("BodyP3")<>"" or rst1("BodyP4")<>"" or rst1("BodyP5")<>"" or rst1("TableH1")<>"" or rst1("TableH2")<>"" or rst1("FooterP1")<>"" or rst1("FooterP2")<>"" or rst1("FooterP3")<>"" or rst1("FooterP4")<>"") then%> <%rst1.close rst2.close Set rst1=Nothing Set rst2=Nothing Set rst3=Nothing else rst1.close rst2.close Set rst1=Nothing Set rst2=Nothing%> <%end if%>

<%if rst1("Header")<>"" then strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("HeaderFontCol") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic%>

" face="<%=rst2("HeaderFontType")%>" size="<%=rst2("HeaderFontSize")%>"> <<%=rst2("HeaderFontStyle")%>><%=rst1("Header")%></<%=rst2("HeaderFontStyle")%>>

<%rst3.close end if strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("BodyFontColB1") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic for lines=1 to 5 if rst1("BodyP"+cstr(lines))<>"" then%>

" face="<%=rst2("BodyFontTypeB1")%>" size="<%=rst2("BodyFontSizeB1")%>"> <<%=rst2("BodyFontStyleB1")%>><%=rst1("BodyP"+cstr(lines))%></<%=rst2("BodyFontStyleB1")%>>

<%end if next%>

<%strSQL="Select * From tblColumnsData WHERE tblColumnsData.RefID = " & RefID & " Order By LineID" rst4.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic if not(rst4.eof) then rst4.movefirst do until rst4.eof%> <%if rst4("Column7") <> "" then%> <%end if if rst4("Column8") <> "" then%> <%end if rst4.movenext loop end if rst3.close rst4.close%>


<%=rst4("Column1")%> <%=rst4("Column2")%>
<%=rst4("Column3")%>
<%=rst4("Column4")%>	<%=rst4("Column5")%>
<%=rst4("Column6")%>
<%=rst4("Column7")%>
"> Click here for more information >>>

<%strSQL = "SELECT * FROM tblColours WHERE tblColours.ColID ='" & rst2("FooterFontCol") & "'" rst3.open strSQL, strConnect, ado_Openkeyset, ado_LockOptimistic for lines=1 to 4 if rst1("FooterP"+cstr(lines))<>"" then%>

" face="<%=rst2("FooterFontType")%>" size="<%=rst2("FooterFontSize")%>"> <<%=rst2("FooterFontStyle")%>><%=rst1("FooterP"+cstr(lines))%></<%=rst2("FooterFontStyle")%>>

<%end if next rst3.close%>

ConnectOnline
Active Web Page (News)

Presently awaiting information...

All Courses and Events Held at St. Matthias Centre,
Church Rd. Richmond S.W. London Unless Otherwise Stated.