<META http-equiv=Content-Type content=text/html; charset=ISO-8859-9>
<META http-equiv=content-type content=text/html;charset=windows-1254>
<META http-equiv=content-type content=text/html;charset=x-mac-turkish>
<!-- #include file="veriables.asp" -->
<%
IF Session("girdinmilan") = "evetgirdim" Then

if request.QueryString("member")<>"" then
menu="0"
else
menu="3"
end if

if request.QueryString("page")="save" then

zaman = now()
mail = session("mail")
kisi = session("id")
alinan = request.querystring("id")
ip = request.servervariables("remote_host")

Set db = Server.CreateObject("adodb.connection" ) 
db.Open("driver={microsoft access driver (*.mdb)}; dbq=" & Server.MapPath("database.mdb" )) 

Set rs=Server.CreateObject("adodb.recordset") 
Rs.Open "uyeler where id="&alinan ,db,1,3 
alinanadi=Rs("isim")
Rs.Close 
Set Rs=Nothing

veri = SERVER.MAPPATH("database.mdb")
Baglan = "DBQ=" & veri &   ";Driver={Microsoft Access Driver (*.mdb)}"
set baglanti = server.createobject("adodb.connection")
baglanti.open baglan

set hops = server.createobject("adodb.recordset")
sqpl = "select * from bildirimler"
hops.open sqpl, baglanti, 1, 3
hops.addnew
hops("tarih") = zaman
hops("uyeid") = alinan
hops("mesaj") = "<a href=""about.asp?member="&Session("id")&""">"&Session("kullanici")&"</a> sizi örnek alıyor"
hops("okundu") = "hayir"
hops.update
hops.close

set rs = server.createobject("adodb.recordset")
sql = "select * from ornekal"
rs.open sql, baglanti, 1, 3

rs.addnew
rs("tarih") = zaman
rs("mail") = mail
rs("kisi") = kisi
rs("alinan") = alinan
rs("alinanadi") = alinanadi
rs("onay") = "1"
rs.update
rs.close
if cint(alinan)=cint(session("id")) then
response.Redirect("about.asp")
else
response.Redirect("about.asp?member="&request.QueryString("id"))
end if
response.end

elseif request.QueryString("page")="delete" then

veri = SERVER.MAPPATH("database.mdb")
Baglan = "DBQ=" & veri &   ";Driver={Microsoft Access Driver (*.mdb)}"
set baglanti = server.createobject("adodb.connection")
baglanti.open baglan

id=Cint(Request.QueryString("id"))
Set yazsil=Server.CreateObject("Adodb.Recordset")
yso="Delete * From ornekal where alinan='"&id&"' and kisi='"&session("id")&"'"
yazsil.open yso,baglanti,1,3
if id=cint(session("id")) then
response.Redirect("about.asp")
else
response.Redirect("about.asp?member="&request.QueryString("id"))
end if
response.end

else
uyekim=request.QueryString("member")

if uyekim<>"" then
uyeidne=uyekim
else
uyeidne=session("id")
end if

Set conn = Server.CreateObject("ADODB.Connection")
dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
conn.open dsn

if uyekim<>"" then
Set RS=Server.CreateObject("ADODB.RecordSet")
Sql = "SELECT * FROM uyeler where id="&uyekim
RS.Open Sql, conn, 1, 3
If not RS.EOF then
uyeadine=RS("isim")
resimne=RS("resim")
uyesoyadine=RS("soyisim")
uyemailne=RS("kullanici")
else
uyeadine="Uye bulunamadı"
uyesoyadine="Uye bulunamadı"
uyemailne="Uye bulunamadı"
end if
RS.close

if resimne="" then
resimne="0"
end if

else
uyeadine=session("kullanici")
resimne = session("resim")
end if
%>
<!--#include file="ustmenu.asp"-->

<div id="content" class="grid grid-pad">
	
	<div class="post-32 page type-page status-publish hentry col-1-1 post singlepost" id="post-32">
					<h1 class="page_title color_title"><%
			if uyekim<>"" then
			response.Write "Hakkında"
			else
			response.write "Hakkımda"
			end if
			%></h1>
                    
<hr class="hr_line" />
	<div class="about_header">

		<div class="picture col-3-12 alpha">
			<div class="outer"><a><img src="profile/<%=resimne%>.jpg" alt="img" /></a></div>
		</div><%
			if uyekim="" then
			%>
        <a class="social_icon button fa fa-cog rounded blue"  style="position:absolute; margin-top:0%; margin-left:-40px; " href="selectpicture.asp"></a>
			<% end if %>
		<div class="right col-9-12 alpha">

			<div class="top_text col-1-1"><%
			response.Write uyeadine
			%></div>
            <%			
				Set RS=Server.CreateObject("ADODB.RecordSet")
				Sql = "SELECT * FROM ornekal where kisi='"&session("id")&"' and alinan='"&Cint(uyeidne)&"'"
				RS.Open Sql, conn, 1, 3
				If not RS.EOF then
				durumne="1"
				else
				durumne="0"
				end if
				RS.close
				if durumne="1" then
			%>
<a class="button rounded big leftalign blue fa fa-star" style="position:relative; margin-top:-13%; margin-left:70%; width:160px;" href="about.asp?page=delete&id=<%=uyeidne%>"> <strong>Örnek alınıyor</strong></a>
            <% else %>
<a class="button rounded big leftalign blue fa fa-star-o" style="position:relative; margin-top:-13%; margin-left:75%; width:115px;" href="about.asp?page=save&id=<%=uyeidne%>"> Örnek al</a>
            <% end if %>

			<div class="bot_text col-1-1">
	  		<span class="description col-1-2"><%
			if uyekim<>"" then
			response.Write "Örnek aldıkları"
			else
			response.write "Örnek aldıklarım"
			end if
			%> (<%
				Set RS=Server.CreateObject("ADODB.RecordSet")
				Sql = "SELECT * FROM ornekal where kisi='"&Cint(uyeidne)&"'"
				RS.Open Sql, conn, 1, 3
				If not RS.EOF then
				sayiornekal=RS.recordcount
				else
				sayiornekal="0"
				end if
				response.write sayiornekal
				RS.close
				%>)</span>
                <%
			if uyekim<>"" then
			%>
            <a href="library.asp?member=<%=uyekim%>" class="view_portfolio_btn col-1-2 alpha">
			<%
			else
			%>
            <a href="library.asp" class="view_portfolio_btn col-1-2 alpha">
            <%
			end if
			if uyekim<>"" then
			response.Write "Kütüphanesi"
			else
			response.write "Kütüphanem"
			end if
			%> (<%
				Set RS=Server.CreateObject("ADODB.RecordSet")
				Sql = "SELECT * FROM kutuphane where kisi='"&Cint(uyeidne)&"'"
				RS.Open Sql, conn, 1, 3
				If not RS.EOF then
				sayikutuphane=RS.recordcount
				else
				sayikutuphane="0"
				end if
				response.write sayikutuphane
				RS.close
				%>)</a>

		</div>

	</div>
    
    
    
<div class="col-4-12">
<p><h1 class="page_title color_title">Davet Tablosu</h1></p>
<p><div class="details box col-1-1 alpha">
		<div class="items col-1-1 alpha">
			
            	<%
				Set conn = Server.CreateObject("ADODB.Connection")
				dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
				conn.open dsn
				Set RS=Server.CreateObject("ADODB.RecordSet")
				Sql = "SELECT * FROM davetiyeler where (uyeid='"&Cint(uyeidne)&"' and uye='evet') ORDER BY id asc"
				RS.Open Sql, conn, 1, 3
				if RS.eof then
				%>
            	<div class="item col-1-1"><span><strong #1><center>Henüz davetiniz ile gelen üye bulunamadı.</center></strong></span></div>
                <p>&nbsp;</p>
                <%
				end if
				Do While Not RS.EOF
				
								leid=RS("mail")
								Set PS=Server.CreateObject("ADODB.RecordSet")
								Stl = "SELECT * FROM uyeler where kullanici='"&leid&"'"
								PS.Open Stl, conn, 1, 3
								if not PS.eof then
								davetetisim=PS("isim")
								davetetid=PS("id")
								end if
								PS.close
								%>
            <div class="item col-1-1 alpha omega animated bounceIn">
				<span class="value col-1-1 omega">
					<a href="about.asp?member=<%=davetetid%>"><%=davetetisim%></a>			</span>
			</div>
				<%
				RS.MoveNext
				Loop
				RS.Close
				%>
            
            
            
					</div>
	</div>
    </p>
    
    <hr class="hr_line_2" />
    
    <p><h1 class="page_title color_title"><%
			if uyekim<>"" then
			response.Write "Örnek aldıkları"
			else
			response.write "Örnek aldıklarım"
			end if
			%></h1></p>
<p>	<div class="details box col-1-1 alpha">
		<div class="items col-1-1 alpha">
			
            	<%

				Set PDSS=Server.CreateObject("ADODB.RecordSet")
				SSK = "SELECT * FROM ornekal where kisi='"&uyeidne&"' ORDER BY id asc"
				PDSS.Open SSK, conn, 1, 3
				if PDSS.eof then
				%>
            	<div class="item col-1-1"><span><strong #1><center><%
			if uyekim<>"" then
			%><div class="item col-1-1"><span><strong #1><center>Henüz kimseyi örnek almıyor.</center></strong></span></div>
            <%
			else
			%>
			<div class="item col-1-1"><span><strong #1><center>Henüz örnek aldığınız kimse yok.</center></strong></span></div>
			<%
            end if
			%></center></strong></span></div>
                <%
				else
				Do While Not PDSS.EOF
				%>
            <div class="item col-1-1 alpha omega animated bounceIn">
				<span class="value col-1-1 omega">
					<a href="about.asp?member=<%=PDSS("alinan")%>"><%=PDSS("alinanadi")%></a>
                </span>
			</div>
				<%
				PDSS.MoveNext
				Loop
				PDSS.Close
				end if
				%>
            
            
            
					</div>
	</div>
    </p>
    
    </div>

			<div>&nbsp;</div>

			
			<!-- Blog Posts -->
	<div class="posts col-8-12">

				<%
				Set conn = Server.CreateObject("ADODB.Connection")
				dsn = "Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("database.mdb")
				conn.open dsn
				Set RS=Server.CreateObject("ADODB.RecordSet")
				Sql = "SELECT * FROM yazilar where uyeid='"&Cint(uyeidne)&"' ORDER BY id desc"
				RS.Open Sql, conn, 1, 3
				Do While Not RS.EOF
				kategori=RS("kategori")
				%>
				
	<div post-id="61" class="post-61 post type-post status-publish format-standard hentry category-ipsum post text ">
				<div class="left col-1-12">
											<i class="fa fa-<%
											if kategori="1" then
											response.Write("pencil")
											elseif kategori="2" then
											response.Write("quote-left")
											elseif kategori="3" then
											response.Write("file-text")
											elseif kategori="4" then
											response.Write("tasks")
											elseif kategori="5" then
											response.Write("pencil-square-o")
											end if
											%> type color" title="Text"></i>
                                            <%
											if uyekim<>"" then
											else
											%>
                                            <a href="home.asp?page=delete&id=<%=RS("id")%>" class="fa fa-trash-o del" title="Sil"></a>
                                            <%
											end if
											%>
				</div>
	
	<div class="right col-11-12">
						<div class="bot col-1-1">
			<span class="user">
				<i class="fa fa-user color"></i>
				<span><a href="about.asp"><%=RS("yazan")%></a></span>
			</span>
			<span class="time">
				<i class="fa fa-clock-o color"></i>
				<span><%=RS("tarih")%></span>
			</span>
						<span class="tags">
				<i class="fa fa-book color"></i>
                <%
				yazininid=RS("id")
				Set RKS=Server.CreateObject("ADODB.RecordSet")
				Skql = "SELECT * FROM kutuphane where (kisi='"&Cint(uyeidne)&"' and yazi='"&Cint(yazininid)&"')"
				RKS.Open Skql, conn, 1, 3
				if RKS.eof then
				%>
				<span><a href="library.asp?page=save&id=<%=RS("id")%>" data-cat-id="4" class="post_category_btn">Kütüphaneme ekle</a></span>
                <% else %>
                <span><a href="library.asp?page=delete&id=<%=RKS("id")%>" data-cat-id="4" class="post_category_btn">Kütüphanemden çıkar</a></span>
                <% end if %>
						  </span>
						<span class="total_comments">
				<i class="fa fa-users color"></i>
				<span><a href="linked.asp?text=<%=yazininid%>" class="blog_view_btn goto_comments"><%
				Set sem=Server.CreateObject("ADODB.RecordSet")
				osx = "SELECT * FROM ithaflar where eklenti='"&yazininid&"'"
				sem.Open osx, conn, 1, 3
				response.write (sem.recordcount)
				sem.close
				%></a></span>
			</span>
		</div>
		<div class="body col-1-1">
			
			<div class="preview_body body">
                <% if len(RS("mesaj")) > 400 then 
				response.write "<p>" & left(RS("mesaj"),400) & "..</p>"
				%>
				<a href="?page=detail&id=<%=RS("id")%>" class="blog_view_btn button rounded">Devamı</a>
                <% 
				else
				response.Write "<p>" & RS("mesaj") & "</p>"
				end if 
				%>
			</div>
		</div>
	</div>
	<div class="clear"></div>

</div>
		
				<%
				RS.MoveNext
				Loop
				RS.Close
				%>
	  </div>

			<div class="clear"></div>

		
	</div>
	<!-- /Blog Posts -->
		</div>

	</div>
	    

			
			</div>

	
	</div>


	<div id="footer"><div class="inner"><center>Copyright &copy; 2014 Marifet Ehli. Tüm hakları saklıdır.</center></div></div>

  <script type='text/javascript' src='//code.jquery.com/jquery-1.9.1.js'></script>
</div>
<script type='text/javascript' src='timeline/wp-content/plugins/contact-form-7/includes/js/jquery.form.min-ver=3.50.0-2014.02.05.js'></script>
<script type='text/javascript'>
/* <![CDATA[ */
var _wpcf7 = {"loaderUrl":"http:\/\/codingfeat.com\/wpthemes\/voxr\/wp-content\/plugins\/contact-form-7\/images\/ajax-loader.gif","sending":"Sending ..."};
/* ]]> */
</script>
<script type='text/javascript' src='timeline/wp-content/plugins/contact-form-7/includes/js/scripts-ver=3.7.2.js'></script>
<script type='text/javascript'>
/* <![CDATA[ */
var config = [];
config = {"ajax_file":"http:\/\/codingfeat.com\/wpthemes\/voxr\/wp-content\/themes\/voxr\/voxr_ajax.php","base_url":"http:\/\/codingfeat.com\/wpthemes\/voxr","google_maps_latitute":"-25.363882","google_maps_longitude":"131.044922"};;
/* ]]> */
</script>
<script type='text/javascript' src='timeline/wp-content/themes/voxr/assets/js/scripts-ver=3.8.1.js'></script>
<script type='text/javascript' src='timeline/wp-content/themes/voxr/assets/js/mixitup-ver=3.8.1.js'></script>
<script type='text/javascript' src='timeline/wp-content/themes/voxr/assets/js/sequence-ver=3.8.1.js'></script>
<script type='text/javascript' src='https://maps.googleapis.com/maps/api/js?v=3.exp&sensor=false&ver=3.8.1'></script>
<script type='text/javascript' src='timeline/wp-content/themes/voxr/assets/js/maplace-ver=3.8.1.js'></script>
</body>
</html>
<%
END IF
else
response.Redirect("default.asp")
END IF
%>