Ultime News

<% Dim str_cn1 str_cn1 = "" Set cn1 = Server.CreateObject("ADODB.Connection") Set rs1 = Server.CreateObject("ADODB.Recordset") str_cn1 = str_cn1 & "driver={Microsoft Access Driver (*.mdb)};" str_cn1 = str_cn1 & "dbq=" & Server.MapPath("/mdb-database/teadmin.mdb") Dim cn1, rs1 ' Variabili per la connessione e per il Recordset 'Creo un'istanza per la connessione ed una per il Recordset ' Apro la connessione al database cn1.Open str_cn1 ' Creo la query SQL Dim SQL1 SQL1 = "SELECT TOP 5 * FROM news ORDER BY data DESC" ' Apro il Recordset rs1.Open SQL1, cn1 'Verifico che la tabella contenga dati ' Se non ne contiene lancio un messaggio di avviso If rs1.EOF = True Then %>

Nessuna News

<% ' Se invece ne contiene visualizzo i dati in funzione ' della query SQL specificata Else %> <% While rs1.EOF = False %>

<%=rs1("data")%>

<%=rs1("testo2")%> ">link

<% rs1.MoveNext Wend End If ' Chiudo il Recordset rs1.Close Set rs1 = Nothing ' Chiudo la connessione cn1.Close Set cn1 = Nothing %> newsletter

newsletter