Exemple d'accès aux données dans l'environnement Windows.

Exemple en utilisant ADO :

dim myconnection, 

myrecordset, name
set myconnection = 

server.createobject 

("ADODB.Connection")
set myrecordset = 

server.createobject 

("ADODB.Recordset")
 
myconnection.open 

mydatasource
myrecordset.open "Phonebook", 

myconnection 
myrecordset.find "PhoneNumber = 

'555-5555'"
name = myrecordset.fields. 

item("Name")
myrecordset.close
 
set myrecordset = nothing
set myconnection = nothing

Le même exemple en utilisant du SQL :

dim myconnection, myrecordset, 

name
set myconnection = server. 

createobject 

("ADODB.connection")
myconnection.open 

mydatasource
set myrecordset = 

myconnection.execute 

("SELECT Name FROM 

Phonebook 

WHERE PhoneNumber = 

'555-5555'")
name = myrecordset(0).

BY TAATJENE