<% ' ' ' %> <% main() Sub main() Dim Query Dim Content Dim SystemCD SystemCD = Request("SystemCD") Query = "exec SPMシステム情報デフォルト更新 '" & SystemCD & "'" Set Content = OpenQuery(Query) %> 更新しました。 戻る <% End Sub %>