baslamatarih = request("baslamatarih" )
bitistarih = request("bitistarih" )
nerede = request("nerede" )
kim = request("kim" )

Set Rs=Server.CreateObject("Adodb.Recordset")
Rs.Open "SELECT * from db where kim like '"&kim&"'", Baglanti, 1, 3
if Rs.eof then
Rs("nerede")=nerede
Rs("bitistarih")=bitistarih
if not baslamatarih="" Then
Rs("baslamatarih")=baslamatarih
End if
rs.Update
rs.close
Set rs=nothing