<%
Session.LCID = 1055
if request.querystring("do")="yaziguncelle" then
ID=request.querystring("PostID")
if (not isnumeric(ID)) or Len(ID)<1 or ID="" or ID=0 then
Response.Redirect "Yazilar.asp"
Response.End
End if
teslim_tarihi_1 = Connect(request.form("teslim_tarihi_1"))


if sayac_turu="" then
Set YaziUpdate = Conn.Execute("Update dbo_sayac_teslim set teslim_tarihi_1='"&teslim_tarihi_1&"' where Kimlik="&ID&"")
Response.Redirect "Yazilar.asp"
Response.End
else
Set YaziUpdate = Conn.Execute("Update dbo_sayac_teslim set teslim_tarihi_1='"&teslim_tarihi_1&"' where Kimlik="&ID&"")
Response.Redirect "Yazilar.asp"
Response.End
end if
end if