Güzel Bir Portal'da Bizden...(ÜCRETSİZ)

Arkadaşla tanıştırsın bhcoder seni onu kodlayanla kimden ögrenmiş asp'yi her ikiside.Hem cevap ver bakalım nasıl yapılıyormuş dosya çekme dedigin şey farklı yöntemle ?

Bnezerlik Göster dostum sql sorgularına iyi bak sallama cevap veriyorsun

%
set AspDestekResimGaleri = server.createobject("ADODB.Recordset")
rSQL = "Select * from galeri ORDER BY ID DESC"
AspDestekResimGaleri.open rSQL,Connection,1,3
%>
<%
if AspDestekResimGaleri.recordcount= 0 then
Response.write ("Kayıt Bulunamadı.")
Else
shf = Request.QueryString("shf")
If shf="" Then
shf=1
End If
%>



<%
AspDestekResimGaleri.pagesize =23 ' sayfada toplam kaç kayıt olacak
AspDestekResimGaleri.absolutepage = shf
sayfa = AspDestekResimGaleri.pagecount
For t=1 To AspDestekResimGaleri.pagesize
If AspDestekResimGaleri.Eof Then exit For
bol =3 ' Yan yana kac tane olacak
yuzde = CInt(100/bol)
i = i + 1
If not t mod bol = 0 Then
%>

Konişmıyayım diyorum tutamıyorum kendimi.Forumdaki diğer arkadaşlarda lütfen. Kodlar
satır nolarına kadar bazı yerlerinde aynı durumda. İnclude edilen yerde dosya adlarını ve path leri değişmişsin.Sql sorguları aynı forum asp dosyası bariz ortada birçok kodun satır sayısı bile aynı. Editleme yapmışsınız bence

Kardeşim inanmıyorsan inanma inanmayan varsa tanıştırsın bhcoder aspyi ögreten kişiyle.Hem sen bize o arkadaşlarını tanıştırırmısın ? Başka cevap veremiyorsun gelmiş ikide bir aynı lafı tekrarlayıp duruyorsun.

Bak Güzel kardeşim sana yasirpro kodunu verecem yasirproya benziyor desen dicemki eyw benzio ama yanlışa düşüosun ban kodlara kendin cevap ver
Yasirpro indir incele dostum ozman herkez yasirprodan çalmış..kolay gelsin

<% if (not Isnumeric(request.QueryString("id"))) then %>
            <% 	= "Lütfen geçerli bir ID numarası giriniz." %>
            <% else %>
            <% Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "Select * FROM Dokumanlar WHERE Kimlik=" & request.QueryString("id")
rec.open rSQL,Connection,3,3 %>
<% =siteadi & " : " & rec("ad") %>

set AspDestekResimGaleri = server.createobject("ADODB.Recordset")
rSQL = "Select * from galeri ORDER BY ID DESC"
AspDestekResimGaleri.open rSQL,Connection,1,3
%>
<%
if AspDestekResimGaleri.recordcount= 0 then
Response.write ("Kayıt Bulunamadı.")
Else
shf = Request.QueryString("shf")
If shf="" Then
shf=1
End If
%>


<%
Set rec = Server.CreateObjecT("ADODB.RecordSet")
rSQL = "select * from galeri where kategori=" & request.QueryString("id") & " order by id desc"
rec.open rSQL,Connection,3,3
if (not rec.eof) then
sayfa = Request.QueryString("sayfa")
If sayfa="" Then sayfa=1
rec.pagesize = 5
rec.absolutepage = sayfa
sayfa_sayisi = rec.pagecount
for i=1 to rec.pagesizes
if rec.eof then
exit for
end if
%>

Sayfa=shf yazık

o zaman bu scriptin adı yasirprodestek scripti olsun diye aspdestek ? Herşeyini kullanmışsın adamların ki projeasp de de var.SANA AİT NE VAR SCRİPTTE ?

o gördügün oluşum birgünde olmuyor arkadaşım sinirlenmiyorum diyorum ama bilmeden sallama yazıyorsun tanımadan sallama yazıyorsun ben yasirproya 2 sene destek verdim kodları ezbere bilirim ayrıca şuan benim yazdıgım portalın mysql versionu var emegim budur begenen begenir ama tanımadan sallama cvp yazma 2 günlük iş olsa hiç tınlamam

Aspsitem
Ccportal
Yasirpro
Aspdestek

Bunları indirirmisin incelermisin.Hemen demiyorum vaktin oldugu zaman