<%@LANGUAGE="VBSCRIPT"%> Physics Menu for Demonstrations
Database


<% Set db = Server.CreateObject("ADODB.Connection") db.Open "dsn=DemoBase;" Set All = db.Execute("SELECT COUNT(Code) FROM AllDemos WHERE Working = 'Y'") %> <% Response.Write All(0) %> Online Items