<!-- #include file="../include.asp" -->
<%
main()
Sub main()
Dim bProblem
bProblem = 0
%>
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=shift_jis">
<meta name="robots" content="all">
<title><% = AppTitle %></title>
</head>
<body>
<table border="1">
<tr>
<td width="500" align="left" style="font-size:10pt">
<table border='1' width="100%" style="font-size:10pt">
<tr>
<td width='110' bgcolor='#eeeeee'>システムCD/<br> デフォルトフラグ</td>
<td align="center">テーブルの行数</td>
</tr>
</table>
<%
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("<font color='#ff0000'>デフォルトフラグが１になっているシステムCDが２つあります。</font>")
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("<table border='1' width='100%'>")
Response.Write("<tr>")
Response.Write("<td width='100' bgcolor='#eeeeee' rowspan='6'>")
Response.Write(SystemCD)
Response.Write("</td>" & vbCrLf)
Response.Write("<td width='10' bgcolor='#eeeeee' rowspan='6'>")
Response.Write(DefaultFlg)
Response.Write("</td>" & 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("<td style='font-size:8pt'>")
If DefaultFlg = 0 And Content3.Fields("Kensu") <> 0 Then
ErrMsg1 = ErrMsg1 & name & ","
Response.Write("<font color='#ff0000'>")
Response.Write(Content3.Fields("Kensu"))
Response.Write("</font>")
bProblem = 1
Else
Response.Write(Content3.Fields("Kensu"))
End If
Response.Write("</td>" & vbCrLf)
End If
If jj mod 11 = 0 And jj <> 0 Then
Response.Write("</tr>" & vbCrLf)
Response.Write("<tr>" & vbCrLf)
End If
jj = jj + 1
Content2.MoveNext
Loop
Response.Write("</tr>")
Response.Write("<table>")
Content.MoveNext
Loop
Set Content2 = OpenQuery(Query2)
Response.Write("<table border='1' width='100%'>")
Response.Write("<tr>")
Response.Write("<td width='100' bgcolor='#eeeeee' rowspan='6'>その他</td>" & vbCrLf)
Response.Write("<td width='10' bgcolor='#eeeeee' rowspan='6'> </td>" & 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("<td style='font-size:8pt'>")
If Content3.Fields("Kensu") <> 0 Then
ErrMsg2 = ErrMsg2 & name & ","
Response.Write("<font color='#ff0000'>")
Response.Write(Content3.Fields("Kensu"))
Response.Write("</font>")
bProblem = 1
Else
Response.Write(Content3.Fields("Kensu"))
End If
Response.Write("</td>" & vbCrLf)
End If
If jj mod 11 = 0 And jj <> 0 Then
Response.Write("</tr>" & vbCrLf)
Response.Write("<tr>" & vbCrLf)
End If
jj = jj + 1
Content2.MoveNext
Loop
Response.Write("</tr>")
Response.Write("<table>")
if ErrMsg1 <> "" Then
Response.Write("デフォルトフラグが０のシステムにデータが入っています。<br>")
Response.Write("データが入っているテーブルは次の通りです。<br><br>")
Response.Write(ErrMsg1)
Response.Write("<br><br>")
End If
if ErrMsg2 <> "" Then
Response.Write("システムコードが入っていないシステムにデータが入っています。<br>")
Response.Write("データが入っているテーブルは次の通りです。<br><br>")
Response.Write(ErrMsg2)
End If
If bProblem = 0 Then
Response.Write("<font color='#0000ff'>問題ありません</font>")
End If
%>
</table>
</td>
</tr>
</table>
</body>
</html>
<%
End Sub
%>