Gestione Links
by www.contidavide.it
Ritorna alla pagina principale
  <% dim SQL, SQL2, rec SQL = "SELECT * FROM links ORDER BY link_id DESC" Set rec = Server.CreateObject("ADODB.Recordset") Set rec = Conn.Execute(SQL) If Not rec.EOF Then Do While Not rec.EOF response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" rec.Movenext Loop Else response.write "" response.write "" response.write "" End If %>
      Aggiungi nuovo links
       
C M Titolo Percorso Hit
" response.write "" response.write "" response.write "" response.write "" response.write "" response.write "" response.write rec("titolo") response.write "" response.write "" response.write rec("collegamento") response.write "" response.write rec("click") response.write "
" Response.Write "Non ci sono link" response.write "
   
Aggiungi un nuovo links
<% SQL2 = "SELECT COUNT(*) AS RECORD_COUNT FROM links" Set rec = conn.Execute(SQL2) %>
<%= "Links totali: " &rec("RECORD_COUNT") & "" %>
<% Set rec = Nothing Conn.Close Set Conn = Nothing %>