<meta http-equiv="Content-Type" content="text/html; charset=UTF-8">
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-9">
<%
Response.ContentType = "text/html" 
Response.Charset = "UTF-8" 
Response.Codepage = 65001

Function KarakterTemizle(Veri)
KarakterTemizle = Replace(Veri, "<", "&lt;")
KarakterTemizle = Replace(Veri, ">", "&gt;")
KarakterTemizle = Replace(Veri, "'", "")
KarakterTemizle = Replace(Veri, "%", "")
Veri = KarakterTemizle
End Function

isteksayfa = KarakterTemizle(request.QueryString("page"))

if isteksayfa="signup" then

	if not (request.Form("name")="" or request.Form("user")="" or request.Form("pass")="") then
	
usercode=(Day(date)&Month(date)&Year(date)&Hour(Now)&Minute(Now)&Second(Now))

Set baglanti = server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

Set giris = Server.CreateObject("ADODB.Recordset")
    sqlm = "SELECT * from users where mail='"&trim(KarakterTemizle(request.Form("user")))&"'"
    giris.open sqlm, baglanti, 1, 3
	
	if giris.eof then
	
	kaydet=1
	
	else
	
	session("signup")="error"
	response.redirect("/kaydol/")
	response.end

	end if
	
	giris.close
Set giris=nothing
	
if kaydet=1 then
Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from users"
    kaydet.open sql, baglanti, 1, 3
    kaydet.addnew
	
	kaydet("code") = usercode
	kaydet("date") = now()
	kaydet("name") = request.Form("name")
	kaydet("mail") = request.Form("user")
	kaydet("pass") = request.Form("pass")
	
	kaydet.update
    kaydet.close
set kaydet=nothing
end if

baglanti.close
Set baglanti = nothing

session("signup")="ok"
response.redirect ("/")

	else
	
session("signup")="error"
response.redirect ("/kaydol/")	

	end if

elseif isteksayfa="login" then

kullanici=trim(KarakterTemizle(request.Form("user")))
parola=trim(KarakterTemizle(request.Form("pass")))

	if not (kullanici="" or parola="") then

Set baglanti = server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set giris = Server.CreateObject("ADODB.Recordset")
    sqlm = "SELECT * from users where (mail='"&kullanici&"' and pass='"&parola&"')"
    giris.open sqlm, baglanti, 1, 3
	
	if giris.eof or giris.bof then
	
	session("login")="error"
	response.redirect("/")
	
	else
	
	Response.Cookies("defter")("user") = giris("mail")
	Response.Cookies("defter")("code") = giris("code")
	Response.Cookies("defter").Expires = Date() + 365
	session("name")=giris("name")
	session("code")=giris("code")
	session("login")=""
	session("signup")=""
	response.Redirect("/")
	
	end if

    giris.close
	set giris=nothing

baglanti.close
Set baglanti = nothing

	else

	session("login")="error"
	response.Redirect("/")
	
	end if
	
elseif isteksayfa="pattern" then

