%@LANGUAGE="VBSCRIPT"%>
![]()
|
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
|
|