<script language="javascript" runat="server">

  // N.B.: le doppie barre indicano un commento,
 // allo stesso modo dell'apice in VBScript.
 // Il testo a destra delle doppie barre non sarà eseguito.


 // Creazione dell'oggetto ADO
  // Siccome utilizziamo funzioni JavaScript, la
 // sintassi richiede in più l'uso delle parentesi
 // rispetto al VBScript.
 conn=Server.CreateObject("ADODB.Connection")

 
 // Accesso al database "Miodatabase" via DSN
 conn.Open("Miodatabase")
  
 // Creazione dell'oggetto Recorset
 rs=Server.CreateObject("ADODB.Recordset")

 // Apertura della tabella "Miatabella" dentro il database
 // La query SQL estrarrà tutti i record
 rs.Open("SELECT * FROM Miatabella", conn)


  
 // Ciclo di lettura per ciascun record
 while (!rs.EOF)    // Equivale a WHILE NOT rs.EOF in VBScript
 {      // Il ciclo di while non si chiude con un "WEND"
    // ma richiede l'uso delle parentesi graffe per
    // delimitare il blocco di istruzioni del ciclo

  response.write(
    // Di seguito elenchiamo, riga per riga, i nomi dei
    // campi, seguiti dal relativo contenuto.
    // Per sommare le stringhe al posto della "&" usiamo
    // il "+" fino all'ultimo pezzo di stringa, dove poi
    // chiudiamo la parentesi per la funzione response.write
     
    "Campo1 vale: " +rs.Fields("Campo1").Value+"<br>"+
    "Campo2 vale: " +rs.Fields("Campo2").Value+"<br>"+
    "<br>------ record successivo -------<br><br>"
  )

  // Salto al prossimo record
  rs.MoveNext()
 }
  

 // Il database è stato letto.
 // Concludiamo con la chiusura degli oggetti server utilizzati
 rs.Close()
 conn.Close()

</script>