<% Response.Buffer = True %> <% call esasUst() if Session("UserLoggedIn")<>"true" then %> Giriş yapmanız gerekmektedir. <% else %> <% set conn = Server.CreateObject("ADODB.Connection") conn.open Sur conn.Execute("UPDATE idare set defter=yes where id=1") conn.Close set conn = nothing response.write "

Ziyaretçi defteri Kullanıma Açılmıştır.

" %> <%End if%> <% call esasAlt() %>