ADOの挑戦中です。
以下のスクリプトで
if hoge = 1 then
のところで「型が一致しません。 」というエラーが出てしまいます。
hogeカラムはNUMBER型で1桁です。

if hoge = "1" then
とすると正常の動作をします。
なぜNUMBER型の値を文字列として取得してしまうのでしょうか？

<%
dim ss
set ss = server.createobject("ADODB.Connection")
ss.open("dsn=hoge; pwd=hoge")
dim rs
dim hoge
set rs = ss.Execute("select hoge from hoge_table")
do until rs.eof
hoge = rs.fields(0).value
rs.movenext
loop
rs.close
set rs = nothing

if hoge = 1 then
response.write "わーい"
else
response.write "だめじゃん"
end if

%>