|
|
|
|
Wildrift creates nature camps for children that
encourage a lifetime of outdoor activities.
At our camps the children can enjoy themselves
to the fullest, learn new skills and experience
new cultures. Most of the childern return from
our camps more confident and open to new ideas.
The focus is on sensitization of the child to
self and her/his environment.
A structured
approach to educational in the outdoors
to facilitate the overall development of the
child. This happens with the hands-on experiences
within the larger framework of real life situations.
This helps them to think in a more realistic
fashion using their own experiences and to explore
their inner and outer worlds and to find a match
.
|
| Journal
Title |
Journal
By |
Date |
Details |
More
Info |
<%
on error resume next
filePath ="../db/wildriftmks1.mdb"
'filePath ="../db/brainwise.mdb"
Set con = Server.CreateObject("ADODB.Connection")
con.Open "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" &server.MapPath(filePath)
SET rsTemp = Server.CreateObject("ADODB.Recordset")
rsTemp.CursorType = 1
rsTemp.Open "select * from journal ",con,3,3
DIM intPageRecords, intRecords, intRecordCount, intCurrentPage
DIM intNumberOfPages, intDisplayPage
intPageRecords = Request.Querystring("page")
IF intPageRecords = "" THEN
intPageRecords = 1 : intRecords = 1
END IF
intRecords = intPageRecords
intPageRecords = ((intPageRecords - 1) * 6) +1
intRecordCount = 0
IF NOT rsTemp.eof THEN
rsTemp.Move (intPageRecords - 1)
p=1
DO WHILE intRecordCount < 10 and NOT rsTemp.eof
strJId=rsTemp("JournalId")
strcommentBy=rsTemp("commentBy")
strJDate=rsTemp("journalDate")
strDesc1=rsTemp("journalDesc1")
strJTitle=rsTemp("journalTitle")
%>
| <%=strJTitle%>
|
<%=strcommentBy%>
|
<%=strJDate%>
|
<%=strDesc1%>
|
More
|
<%
rsTemp.MovenEXT
intRecordCount = intRecordCount +1
p=p+1
Loop
END IF
%>
|
|
|