if Request.Cookies("defter")("user")<>"" then
dim u,b,v
set u=Request.ServerVariables("HTTP_USER_AGENT")
set b=new RegExp
set v=new RegExp
b.Pattern="(android|bb\d+|meego).+mobile|avantgo|bada\/|blackberry|blazer|compal|elaine|fennec|hiptop|iemobile|ip(hone|od)|iris|kindle|lge |maemo|midp|mmp|netfront|opera m(ob|in)i|palm( os)?|phone|p(ixi|re)\/|plucker|pocket|psp|series(4|6)0|symbian|treo|up\.(browser|link)|vodafone|wap|windows (ce|phone)|xda|xiino"
v.Pattern="1207|6310|6590|3gso|4thp|50[1-6]i|770s|802s|a wa|abac|ac(er|oo|s\-)|ai(ko|rn)|al(av|ca|co)|amoi|an(ex|ny|yw)|aptu|ar(ch|go)|as(te|us)|attw|au(di|\-m|r |s )|avan|be(ck|ll|nq)|bi(lb|rd)|bl(ac|az)|br(e|v)w|bumb|bw\-(n|u)|c55\/|capi|ccwa|cdm\-|cell|chtm|cldc|cmd\-|co(mp|nd)|craw|da(it|ll|ng)|dbte|dc\-s|devi|dica|dmob|do(c|p)o|ds(12|\-d)|el(49|ai)|em(l2|ul)|er(ic|k0)|esl8|ez([4-7]0|os|wa|ze)|fetc|fly(\-|_)|g1 u|g560|gene|gf\-5|g\-mo|go(\.w|od)|gr(ad|un)|haie|hcit|hd\-(m|p|t)|hei\-|hi(pt|ta)|hp( i|ip)|hs\-c|ht(c(\-| |_|a|g|p|s|t)|tp)|hu(aw|tc)|i\-(20|go|ma)|i230|iac( |\-|\/)|ibro|idea|ig01|ikom|im1k|inno|ipaq|iris|ja(t|v)a|jbro|jemu|jigs|kddi|keji|kgt( |\/)|klon|kpt |kwc\-|kyo(c|k)|le(no|xi)|lg( g|\/(k|l|u)|50|54|\-[a-w])|libw|lynx|m1\-w|m3ga|m50\/|ma(te|ui|xo)|mc(01|21|ca)|m\-cr|me(rc|ri)|mi(o8|oa|ts)|mmef|mo(01|02|bi|de|do|t(\-| |o|v)|zz)|mt(50|p1|v )|mwbp|mywa|n10[0-2]|n20[2-3]|n30(0|2)|n50(0|2|5)|n7(0(0|1)|10)|ne((c|m)\-|on|tf|wf|wg|wt)|nok(6|i)|nzph|o2im|op(ti|wv)|oran|owg1|p800|pan(a|d|t)|pdxg|pg(13|\-([1-8]|c))|phil|pire|pl(ay|uc)|pn\-2|po(ck|rt|se)|prox|psio|pt\-g|qa\-a|qc(07|12|21|32|60|\-[2-7]|i\-)|qtek|r380|r600|raks|rim9|ro(ve|zo)|s55\/|sa(ge|ma|mm|ms|ny|va)|sc(01|h\-|oo|p\-)|sdk\/|se(c(\-|0|1)|47|mc|nd|ri)|sgh\-|shar|sie(\-|m)|sk\-0|sl(45|id)|sm(al|ar|b3|it|t5)|so(ft|ny)|sp(01|h\-|v\-|v )|sy(01|mb)|t2(18|50)|t6(00|10|18)|ta(gt|lk)|tcl\-|tdg\-|tel(i|m)|tim\-|t\-mo|to(pl|sh)|ts(70|m\-|m3|m5)|tx\-9|up(\.b|g1|si)|utst|v400|v750|veri|vi(rg|te)|vk(40|5[0-3]|\-v)|vm40|voda|vulc|vx(52|53|60|61|70|80|81|83|85|98)|w3c(\-| )|webc|whit|wi(g |nc|nw)|wmlb|wonu|x700|yas\-|your|zeto|zte\-"
b.IgnoreCase=true
v.IgnoreCase=true
b.Global=true
v.Global=true
if b.test(u) or v.test(Left(u,4)) then

Set baglanti = server.CreateObject("adodb.connection")
baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	kullanicidesen=Request.Cookies("defter")("user")
	Set giris = Server.CreateObject("ADODB.Recordset")
    sqlm = "SELECT * from users where (mail='"&kullanicidesen&"')"
    giris.open sqlm, baglanti, 1, 3
	
	if giris.eof or giris.bof then
	session("hata")=0
	session("hata")=session("hata")+1
	response.redirect("/pattern/")
	
	else
	
	Response.Cookies("defter")("user") = giris("mail")
	Response.Cookies("defter")("code") = giris("code")
	Response.Cookies("defter").Expires = Date() + 365
	session("name")=giris("name")
	session("code")=giris("code")
	session("login")=""
	session("signup")=""
	response.Redirect("/")
	
	end if

    giris.close
	set giris=nothing

