<%
'####################################################
'Veritabanı bağlantısını tanımlayalım
'####################################################
VT_YOL = SERVER.MAPPATH("db/site.mdb")
	DSN = "DBQ=" & VT_YOL &   ";Driver={Microsoft Access Driver (*.mdb)}"
Set BAGLANTI = Server.CreateObject("ADODB.Connection")
BAGLANTI.Open DSN

'####################################################
'Veritabanındaki üyeler tablosundan id sini verdiğimiz üyenin herşeyini alalım
'####################################################

SQL = "SELECT * FROM site_uyeler where id="&uye_id&""
	set secim = server.Createobject("ADODB.Recordset")  
	secim.open SQL,BAGLANTI3,1,3
'####################################################
'Veritabanında daha önceden tanımlamış olduğumuz 
'true/false tipindeki cinsiyet alanını çağıralım
'####################################################

cinsiyet = secim("cinsiyet")

if cinsiyet = True then
'erkek adamın cinsiyeti True olur... :P
cinsiyet = "Erkek"
Else
cinsiyet = "Bağyan"
End if
Response.Write cinsiyet
%>