şöyle bir fonksiyonum var:
Kod:
Function SonrakiAdim(intSayi)
'eğer kategori sayısı ile adım sayısı aynı ise ve secimvarmi koşulu sağlanmışsa diğer sayfaya yönlendirilir.
If (intSayi = intKategoriAdet) And SecimVarMi Then
SonrakiAdim = "Sayfa2.ASP"
Else
Set rsSonrakiKategori = strBaglanti.Execute("SELECT ID FROM Tablo WHERE Sira = "&intSayi+1)
If rsSonrakiKategori.eof Then
'kayıt bulunamadığı için fonksiyon tekrar çağırılıyor.
SonrakiAdim(intSayi+1)
Else
Set rsKatUrunAdet = strBaglanti.Execute("SELECT COUNT(*) FROM Tablo2 WHERE ID = "&rsSonrakiKategori(0))
If rsKatUrunAdet(0) = 0 Then
'ürün bulunamadığı için fonksiyon tekrar çağırılıyor.
SonrakiAdim(intSayi+1)
Else
SonrakiAdim = "?Adim="&intSayi+1
End If
End If
End If
End Function
az da olsa yorum satırı var ama ben olayı biraz daha açıyım
anket tarzı bir betik olacak. kullanıcı bir hoşgeldin sayfasından sonra çeşitli kategorilerdeki seçimleri sırayla geçebilecek. kategori sayısı belli olmadığından, daha da önemlisi bir kategori seçim öğelerine kesin sahip olmayacağından yapmak istediğim bir sonraki kategoriye geçmek için oluşturulacak bağlantı adresinin kırık olmayacağından emin olmak. yani tıklanacak ileri butonu için verilen kategori adresi içi dolu birşeyler olmalı. bunun için de bu fonksiyon SonrakiAdim(1) şeklinde çağırıldığında bir sonraki dolu kategorinin sıra numarasını getirmeli. fonksiyona değerin atandığı satırlarda aynı değerler yazdırılabiliyor ama fonksiyon bu değeri getirmiyor. hatta sanki ben onu çağırmamışım gibi hiçbirşey getirmiyor
yol gösterici biri olabilirse sevinirim.