veri tabanı bağlantısını yaptıktan sonra;

<%
Set listele = ODBC.Execute("Select id,adi,soyadi from randevu order by id desc")
If listele.EOF then
response.write "Listelenecek randevu bulunamadı"
Else
While not listele.eof
response.write ""&listele("id")&". "&listele("adsoyad")&" "&listele("telefon")&" "&listele("adres")&" "&listele("mail")&" "&listele("tarihsaat")&"<br />"
listele.movenext : wend
End If
listele.close
%>