-!- db/uyelik.mdb adresinde bir veri tabanımız oldugunu ,
içinde uyeler adında bir tablo da UYE_ADI ve CINSIYET
adında 2 kayıt oldugunu kabul ediyorum.
uyelik sisteminizde cinsiyet bolumu kullanırken
bir select menu içirisin de bay ve bayan secenegi veriniz.
<%
Set BAGLANTI = Server.Createobject("ADODB.Connection")
BAGLANTI.Open ("DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("db/uyelik.mdb"))
<% Set KAYITLAR = Server.Createobject("ADODB.Recordset")
KAYIT.Open "SELECT * FROM UYELER ",BAGLANTI,1,3 %>
<%=KAYITLAR("UYE_ADI")%>
<%
cins = KAYITLAR("CINSIYET")
if cins = "bay" then
cins = "bey"
response.write cins
elseif cins = "bayan" then
cins = "hanım"
response.write cins
end if
%>
<%
KAYITLAR.Close
Set KAYITLAR = Nothing
BAGLANTI.Close
Set BAGLANTI = Nothing
%>