<!--#include file="connexion.asp"-->
<html>
<head>
<meta http-equiv="Content-Type" content="text/html; charset=windows-1252">
<title>Resultats gestion collections</title>
</head>
<body link="#993333" vlink="#336699" alink="#993333">
<p align="center"><font face="Verdana" color="#27612F"><b>Catalogue des périodiques en santé
publique disponibles en Bourgogne</b></font></p>
<p align="center"><font color="#27612F"> <font face="Verdana"><b><i>Atout
doc santé</i></b></font></font></p>
<p align="center"> </p>
<p align="center"> </p>
<p align="center">
<font color="#000080"><% Response.write session("nomstruct")&" "&session("password")%></font></p>
<p align="center"><b><font face="Verdana" color="#FFCC00" size="4">Gestion des collections</font></b></p>
<p align="left"><font face="Verdana"><b> </b></font></p>
<p align="left"> </p>
<%
Set conn = Server.CreateObject("ADODB.Connection")
conn.Open chaineconnexion1
SQL1="select * from TableCollection WHERE NomStructure like'%"&request("nomstruct")&"%'"
Set rs = Server.CreateObject("ADODB.RecordSet")
rs.Open SQL1, conn
if rs.eof = false then
%>
<table border="0" width="732" height="51" style="border-collapse: collapse" bordercolor="#111111" cellpadding="0" cellspacing="0">
<%
rs.MoveFirst
Do while Not rs.EOF %>
<tr>
<td align="center" height="20" bgcolor="#FFFFFF" style="border-style: solid; border-width: 1" width="304"><b><font face="Verdana" size="2">
Titre </font></b></td>
<td align="center" height="20" bgcolor="#FFFFFF" style="border-style: solid; border-width: 1" width="70"><b><font face="Verdana" size="2">
Année de début de collection </font></b></td>
<td align="center" height="20" bgcolor="#FFFFFF" style="border-style: solid; border-width: 1" width="71"><b><font face="Verdana" size="2">Volume </font></b></td>
<td align="center" height="20" bgcolor="#FFFFFF" style="border-style: solid; border-width: 1" width="53"><b><font face="Verdana" size="2">Numéro </font></b></td>
</tr>
<tr>
<td align="center" height="19" style="border-style: solid; border-width: 1" width="304"><%=rs("Titreperio")%> </td>
<td align="center" height="19" style="border-style: solid; border-width: 1" width="70"><%=rs("DebutCollec")%> </td>
<td align="center" height="19" style="border-style: solid; border-width: 1" width="71"><%=rs("Volume")%> </td>
<td align="center" height="19" style="border-style: solid; border-width: 1" width="53"><%=rs("Numero")%> </td>
</tr>
<%
rs.MoveNext
Loop
end if
rs.Close
Set rs=Nothing
conn.Close
Set conn=Nothing
%>
</table>
<p> </p>
<p> </p>
</body>
</html>
Partager