<% On Error Resume Next
'<><><><><><><><><><><><><><><><><><><><><><><>
'<> Yazarlar Portalı v2.1
'<> Burak ŞİMŞEK (Burajan)
'<> http://www.buraksimsek.com.tr
'<> UzmanWeb.Net | Bilgisayar - İnternet - Web
'<> http://www.uzmanweb.net
'<><><><><><><><><><><><><><><><><><><><><><><>
%>
<%
yazi=Request.QueryString("ilac")
set yaziadi = server.createobject("ADODB.Recordset")
Sorgu = "Select * from YAZILAR WHERE ONAY=1 AND YAZILAR_ID = " & yazi
yaziadi.open Sorgu,Baglanti,1,3
If yaziadi.eof then 
YAZILAR_ADI="Hata!"
Else
YAZILAR_ADI=yaziadi("YAZILAR_ADI")
End If
yaziadi.Close
Set yaziadi=Nothing
 
SITE_SAYFA_ADI="İlaç Bilgilerine Bakıyor. "
SITE_SAYFA_ADRESI="ilac.asp?ilac=" & yazi
%>
<% islem=Request.QueryString("islem") %>
<% yazi=Request.QueryString("ilac") %>
<% if islem="" then %>
<%
Set yazikontrol = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from YAZILAR WHERE YAZILAR_ID=" & yazi
yazikontrol.Open Sorgu,Baglanti,1,3
If yazikontrol.eof then 
yazikontrol.Close
Set yazikontrol=Nothing
%>
<%
Else
Set yazaryazisi = Server.CreateObject("ADODB.Recordset")
Sorgu = "SELECT * FROM FIYATLAR where YAZILAR_ID= " & yazikontrol("YAZILAR_ID") & " order by GECERLILIK_TARIHI desc"
yazaryazisi.Open Sorgu,Baglanti,1,3
If yazaryazisi.eof then 
yazaryazisi.Close
Set yazaryazisi=Nothing
%>
<% Else %>
<%
Set yazilarilistele = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from YAZILAR WHERE BARKOD=" & yazaryazisi("BARKOD") & " and YAZILAR_ID=" & yazi
yazilarilistele.Open Sorgu,Baglanti,1,3
 
HIT=yazilarilistele("YAZILAR_HIT" )+1
yazilarilistele("YAZILAR_HIT" )=HIT
YAZILAR_ID=yazilarilistele("YAZILAR_ID")
yazilarilistele.update
 
mesajadet = yazilarilistele.recordcount 
If yazilarilistele.eof then 
yazilarilistele.Close
Set yazilarilistele=Nothing
%>
 
<%
Else
Set ucuzesdeger = Server.CreateObject("ADODB.Recordset")
Sorgu3 = "SELECT * FROM YAZILAR where ESDEGER_KODU= " & yazikontrol("ESDEGER_KODU") & " and YAZILAR_ID <> " & yazikontrol("YAZILAR_ID") & " order by BIRIM_FIYATI asc"
ucuzesdeger.Open Sorgu,Baglanti,1,3
mesajadet = ucuzesdeger.recordcount 
If ucuzesdeger.eof then 
ucuzesdeger.Close
Set ucuzesdeger=Nothing
%>
<%
Else
for t=1 to 1 
if yazilarilistele.eof then exit for 
 
YAZILAR_YORUM=yazilarilistele("YAZILAR_YORUM")
 
Set kategoriler = Server.CreateObject("ADODB.Recordset")
Sorgu = "Select * from KATEGORILER where KATEGORILER_ID=" & yazilarilistele("KATEGORILER_ID")
kategoriler.Open Sorgu,Baglanti,1,3
If kategoriler.eof then 
KATEGORILER_ADI= "Kategori Bulunamadı"
else
KATEGORILER_ADI=kategoriler("KATEGORILER_ADI")
end if
kategoriler.Close
Set kategoriler=Nothing
 
set yorumsayisi = server.createobject("ADODB.Recordset")
Sorgu = "SELECT * FROM YORUMLAR where YAZILAR_ID=" & yazilarilistele("YAZILAR_ID")
yorumsayisi.open Sorgu,Baglanti,1,3
YORUMADET = yorumsayisi.recordcount
yorumsayisi.Close
Set yorumsayisi=Nothing
%>
<%
yazilarilistele.movenext 
next 
%><%
End if
yazilarilistele.Close
Set yazilarilistele=Nothing
%><%
End If
yazaryazisi.Close
Set yazaryazisi=Nothing
End If
yazikontrol.Close
Set yazikontrol=Nothing
End If
ucuzesdeger.Close
Set ucuzesdeger=Nothing
%>
<% end if %>

order by BIRIM_FIYATI asc

order by BIRIM_FIYATI desc