<%@LANGUAGE="VBSCRIPT"%>
<% Dim rrSource_rsProducts, rrRecCount_rsProducts, re_rsProducts
Set re_rsProducts = New regexp
re_rsProducts.Pattern = "SELECT (.*) FROM "
re_rsProducts.Global = False
re_rsProducts.IgnoreCase = True
rrSource_rsProducts="Select Count(*) as RecCount From " & re_rsProducts.Replace(rsProducts.Source,"")
rrRecCount_rsProducts=CInt(rsProducts.ActiveConnection.Execute(rrSource_rsProducts)("RecCount"))
Set rrSource_rsProducts = Nothing
Set re_rsProducts = Nothing
%>
Software for children, educational software for laughter and learning from Brainworks
You will be transferred to Brainworks' parent company, BrightMinds,
in 10 seconds.
Tell me about fundraising for my school / playgroup
Send me a BrightMinds catalogue
More text / link here