[arsende]

Döngü ile yapılırsa olur, basla ve bitis aralığını verebilirsin...

Pratik yapalım...

 <% 



Emailler="bos,a1@a.com,a2@a.com,a3@a.com,a4@a.com,a5@a.com,a6@a.com,a7@a.com,a8@a.com,a9@a.com,a10@a.com,a11@a.com,a12@a.com,a13@a.com,a14@a.com,a15@a.com,a16@a.com,a17@a.com,a18@a.com,a19@a.com," 

Emailler = Split(Emailler,"," ) 
on error resume next
' Tanimlar
ToplamMail=Ubound(Emailler)
Deste=5 ' 5 er adet

if request("basla")="" then
Basla=LBound(Emailler)
else
Basla=cint(request("basla"))
end if

if request("Bitis")="" then
Bitis=Ubound(Emailler)
else
Bitis=cint(request("Bitis"))
end if

'gitt
if request("basla")="" then
response.redirect("deneme.ASP?Basla=0&Bitis="&deste&"")
end if




For i =  Basla To Bitis %> 
<% 
if i=ToplamMail then
sayfalama="kapat"
end if 

if i<>0 then
response.write Emailler(i)  '  email kodları
end if
%> 
<br>
<%Next %>
<br>
<br>
Toplam Email = <%=ToplamMail%>
<br>
<br>
<br>

<%
if request("Basla")="" then
XBasla=0
else
deste=deste+1
XBasla=cint(request("Basla")) + deste
end if

if request("Bitis")="" then
XBitis=5
else
XBitis=cint(request("Bitis")) + deste
end if

%>

<%
if sayfalama="" then
%>
<A HREF="deneme.ASP?Basla=<%=XBasla%>&Bitis=<%=XBitis%>">İleri</A>
<%else%>
Saylama Bitti
<%end if%>

<br>
<br>
<br>
<br>
<br>

Deste= Her sayfada listenen mail sayısı (ancak sonradan bir sayı artar)
Emailllerde array başına "bos," ekledim "0" ektisizleştirdim..