<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% Dim rsDiary Dim rsDiary_cmd Dim rsDiary_numRows Set rsDiary_cmd = Server.CreateObject ("ADODB.Command") rsDiary_cmd.ActiveConnection = MM_ISPE_STRING rsDiary_cmd.CommandText = "SELECT * FROM tbl_diary ORDER BY diaryDate ASC" rsDiary_cmd.Prepared = true Set rsDiary = rsDiary_cmd.Execute rsDiary_numRows = 0 %> <% Dim Repeat1__numRows Dim Repeat1__index Repeat1__numRows = -1 Repeat1__index = 0 rsDiary_numRows = rsDiary_numRows + Repeat1__numRows %> ISPE - The Institute of Swimming Pool Engineers
ISPE - The Institute of Swimming Pool Engineers

Diary Dates

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

Date

Event

Venue

Subject

<%=(rsDiary.Fields.Item("diaryDay").Value)%>  <%=(rsDiary.Fields.Item("diaryDate").Value)%>
 

<%=(rsDiary.Fields.Item("diaryTitle").Value)%>

<%=(rsDiary.Fields.Item("diaryVenue").Value)%>

<%=(rsDiary.Fields.Item("diarySubject").Value)%>

 

about ISPE ~ objectives ~ membership ~ publications list ~ diary dates ~ contact
© ISPE All Rights Reserved
Reg. No. 150 1280 (England)
site designed by vss
<% rsDiary.Close() Set rsDiary = Nothing %>