Dim 変数名

' Empty かどうかは IsEmpty 関数で調べる事ができます
if IsEmpty( 変数名 ) then
	' 変数に値がセットされていない ( 初期状態である )
end if

' Empty 値を変数にセットするには以下のように記述します
変数名 = Empty

<PRE>
<%
Dim aData

aData = Array(10,20,30)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf

Redim aData(20)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf

aData = Array(10,20,30)

Redim Preserve aData(20)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf
%>
</PRE>

Dim aData

aData = Array(10,20,30)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf

2
Integer

Redim aData(20)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf

20
Empty

aData = Array(10,20,30)

Redim Preserve aData(20)

Response.Write Ubound(aData) & vbCrLf
Response.Write TypeName(aData(1)) & vbCrLf

20
Integer