<%
Dim Query, Query2, Query3, Content, Content2, Content3, SystemCD, DefaultFlg
Dim DefaultSystemCD
Dim ErrMsg1, ErrMsg2
Dim SystemCDs
SystemCDs = ""
ErrMsg1 = ""
ErrMsg2 = ""
DefaultSystemCD = ""
Query = "SELECT * FROM TC1システムM"
Set Content = OpenQuery(Query)
Dim jj
Dim name
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"
Do While Not(Content.BOF OR Content.EOF)
SystemCD = Content.Fields("システムCD")
DefaultFlg = Content.Fields("デフォルトフラグ")
If SystemCDs <> "" Then
SystemCDs = SystemCDs & ","
End If
SystemCDs = SystemCDs & "'" & SystemCD & "'"
If DefaultFlg = 1 Then
If DefaultSystemCD <> "" Then
Response.Write("デフォルトフラグが１になっているシステムCDが２つあります。")
bProblem = 1
End If
DefaultSystemCD = SystemCD
End If
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(DefaultFlg)
Response.Write(" | " & vbCrLf)
jj = 0
Do While Not(Content2.BOF Or Content2.EOF)
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("")
If DefaultFlg = 0 And Content3.Fields("Kensu") <> 0 Then
ErrMsg1 = ErrMsg1 & name & ","
Response.Write("")
Response.Write(Content3.Fields("Kensu"))
Response.Write("")
bProblem = 1
Else
Response.Write(Content3.Fields("Kensu"))
End If
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
Set Content2 = OpenQuery(Query2)
Response.Write("")
Response.Write("")
Response.Write("| その他 | " & vbCrLf)
Response.Write(" | " & vbCrLf)
jj = 0
Do While Not(Content2.BOF Or Content2.EOF)
name = Content2.Fields("name")
Query3 = "SELECT COUNT(*) As Kensu FROM " & name & " WHERE システムCD Not In (" & SystemCDs & ")"
Set Content3 = OpenQuery(Query3)
If name <> "TC1システムM" Then
Response.Write("")
If Content3.Fields("Kensu") <> 0 Then
ErrMsg2 = ErrMsg2 & name & ","
Response.Write("")
Response.Write(Content3.Fields("Kensu"))
Response.Write("")
bProblem = 1
Else
Response.Write(Content3.Fields("Kensu"))
End If
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("")
if ErrMsg1 <> "" Then
Response.Write("デフォルトフラグが０のシステムにデータが入っています。
")
Response.Write("データが入っているテーブルは次の通りです。
")
Response.Write(ErrMsg1)
Response.Write("
")
End If
if ErrMsg2 <> "" Then
Response.Write("システムコードが入っていないシステムにデータが入っています。
")
Response.Write("データが入っているテーブルは次の通りです。
")
Response.Write(ErrMsg2)
End If
If bProblem = 0 Then
Response.Write("問題ありません")
End If
%>
<%
End Sub
%>
|