Select numa sub rotina

[Creedence 1]

Boa tarde!

Uma duvida: Eu precisaria utilizar o mesmo select em algumas paginas do site.

Se eu crio uma sub rotina com esse select eu consigo utilizar o recordset nessas paginas via include chamando a sub rotina ? Ex:

 

' paginas do select

fnconsulta.asp

<%
sub teste(codigoeve)
   conecta ao banco
   sql = "select id, nome, empresa from tabela where evento = "&codigoeve&" "
   set rs=con.execute(sql)
end sub
%>

 

' pagina de visualizacao dos dados

paginaum.asp

<!--#include file="fnconsulta.asp"-->
<%
call teste(15)
response.write rs("nome") & "<br>"
response.write rs("empresa") & "<br>"
%>

paginadois.asp
<!--#include file="fnconsulta.asp"-->
<%
call teste(21)
response.write rs("nome") & "<br>"
response.write rs("empresa") & "<br>"
%>

 

Não sei se ficou claro.

 

Obrigado,

 

Marcos

[xanburzum 169]

Qual seria realmente sua dúvida ?

[@fabiosantosrj 0]

faça assim:

 

function teste(codigoeve)
dim sql, rs
sql = "select id, nome, empresa from tabela where evento = "&codigoeve&" "
   set rs=con.execute(sql)
set teste = rs
end function

 

e ai para chamar em outro arquivo faça:

 

set rs1 = teste(12)
response.write rs1("nome")

[Creedence 1]

A minha necessidade real, seria o seguinte: Temos várias camaras tecnicas na empresa e cada uma delas tem uma pagina especifica. Mas os contatos de todas estao na mesma tabela, bem como o cadastro de agendas, etc ...

Eu vou ter que utilizar o mesmo select por exemplo nas paginas dos contatos das camaras, filtrando pelo ID da camara tecnica.

O sql que utilizo seria tipo:

 

<%
        sqlcontato = "SELECT TOP 2 id_dircomis,dir_nome,dir_cargo,dir_empresa,dir_email "
        sqlcontato = sqlcontato & "FROM tb_dircomissoes WHERE codcam = "& codcamara &" AND dir_dtcancela is null "
        sqlcontato = sqlcontato & "ORDER BY dir_ordem"
        set rs=con.execute(sqlcontato)

        dim dirnome(1)
        dim dircargo(1)
        dim dirempresa(1)
        dim diremail(1)

        for i=0 to 1
            dirnome(i)    = rs("dir_nome")
            dircargo(i)   = rs("dir_cargo")
            dirempresa(i) = rs("dir_empresa")
            diremail(i)   = rs("dir_email")
     rs.movenext
        next

%>
<table>
<tr>
  <td><%=dirnome(0)%></td>
</tr>
<tr>
  <td><%=dircargo(0)%></td>
</tr>
<tr>
  <td><%=dirnome(1)%></td>
</tr>
<tr>
  <td><%=dircargo(1)%></td>
</tr> ...
</table>

 

Ou seja, eu queria criar uma subrotina com o select / for, nas paginas das comissões chamar essa subrotina passando o id da camara e utilizar o resultado do recordset dentro da tag <table>.

 

Obrigado,