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