<%
Dim Query, Query2, Query3, Content, Content2, Content3, SystemCD
Query = "SELECT * FROM TC1システムM"
Set Content = OpenQuery(Query)
Do While Not(Content.BOF OR Content.EOF)
SystemCD = Content.Fields("システムCD")
Query2 = "SELECT name FROM sysobjects"
Query2 = Query2 & " WHERE (xtype = 'U') AND (status >= 0) AND ((name LIKE N'TC[1-9]%') OR (name LIKE N'TD[A-Z]%') OR (name LIKE N'TG[A-Z]%') OR (name LIKE N'TS[A-Z]%') OR (name LIKE N'TT[A-Z]%'))"
Query2 = Query2 & " ORDER BY name"
Set db = Server.CreateObject("ADODB.Connection")
db.Open SQLConn
Dim ii
Set Content2 = OpenQuery(Query2)
Response.Write("")
Response.Write("")
Response.Write("| ")
Response.Write(SystemCD)
Response.Write(" | " & vbCrLf)
Response.Write("")
Response.Write(Content.Fields("デフォルトフラグ"))
Response.Write(" | " & vbCrLf)
Dim jj
jj = 0
Do While Not(Content2.BOF Or Content2.EOF)
Dim name
name = Content2.Fields("name")
Query3 = "SELECT COUNT(*) As Kensu FROM " & name & " WHERE システムCD = '" & SystemCD & "'"
Set Content3 = OpenQuery(Query3)
If name <> "TC1システムM" Then
Response.Write("")
Response.Write(Content3.Fields("Kensu"))
Response.Write(" | " & vbCrLf)
End If
If jj mod 11 = 0 And jj <> 0 Then
Response.Write(" " & vbCrLf)
Response.Write("" & vbCrLf)
End If
jj = jj + 1
Content2.MoveNext
Loop
Response.Write(" ")
Response.Write("")
Content.MoveNext
Loop
%>
<%
End Sub
%>
|