[Resolvido] Problema com SUB

Oi pessoal

Bom, estou desenvolvendo um sisteminha aqui na empresa, utilizando pela primeira vez sub's, functions e procedures.

Sempre prefiri incluir paginas ASP separando pelas pastas para organizar melhor.

Agora quero utilizar sub

mas me ocorre um erro, que simplismente eu não consigo entender o por que

eu tenho uma pagina onde alimentarei com dados do banco uma select.

criei a seguinte sub para executar isto

<%
sub alimenta_usuario()
Dim usuario_id, sql_mostrar, rs_mostrar

usuario_id = Session("Usuario_id")
rs_mostrar = Server.CreateObject("ADODB.Recordset")
sql_mostrar = "Execute SP_mostar_perfil_profissional @Usuario_id='"&usuario_id&"'"
set rs_mostrar = conexao.execute(sql_mostrar)
end sub
%>

até ai tudo certo função deveria rodar beleza.

quando eu chamo a função na página que eu alimentarei a select

também ocorre direitinho sem nenhum erro.

<%call alimenta_usuario()%>Agora chamando a sub na pagina, vou querer utilizar o recordset para deixar pré-definido a select de acordo com a ultima alteração no BD 

 

 

 <select name="slcUnidadeEmpresa">
 <option selected="selected"><%=rs_mostrar("sigbe_empresa_unidade")%></option>
 </select>

ele me gerá o seguinte erro:

>
Erro de tempo de execução do Microsoft VBScript (0x800A000D)

Tipos incompatíveis: 'rs_mostrar'

Agora vem o mais "Hilário", quando eu pego a instrução asp colo em uma página e dou um include file

funciona que é uma beeeelezaa

Juro que nao entendi simplismente nada,

e não achei nada parecido na internet

Por favor preciso muuuito de ajuda

Meu emprego dpende disto ("Dramático?Magina!!")

Brigadão