<% EskiTarih = Year(Date) & "-" & Month(Date) & "-" & Day(Date) & " " & Replace(Replace(TimeValue(DateAdd("n",-5,CDate(Tarih)))," PM","")," AM","") Set Cik = Bag.Execute("UPDATE tblUyeler SET fldSonGiris='" & EskiTarih & "' WHERE fldID=" & B64Decode(Request.Cookies("Seyyah")("UserID") & Session("UserID")) & " AND fldAdiSoyadi='" & B64Decode(Request.Cookies("Seyyah")("KAdi") & Session("KAdi")) & "' AND fldKullaniciAdi='" & B64Decode(Request.Cookies("Seyyah")("User") & Session("User")) & "'") Response.Cookies("Seyyah").Expires = DateAdd("m",-1,Now()) Session.Abandon Response.Write "" %>