<% Response.Buffer=True %> Untitled Document <% Set bagdata2 = Server.CreateObject("ADODB.Connection") bagdata2.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("../../db/rhdata.mdb") dw_id =request.querystring ("id") if dw_id <>"" then indir () else download () end if %> <% sub download %>
<% where=request.querystring("where") Set Dosyalar = Server.CreateObject("ADODB.RecordSet") SQL = "Select * from Mizahisler where aktif = 1 " SQL="Select * from download order by count Desc" Dosyalar.Open SQL, bagdata2, 1, 3 if Dosyalar.eof or Dosyalar.BOF then Response.Write "Henüz Download Kaydı Girilmemiş" end if %> <% Do while not Dosyalar.eof %>
Downloads "><%=Dosyalar("dosya_adi")%> (<%=Dosyalar("Dil")%>)
Download hit:
<%=Dosyalar("count")%>
">" alt=" www.rhnegative.com ©" border="0">      <%=Dosyalar("Tanim")%>
Hazırlayan / Prepared : <%=Dosyalar("Telif")%> Boyut / Size: <%=Dosyalar("Boyut")%>
<% Dosyalar.MoveNext %> <% Loop %>
<% Dosyalar.Close Set Dosyalar=Nothing bagdata2.Close Set bagdata2=Nothing %>

<% end sub %> <% sub indir dw_id =request.querystring ("id") Set Baglanti=Server.CreateObject("ADODB.Connection") Baglanti.Open bagdata2 set dload=Server.CreateObject("ADODB.Recordset") SQL="Select * from download where id = " & dw_id dload.Open SQL, Baglanti, 1, 3 if dload.eof or dload.BOF then Response.Write "Henuz Download Kaydı Girilmemiş" else dload("count")=dload("count")+1 dload.Update Response.Redirect dload("dosya_adresi") end if end sub %>