Objeto necessario Server

[Alberto Viana]

Pessoal

Estou com problemas para desenvolver site em ASP. Ultimamente troquei meu XP pelo Vista e desde então não consigo executar funções e comando em VBScript.

O comando é:

=================================================

<script type="text/vbscript">

function carrega_tipo()

Dim rs, conexao

set conexao= Server.createObject("ADODB.connection")

conexao.open "provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("dados\dados.mdb")&";"

sql="Select * from Tipo order by Tipo"

set rs=conexao.execute(sql)

while not rs.EOF

response.write ("<option value="&rs("ID")&">"&rs("Tipo")&"</option>")

rs.movenext

wend

rs.close

end function

</script>

=================================================

O problema é o seguinte, recebo erro na execução "Objeto necessario 'Server'", se tiro o Server das instruções:

Set conexao= Server.createObject("ADODB.connection")

conexao.open "provider=microsoft.jet.oledb.4.0; data source="&Server.MapPath("dados\dados.mdb")&";"

recebo Objeto necessario 'Response';

alguém pode me ajudar por favor??