Tutti gli articoli

<% Dim oRS Dim sql Set oRS = Server.CreateObject("ADODB.recordset") sql = "SELECT * FROM articoli ORDER BY titolo;" oRS.Open sql, "DSN=progetto" oRS.MoveFirst If oRS.EOF Then Response.Write "Interrogazione fallita" Else Do While not oRS.EOF Response.Write "" Response.Write oRS("titolo") Response.Write "
" Response.Write oRS("nome") Response.Write oRS("cognome") Response.Write "
" Response.Write oRS("url") Response.Write "
" Response.Write oRS("abstract") Response.Write "

" oRS.MoveNext Loop End If oRS.close Set oRS=Nothing %>



Site home [Informazioni] [Autori] [Articoli] [Registrati]

Administrator: susannap@libero.it Last update: