Veritabanımızda "AnketSorular" isminde bir tablo ve tabloda "Soru" isminde bir alanımız olduğunu varsayarsak,
Initial Catalog=Veritabanının adı
User Id=Kullanıcı adı
Password=Şifre
Kod:<%
Dim strSoru, Conn, Rs, strSQL
Soru="Kayıt bulunamadı"
Set Conn=Server.CreateObject("ADODB.Connection")
Conn.Open "Provider=sqlOleDB;Data Source=(local); Initial Catalog=testDB; User Id=test; Password=deneme"
Set Rs=Server.CreateObject("ADODB.Recordset")
strSQL ="Select Soru From AnketSorular"
Rs.Open strSQL, Conn, 1, 3
If Not Rs.BOF Or Not Rs.EOF Then
strSoru=Rs("Soru")
End If
Rs.Close
Conn.Close
Set Rs=Nothing
Set Conn=Nothing
Response.Write(strSoru)
%>