|
||||||||||||||||||||||||||||||||||||||||||||||
|
||||||||||||||||||||||||||||||||||||||||||||||
|
Biblioteca
<% conn = Server.CreateObject("ADODB.Connection"); conn.Open("dsn=Esdrm;uid=SiteEsdrm;pwd=SiteEsdrm"); strSql = "SELECT TabUtilizadores.nomeUser, TabUtilizadores.UsernameMail AS eMail, RTRIM(Cargo.Descricao) AS Cargo, RTRIM(Servico.Descricao) AS Servico, Categoria.Categoria FROM Servico INNER JOIN ServicoCargo ON Servico.idServico = ServicoCargo.idServico INNER JOIN TabUtilizadores ON ServicoCargo.numero = TabUtilizadores.numero INNER JOIN Cargo ON ServicoCargo.idCargo = Cargo.idCargo INNER JOIN Categoria ON TabUtilizadores.id_Categoria = Categoria.id_Categoria WHERE (Cargo.idCargo = 9 Or Cargo.idCargo = 10) AND (Servico.idServico = 29)"; rstTeste = conn.Execute(strSql); varCargo = rstTeste.Fields.Item("Cargo").Value; varServico = rstTeste.Fields.Item("Servico").Value; varCategoria = rstTeste.Fields.Item("Categoria").Value; varNome = rstTeste.Fields.Item("nomeUser").Value; varEmail = rstTeste.Fields.Item("eMail").Value; conn.Close(); %> <%= varCargo %>
<%= varCategoria %> <%= varNome %> (
)<% conn = Server.CreateObject("ADODB.Connection"); conn.Open("dsn=Esdrm;uid=SiteEsdrm;pwd=SiteEsdrm"); strSql = "SELECT TabUtilizadores.nomeUser, TabUtilizadores.UsernameMail AS eMail, RTRIM(Cargo.Descricao) AS Cargo, RTRIM(Servico.Descricao) AS Servico, Categoria.Categoria FROM Servico INNER JOIN ServicoCargo ON Servico.idServico = ServicoCargo.idServico INNER JOIN TabUtilizadores ON ServicoCargo.numero = TabUtilizadores.numero INNER JOIN Cargo ON ServicoCargo.idCargo = Cargo.idCargo INNER JOIN Categoria ON TabUtilizadores.id_Categoria = Categoria.id_Categoria WHERE (Cargo.idCargo = 15) AND (Servico.idServico = 29)"; rstTeste = conn.Execute(strSql); varCargo = rstTeste.Fields.Item("Cargo").Value; varServico = rstTeste.Fields.Item("Servico").Value; varCategoria = rstTeste.Fields.Item("Categoria").Value; varNome = rstTeste.Fields.Item("nomeUser").Value; varEmail = rstTeste.Fields.Item("eMail").Value; %> <% var index = 0; varTamanho =rstTeste.RecordCount; while (!rstTeste.EOF) { varCargo = rstTeste.Fields.Item("Cargo").Value; varServico = rstTeste.Fields.Item("Servico").Value; varCategoria = rstTeste.Fields.Item("Categoria").Value; varNome = rstTeste.Fields.Item("nomeUser").Value; varEmail = rstTeste.Fields.Item("eMail").Value; if (index == 0) { %> <%= varCargo %>
<%}%>
<%= varCategoria %> <%= varNome %> (
)<% index++; rstTeste.MoveNext(); } rstTeste.Close(); %> <% conn = Server.CreateObject("ADODB.Connection"); conn.Open("dsn=Esdrm;uid=SiteEsdrm;pwd=SiteEsdrm"); strSql = "SELECT TabUtilizadores.nomeUser, TabUtilizadores.UsernameMail AS eMail, RTRIM(Cargo.Descricao) AS Cargo, RTRIM(Servico.Descricao) AS Servico, Categoria.Categoria FROM Servico INNER JOIN ServicoCargo ON Servico.idServico = ServicoCargo.idServico INNER JOIN TabUtilizadores ON ServicoCargo.numero = TabUtilizadores.numero INNER JOIN Cargo ON ServicoCargo.idCargo = Cargo.idCargo INNER JOIN Categoria ON TabUtilizadores.id_Categoria = Categoria.id_Categoria WHERE (Cargo.idCargo = 3 Or Cargo.idCargo = 6) AND (Servico.idServico = 29)"; rstTeste = conn.Execute(strSql); varCargo = rstTeste.Fields.Item("Cargo").Value; varServico = rstTeste.Fields.Item("Servico").Value; varCategoria = rstTeste.Fields.Item("Categoria").Value; varNome = rstTeste.Fields.Item("nomeUser").Value; varEmail = rstTeste.Fields.Item("eMail").Value; conn.Close(); %> <%= varCargo %>
<%= varCategoria %> <%= varNome %> (
)
* Quinzenalmente
Regulamento Interno da Unidade Biblioteca do Instituto Politécnico de Santarém e das Bibliotecas integradas
Qualquer dúvida relativamente à Biblioteca deverá pessoalmente ou pelo telefone nº 243 999283. |
|||||||||||||||||||||||||||||||||||||||||||||
|
|
||||||||||||||||||||||||||||||||||||||||||||||
|
Contactos |Como Chegar |Informações Turísticas|Mapa do site|Links uteis|Sugestões|Área Interna|Escola Superior de Desporto de Rio Maior©2008
|
||||||||||||||||||||||||||||||||||||||||||||||