%Option Explicit%> <% Dim strCmd Dim oUtil Dim oInquiryData Set oUtil = new Utility 'お問い合わせデータセット Set oInquiryData = new InquiryData oInquiryData.Create strCmd = Request.QueryString("cmd") If strCmd = "back" Then 'エラーで戻ってきたとき oInquiryData.ImportSession("InquiryData") End If %>