オブジェクトはvbscript/asp classicのスコープから外れています

Question

私は非常に具体的かつ複雑な方法でソートする必要があるデータベースから引き出している項目のリストを持っています。これに対処するために、レコードセット内のすべての情報を含むオブジェクトを作成し、配列で整理しました。これを必要な順序で印刷できます。問題は、すべてのオブジェクトを必要なものに設定した私の "do while rs.eof"の後で、配列自体がしなくても、ループが終了したときに範囲外になることです。私は、オブジェクトがループ内に設定されていることを確認して、動作しますが、Response.Write（）に到達するまでに終了します。配列の変更をコピーして貼り付けたelseステートメントが多かれ少なかれ、ループの始めは含めません。任意のヒント？

Else 
      ReDim Preserve f0(Ubound(f0)+1) 
      Set tab = new TabletHelper 
      Set f0(Ubound(f0)) = tab 
      item = rs("Item") 
      dest = rs("Destination") 
      time = rs("DateTime") 
      f0(Ubound(f0)).setItem(item) 
      f0(Ubound(f0)).setLocation(dest) 
      f0(Ubound(f0)).setDateTime(time) 
     End If 
     rs.movenext 
    loop 

    rs.Close 

    If Ubound(a045) > 0 then 
    for i = 1 to Ubound(a045) 
      Response.Write("<tr><td>"&a045(i).iNum()&"</td><td>"&a045(i).dest()&"</td><td>"&a045(i).dateT()&"</td></tr>") 
    next 

Answer 1

私は私の問題を理解しました。最初はサイズ0の配列を初期化していたので、コードの先頭にあるredimが実行されると、配列のサイズを1に変更し、配列の最初の要素と同じ要素を作成します。これは明らかに私にエラーを与え、代わりにサイズ1に配列を初期化することで修正しました。しかし、これを補うことを忘れて、redim文をif文の最後に移動し、forループの境界を変更することは忘れてしまいました。要するに、私はばかです。明るいところで、私はSOに正しく投稿する方法についてもっと学びました！