[CreaNext]

üyelere toplu mail gönderme adına bir bölüm yaptım yaptığım bir sitede server.ScriptTimeout=5000000 bile yapsam yaklaşık 3 dakka sonra sayfa zaman aşımına uğruyor. yani timeout süresini düşürsemde yükseltsemde zaman aşımına uğradığı süre değişmiyor. timeout olmadan bu emailleri 1 defada limitli olarak 100 er 100 er göndermenin bir yolu varmı ?

[arsende]

Component yüzünden olabilir, ben sayfalama yöntemi ile gönderiyorum..

Gönderilecek mesajı veritabınan kaydediyorum, açılır bir pencerede üyeleri 50 şer sayfalıyorum tabi her satırda listenen mail adresine mesaj gidiyor. Sayfa yüklendikten sonra Onload="sonraki()" sonraki sayfaya geçen bir fonksiyonum var 1 vey 2 dk sonra diğer 50. grubu listeliyor ve gönderiyor. Son mail de gidince veritabanındaki mesaj gönderildi ibaresi ekleyip pencereyi kapatıyorum..

[blurise]

Ekteki dosyada frame kullanarak her bir (yada bir kac) mail icin o islemler bitince bir sonrakini tetikleyecek sekilde kodlanmis bir yapi var. Gectigimiz hafta benzeri birseyi onlarca saat suren bir islem icin kullandik.

[CreaNext]

Ben direk veritabanından göndermiyorum mailler virgüllerle ayrılmış bir şekilde textarea dan geliyor. splitle ayırarak gönderiyorum. o yüzden bunu sayfalama ile nasıl yapabilirim ki ?

[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..

[CreaNext]

@blurise ekli dosya için teşekkür etmeyi unutmuşum kusura bakma. Teşekkür ederim.
@arsende kod için sanada teşekkür ederim istediğim şey böyle bişi di @blurise nin javasıyla birleştirildiğinde istediğim gibi bişey çıkacak sanırım.