| Gönderen: 14-Şubat-2006 Saat 09:01 | Kayıtlı IP
|
|
|
 Aşağıdaki kodda sendmail subrutinini 3 saniye gecikmeyle çalıştırmak istedim.Fakat çalışmadı.Ve ben de kontrol için syntaxı aynı ve adı kutay olan başka bir sub yazdım.bu sub 3 saniye gecikmeyle çalıştı fakat asıl benim işime yarayacak olan sendmail fonksiyonu sayfayı açar açmaz çalıştı.Oysa ben 3 saniye gecikmeyle çalışmasını istiyordum.Yardımcı olursanız sevinirim.
<html>
<head>
<title>Untitled Document</title>
<meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1">
<%
sub kutay(numb)
response.Write(numb)
end sub
%>
<%
sub sendmail(tto)
Dim ObjMail
Set ObjMail = Server.CreateObject("CDO.Message")
Set objConfig = CreateObject("CDO.Configuration")
objConfig.Fields(cdoSendUsingMethod) = cdoSendUsingPort
objConfig.Fields(cdoSMTPServer) = "localhost"
objConfig.Fields(cdoSMTPServerPort) = 25
objConfig.Fields(cdoSMTPAuthenticate) = cdoBasic
objConfig.Fields.Update
Set objMail.Configuration = objConfig
objMail.From = "kutaykalkan@hotmail.com"
objMail.To = tto + "@yahoo.com"
objMail.Subject = "deneme"
objMail.TextBody= "GOTCHA"
objMail.Send
Set objMail = Nothing
end sub
%>
</head>
<body>
<script type="text/javascript">
setTimeout("document.write('<%kutay("ali")%>')",3000);
setTimeout("document.write('<%sendmail("k_kalkan")%>') ",3000);
</script>
</body>
|
ASPTurkiye.com Forum : ASP / ASP.NET
Konu: setTimeout...
Aktif Konular
Üye Listesi
Arama
Yardım
Kayıt Ol
Giriş
