<% Dim idSezione, idSezioneOriginale, NomeSezioneOriginale, NomeSezione, DescrizioneSezione, SottoSezione, SezioneCorrente, Molliche, Fine, NomeSottoSezione, idSottoSezione, NomePagina, NomePaginaOriginale, IdPaginaOriginale, IdPagina Dim oCn, oRs, rSQL Dim oCnx, oRsx, rSQLx idSezione=10 idSezioneOriginale=10 '======= Ottieni informazioni sulla pagina ========= Set oCn = DBConnexion(DB_MAIN) rSQL = "SELECT * FROM articles WHERE arCategory=" & idSezione & " AND arValid=yes" Set oRs = DBRecordSet(oCn, rSQL) If Not oRs.EOF Then NomePaginaOriginale=oRs("arTitle") IdPagina=oRs("arID") IdPaginaOriginale=oRs("arID") Else Response.Write "PAGINA INESISTENTE o NON ATTIVA" Response.End() End If oRs.Close Set oRs = Nothing oCn.close Set oCn = Nothing '============================================ 'Response.Write "Ciao" %> <% DisplayArticlesGalleria() %> <% %>