baglanti.close
Set baglanti = nothing

end if
end if
	
elseif isteksayfa="settings" then

	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from users where code='"&session("code")&"'"
    kaydet.open sql, baglanti, 3,2
    kaydet.update "name",request.Form("name")
	kaydet.update "mail",request.Form("mail")
	kaydet.update "pass",request.Form("pass")
    kaydet.close
	set kaydet=nothing

	baglanti.close
	Set baglanti = nothing

elseif isteksayfa="write" then
	
	if session("code")<>"" then
	
	if request("module")="category" then
	
	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from category"
    kaydet.open sql, baglanti, 1, 3
    kaydet.addnew
	
	kaydet("code") = session("code")
	kaydet("date") = now()
	kaydet("name") = request.Form("name")
	
	kaydet.update
    kaydet.close
	set kaydet=nothing

	baglanti.close
	Set baglanti = nothing
	session("writecategory")="ok"
	response.Redirect("/yaz/")
	
	elseif request("module")="note" then
	
	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from notes"
    kaydet.open sql, baglanti, 1, 3
    kaydet.addnew
	
	kaydet("code") = session("code")
	kaydet("date") = now()
	kaydet("name") = request.Form("name")
	kaydet("note") = request.Form("note")
	kaydet("cat") = request.Form("cat")
	
	kaydet.update
    kaydet.close
	set kaydet=nothing

	baglanti.close
	Set baglanti = nothing
	
	else
	
	response.Redirect("/yaz/")
	
	end if
	
	end if

elseif isteksayfa="star" then
	
	if session("code")<>"" then

	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from notes where (code='"&session("code")&"' and id="&KarakterTemizle(request.QueryString("note"))&")"
    kaydet.open sql, baglanti, 3,2
    kaydet.update "high",request.querystring("high")
    kaydet.close
	set kaydet=nothing

	baglanti.close
	Set baglanti = nothing
	response.Redirect("/detay/"&KarakterTemizle(request.QueryString("note"))&".html")

	end if

elseif isteksayfa="edit" then
	
	if session("code")<>"" then

	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "SELECT * from notes where (code='"&session("code")&"' and id="&KarakterTemizle(request.QueryString("note"))&")"
    kaydet.open sql, baglanti, 3,2
    kaydet.update "name",request.form("name")
    kaydet.update "note",request.form("note")
    kaydet.update "cat",request.form("cat")
    kaydet.close
	set kaydet=nothing

	baglanti.close
	Set baglanti = nothing
	response.Redirect("/detay/"&KarakterTemizle(request.QueryString("note"))&".html")

	end if

elseif isteksayfa="delete" then
	
	if session("code")<>"" then

	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "Delete * from notes where (code='"&session("code")&"' and id="&KarakterTemizle(request.QueryString("id"))&")"
    kaydet.open sql, baglanti, 3,2

	baglanti.close
	Set baglanti = nothing
	response.Redirect("/")
	
	end if

elseif isteksayfa="delete_cat" then
	
	if session("code")<>"" then

	Set baglanti = server.CreateObject("adodb.connection")
	baglanti.open "Provider=Microsoft.Jet.oledb.4.0;Data Source=" & server.Mappath("kb45t49fehrgi5.mdb")

	Set kaydet = Server.CreateObject("ADODB.Recordset")
    sql = "Delete * from category where (code='"&session("code")&"' and id="&KarakterTemizle(request.QueryString("id"))&")"
    kaydet.open sql, baglanti, 3,2

	baglanti.close
	Set baglanti = nothing
	response.Redirect("/")
	
	end if
	
elseif isteksayfa="logout" then

	session.Abandon()
	response.Redirect("/")
	
elseif isteksayfa="userdel" then

	session("name")=""
	session("code")=""
	session("signup")=""
	session("login")="del"
	response.Redirect("/")

else

response.Redirect("/")

end if
%>
