<% 
Set iletcen = server.CreateObject("ADODB.Recordset") 
mbag="select top 20 * from Siparişler Tablosu  order by id desc" 
iletcen.Open mbag, bag,1,3 
while not iletcen.eof 
Set iletcen2 = server.CreateObject("ADODB.Recordset") 
mbag="select * from Müşteriler tablosu where musteri_id="& iletcen("musteri_id") &"" 
iletcen2.Open mbag, bag,1,3 
%> 

<%=iletcen("tarih")%>   'sipariş tablosundakileri çekmek için

<%=iletcen2("musteriadi")%>   'müşteriler tablosundakileri çekmek için



<%
iletcen.movenext 
loop 
%>

<%@ LANGUAGE = VBScript.Encode %>
<!--#include file="ctrl.asp" -->
<style>
A {
  color: #444444;
  text-decoration: none;
}

A:hover {
  color: #444444;
  text-decoration: none;
}
</style>
<%
if admin("id") = 1 Then 
Else
Response.Redirect "izin_yok.asp"
End If
%>


<%'############## İÇERİK BASLANGICI ############################# %>
	<img src="images/spacer10.png" />

<table border="0" width="720" cellspacing="10" cellpadding="3">
  <tr>
    <td width="100%" colspan="6" bgcolor="#51A8FF" height="22"><font color="#FFFFFF"
    face="Arial" size="2">&nbsp;&nbsp;Muhasebe Programı - Müşteriler.</font></td>
  </tr>
<tr>
<td width="65" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>Tarih</b></font></td>
<td width="190" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="1">&nbsp;<b>Müşteri Adı</b></font></td>
<td width="80" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>İşlem Tutarı</b></font></td>
<td width="90" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>İşlem</b></font></td>
<td width="224" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="red" face="Arial" size="1">&nbsp;<b>Açıklama</b></font></td>
<td width="71" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="red" face="Arial" size="1">&nbsp;<b>Yönetici</b></font></td>
</tr>

<% 
Set iletcen = server.CreateObject("ADODB.Recordset") 
mbag="select top 20 * from contact_trans order by id desc limit 20;" 
iletcen.Open mbag, bag,1,3 
If not iletcen.eof then
while not iletcen.eof 
Set iletcen2 = server.CreateObject("ADODB.Recordset") 
mbag="select * from contact where contact_id="& iletcen("contact_id") &"" 
iletcen2.Open mbag, bag,1,3 

%>

<tr>
<td width="65" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("insert_at")%></font></td>
<td width="190" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen2("name")%></font></td>
<td width="80" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("amount")%>&nbsp;TL</font></td>
<td width="90" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;
<%
if iletcen("_right") = "CARI_BORC_DEKONTU" Then
response.write "Satış"
elseif iletcen("_right") = "CARI_ALACAK_DEKONTU" Then 
response.write "Tahsilat"
else
response.write "Cari Açılış"
End If

%>
</font></td>

<td width="224" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("description")%></font></td>

<td width="11" height="26" bgcolor="#FFFFFF" style="border: 1px dotted rgb(81,168,255)" align="center"><font color="#000000" face="Arial" size="1">&nbsp;<%=iletcen("insert_by")%></font></td>

</tr>
<%
iletcen.movenext

Wend

Else

response.write "Kayıt Bulunamadı"

End If
iletcen.close
%>


</table>
<%'############## İÇERİK BASLANGICI ############################# %>