<% '#############Start of Functions for Date########### 'To exclude the dates which are less than current dates function excludeDate(str) if str<>"" then dim larray Dim lstr larray=Split(str,",") for i=0 to Ubound(larray) dim chDate chDate=larray(i) if isDateOkay(chDate) then if Cdate(chDate)>=now then lstr=lstr & larray(i) lstr=lstr & "," end if else lstr=larray(i) end if Next excludeDate=lstr else excludeDate="" end if end function Function isDateOkay(d) isDateOkay=False If isEmpty(d) Then Exit Function If Trim(""&d)="" Then Exit Function On Error Resume Next If isDate(d) Then isDateOkay=True End Function '#############End of Functions for Date########### %> Book a Mindfulness Based Course
Symran > Mindfulness Workshops > Book a Course

Book a Mindfulness Based Course

  • Courses: Secular in nature and are suitable for those of any religion or none.
  • Venue: Non-residential courses are held in country hotels - Click here Location : Rugby

Please click on the desired Symran version below to find out more:

<% dim mthArray mthArray=Array("January","February","March","April","May","June","July","August","September","October","November","December") for ctr=0 to UBound(mthArray) set myConnection = server.CreateObject("ADODB.Connection") myConnection.open "symran" set myRecordset = server.CreateObject("ADODB.Recordset") myRecordset.open "select * from smm where InMonth='" & mthArray(ctr) & "' order by ID", myConnection if not myRecordset.EOF then %> <% while not myRecordset.EOF item=myRecordset("item") unitprice=myRecordset("unitprice") sku=myRecordset("SKU") duration=myRecordset("duration") nativepage=myRecordset("nativepage") dates=myRecordset("dates") InMonth=myRecordset("InMonth") %> <%if nativepage=23 then%> <%else%> <%end if%> <% myRecordset.MoveNext wend myRecordset.close myConnection.close else end if %>
Course Date Duration Fee  
<%=SKU%> <%=Replace(excludeDate(dates),",","
")%> 		<%=duration%> £<%=unitprice%>Fully BookedCheck Availability
<%Next%>