<%
Set Sur = Server.CreateObject("ADODB.Connection")
Sur.Open "DRIVER={Microsoft Access Driver (*.mdb)}; DBQ=" & Server.MapPath("ddbb.mdb")
%>
<%
kID = REQUEST.QUERYSTRING("KID")
IF Not IsNumeric(REQUEST.QUERYSTRING("kid")) THEN
response.write "Lütfen Geçerli bir ID numarası girin."
response.end
END IF

Set foxxly = Server.CreateObject("ADODB.Recordset")
sor = "Select * from download WHERE kid=" & kid & " order by id desc"
foxxly.Open sor,Sur,1,3

islem=Request.QueryString("islem")
if islem="indir" then
call indir
end if

git = Request.QueryString("git")
if git="" then
git=1
end if
%>



bu kodlar sayfanın başında olanlar