<!-- #include file="../include.asp" -->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<%
main()
Sub main()
Dim ct21dbName, ct21Server,ct21Conn
ct21Server = "localhost"
ct21dbName = "sj4webdev"
ct21Conn = "Provider=SQLOLEDB.1;Persist Security Info=False;User ID=sj3user;Password=sj3;Initial Catalog=" & ct21dbName & ";Data Source=" & ct21Server
Dim Query, Content, Content1, Rs
Query = "SELECT name FROM sysobjects WHERE (xtype = 'U') AND (status >= 0) ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open ct21Conn
Dim ii
Set Content = db.Execute(Query)
Dim HtmlAll, HtmlRow, bFalse, HtmlFalse, WriteRow
Dim ScriptFalse1, ScriptFalse2, ScriptFalse3, ScriptFalse4
Dim bTableFalseFlg
bTableFalseFlg = 0
Dim iCount
iCount = 0
Do While Not(Content.BOF Or Content.EOF)
Dim name
name = Content.Fields("name")
Query = "SELECT * FROM " & name & " WHERE システムCD <> 'SFC'"
Set Content1 = db.Execute(Query)
Do While Not(Content1.BOF Or Content1.EOF)
iCount = iCount + 1
Content1.MoveNext
Loop
Content.MoveNext
Loop
Response.Write(iCount)
%>
</body>
<%
End Sub
%>
</html>