Aniversariantes do Mês

Prezados, Estou desenvolvendo um portal para a intranet da empresa onde trabalho, nessa intranet estou colocando uma página de aniversariantes do mês eu havia criado uma tabela com os dados dos funcionários manualmente e realizado a busca até ai tudo funcionou perfeitamente, porém a empresa é de porte multinacional e na área a qual trabalho existem 250 funcionários e está sempre alterando saindo gente e entrando gente nova então tive a seguinte ideia, buscar os dados direto do banco de dados do RH, criei uma tabela que esta com vínculos a tabela do RH, essa tabela possui usuário e senha para acesso e está em um servidor cujo o DSN se chama TO10. **Informações sobre o código:** Código que funciona com a tabela manual sem vínculos: *<%* *Option Explicit* *Session.LCID = 1046* *Dim ObjConn, ObjRs, SQL* *Set ObjConn = Server.CreateObject("**ADODB.Connection"**)* *Set ObjRs = Server.CreateObject("**ADODB.RecordSet**")* *ObjConn.Open "DBQ=" & Server.MapPath("FuncionariosLTQ.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"* *SQL = "SELECT NmFunc, Area, DtAniversario, Email FROM TbFuncionariosLTQ WHERE month(DtAniversario) = month(Date()) ORDER BY DtAniversario;"* *Set ObjRs = ObjConn.Execute(SQL)* *dim data* *%>* ``` ** ** ** ** *Aniversariantes do Mês* ** ** ** * * * * * * * * *

* *

* ** * * * * * * * * * * * * ``` *<% while not ObjRs.EOF* *data=""* *dim x,y,controle,t,data2* *data2=""* *data2 = ObjRs("DtAniversario")* *x=1* *y=1* *controle=0* *while controle < 2* *if mid(data2,x,1)="/" then* *controle=controle+1* *end if* *if controle < 2 then* * data = data & mid(data2,x,1)* *end if* *x=x+1* *wend* *%>* ``` * * * * * * * * * * * * ``` *<%ObjRs.MoveNext%>* *<%Wend%>* *<%* * ObjConn.Close* * Set ObjConn = Nothing* * Set ObjRs = Nothing* *%>* ``` *

Nome	Área	Dia	E-mail
<% Response.write ObjRs("NmFunc") %>	<% Response.write ObjRs("Area") %>	<% Response.write data%>	<% Response.write ObjRs("Email") %>

* *

* ** ** ``` **Código que estou tentando usar na tabela com vínculos.** *<%* *Option Explicit* *Session.LCID = 1046* *Dim ObjConn, ObjRs, SQL* *Set ObjConn = Server.CreateObject("**ADODB.Connection**")* *Set ObjRs = Server.CreateObject("**ADODB.RecordSet"**)* *ObjConn.Open "DBQ=" & Server.MapPath("FuncionariosLTQvinculada.mdb") & ";Driver={Microsoft Access Driver (*.mdb)}"* *SQL = "SELECT NmFunc, Aniversario, Email FROM **ACESITA_EMPREGADOS_ACE_SN WHERE and ACESITA_RH_EMPREGADOS_SN* *month(Aniversario) = month(Date()) ORDER BY Aniversario;"* *dim data* *%>* ``` ** ** ** ** *Aniversariantes do Mês* ** ** ** * * * * * * * * *

* *

* ** * * * * * * * * * * * * ``` *<% while not ObjRs.EOF* *data= ""* *dim x,y,controle,t,data2* *data2= ""* *data2 = ObjRs("Aniversario")* *x=1* *y=1* *controle=0* *while controle < 2* *if mid(data2,x,1)="/" then* *controle=controle+1* *end if* *if controle < 2 then* * data = data & mid(data2,x,1)* *end if* *x=x+1* *wend* *%>* ``` * * * * * * * * * * * * ``` *<%ObjRs.MoveNext%>* *<%Wend%>* *<%* * ObjConn.Close* * Set ObjConn = Nothing* * Set ObjRs = Nothing* *%>* ``` *

Nome	Área	Dia	E-mail
<% Response.write ObjRs("NmFunc") %>	<% Response.write ObjRs("Area") %>	<% Response.write data%>	<% Response.write ObjRs("Email") %>

* *

* ** ** ``` **Erro gerado:** Página abre normalmente, porem sem dados na tabela e exibe o seguinte erro: ADODB.Recordset error '800a0e78' Operation is not allowed when the object is closed. /DadosApl/AIT/cadernos/PC0009129/site_novo/aniversariantes/Aniversariantes.asp, line 43

matheusarruda

Problema ao ler dados de banco de dados com vinculo