Dbye Kayıt kodları

<%
If request.ServerVariables("REQUEST_METHOD")="POST" Then

username = request.Form("username")
password = request.Form("password")
isim = request.Form("isim")
soyisim = request.Form("soyisim")
adres = request.Form("adres")
gun = request.Form("gun")
ay = request.Form("ay")
yil = request.Form("yil")
dyer = request.Form("dyer")
cinsiyet = request.Form("cinsiyet")
mail = request.Form("mail")
evtel = request.Form("evtel")
ceptel = request.Form("ceptel")

set rsusers = server.CreateObject("Adodb.Recordset")
rsusers.open "select * from users",baglan,1,3
rsusers.Addnew
rsusers("username") = username
rsusers("password") = password
rsusers("isim") = isim
rsusers("soyisim") = soyisim
rsusers("adres") = adres
rsusers("gun") = gun
rsusers("ay") = ay
rsusers("yil") = yil
rsusers("dyer") = dyer
rsusers("cinsiyet") = cinsiyet
rsusers("mail") = mail
rsusers("evtel") = evtel
rsusers("ceptel") = ceptel
rsusers.update
rsusers.close
baglan.close
Response.Redirect "registerok.asp"

End If

%>

Buyrun hocam kayıt kodlarıda bunlar.