<% If IsObject(Session("bessriviste_conn")) Then Set conn = Session("bessriviste_conn") Else Set conn = Server.CreateObject("ADODB.Connection") conn.open "bessriviste","webbess","webbess" Set Session("bessriviste_conn") = conn End If %> <% sql = "SELECT DISTINCT Catalogo.Rivista, Catalogo.IDRivista, Catalogo.Editore, Biblioteche.NomeEsteso, Biblioteche.LinkSito, Possessori.Dal, Possessori.Al, Possessori.Lacune, Possessori.Nota FROM Catalogo INNER JOIN Possessori ON Catalogo.IDRivista = Possessori.IDRivista INNER JOIN Biblioteche ON Possessori.IDBiblioteca = Biblioteche.IDBiblioteca WHERE (Catalogo.Rivista LIKE '" & Request.Querystring("titolo") & "%') ORDER BY Catalogo.Rivista, Biblioteche.NomeEsteso" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 On Error Resume Next rs.MoveFirst idr = 0 do while Not rs.eof IF idr <> rs.Fields("IDRivista") THEN%>

<%Response.Write(rs.Fields("Rivista"))%> - <%Response.Write(rs.Fields("Editore"))%>