<% ' %> <% main() Sub main() Dim Query Dim Content Dim Content1 Dim MotoEnshuCD Dim EnshuCD ' MotoEnshuCD = "000kyouzai" ' EnshuCD = "000kyoutst" If MotoEnshuCD = "" Or EnshuCD = "" Then Response.Write("‰‰�KCD–¢Žw’è") Exit Sub End If Query = "exec SPM‰‰�KŽæ“¾ '" & GB_SystemCD & "', '" & MotoEnshuCD & "'" Set Content = OpenQuery(Query) If Content.BOF Or Content.EOF Then Response.Write("•Ï�XŒ³‰‰�KCD–¢‘¶�Ý") Exit Sub End If Query = "exec SPM‰‰�KŽæ“¾ '" & GB_SystemCD & "', '" & EnshuCD & "'" Set Content = OpenQuery(Query) If Not(Content.BOF Or Content.EOF) Then Response.Write("•Ï�X�扉�KCD�d•¡") Exit Sub End If Query = "select * from dbo.sysobjects where xtype = 'U' and left(name,1)='T' ORDER BY name" Set Content = OpenQuery2(Query) Do While Not(Content.BOF Or Content.EOF) On Error Resume Next Query = "" Query = Query & " UPDATE " & Content.Fields("name").value & " " Query = Query & " SET ‰‰�KCD = '" & EnshuCD & "' " Query = Query & " WHERE ‰‰�KCD = '" & MotoEnshuCD & "' " Set Content1 = OpenQuery(Query) On Error Goto 0 Response.Write(Content.Fields("name").value & "�@�ˆ—�Š®—¹
" & vbCrLf) Content.MoveNext Loop End Sub %>