or download this
Option Explicit
Dim objConnection, objRecordset, strSQL, Name
...
Set objRecordset = Server.CreateObject("ADODB.Recordset")
strSQL = "SELECT Name0, MachineID FROM System_DATA WHERE MachineID >=
+ 0 ORDER BY Name0"
objRecordset.Open strSQL, objConnection