10.000 Gösterim Hakkı

Arkadaşlar benim bir hitlistim var http://www.hitlazim.com/toplist/default.asp burada sayfalama yapmak istiyorum... Bu sayfalamayı yapan arkadaşa 10000 gösterim hakkı vereceğim... Hitlazim.Comdan 468*60 bannerini yayınaycağım...

MSn: webzenci@hotmail.com

Sırasıyla yazıyorum arkadaşım. Bilgileri aynen ekle çalışacak.

-- database bağlantısı ---

<%
s = Request.QueryString("s")
If s = "" Then s = "1"
rs.PageSize = 10
rs.AbsolutePage = s
ss = rs.PageCount
For i = 1 To rs.PageSize
If rs.EOF Then Exit For %>

--- databaseden verileri çekiyoruz ---

<%
Response.Write "<b>Sayfa:</b>"
For g = 1 To ss
If g = CInt(s) Then
Response.Write "<b>" & g & "</b> "
Else
Response.Write "<b><a style=""text-decoration: none"" href=""sayfa.asp?s=" & g & """>" & g & "</a></b> "
End If
Next
%>


Not: Her sayfada 10 tane kayıt göstererek sıralayacaktır.
İşine yaraması dileğiyle. Kolay gelsin.
Amacım paylaşım. Biliyorsam yardımcı olurum. Krediye gerek yok arkadaşım. Çalışmazsa hata mesajını yazarsan yardımcı olmaya çalışırım.

PHP olsaydı benim de işime yaradı. PHP olarak da yazabilir misin?

Php'de iyi değilim. Elime yüzüme bulaştırırım. Php Editörleri, Asp'den Php'ye kodları sorunsuz çeviriyorlardı. Yada bilen arkadaşlar başlığı görürlerse çevirebilirler ama benim elimden gelmiyor.

Response.Write "<b><a style=""text-decoration: none"" href=""sayfa.asp?s=" & g & """>" & g & "</a></b>

bu hatayı verdi

sayfa.asp yazan kısmı kendi sayfa isminle değiştirmelisin. ana sayfansa mesela default.asp yapmalısın.

yaptım yine olmadı . Aşağıdaki hatayı veriyor...

Microsoft VBScript compilation error '800a03fc'

Expected 'Next'

/toplist/default.asp, line 266

266. satıra next eklemelisin.

yine çalışmazsa özel mesajla default.asp ni bana gönderirsen yada bi text içine koyup gönderirsen düzenlerim. içinde database bağlantısı olan kısımlar varsa silmeyi unutma göndermeden önce.

yada 266. satırı buraya yazarsan soruna bakalım.

gerek kalmadı yaptım teşekkür ederim ilginden dolayı