| |
08/01/2003, 17:51
| #2 (permalink) |
| PC PC  Üyelik Tarihi: 07/2002 Yer: Adana
Mesaj: 628
|  http://www.aksiseda.com/e-card/kart_...asp?Kimlik=150 adresindeki kedili e-kartın ismine köpekler~35 yazdığın için çalışmıyordur  bu olayı kınıyor ve yardım etme konusunda çekimser kalıyorum --- bu arada hekikatten çalışmıyormuş  ekart_gondermece.asp nin kodları nasıl?
__________________ Merak Kediyi Öldürürmüş |
|  |
|
10/01/2003, 12:41
| #6 (permalink) |
| Eski Cevizci Üyelik Tarihi: 10/2002
Mesaj: 104
|
<% Response.Buffer = true %> <link rel="stylesheet" type="text/css" href="../stilim.css"> <% strSite = "http://www.aksiseda.com/e-card" Function SifreUret(HarfSayi, SayiUret, HarfUret) Harf = Array("A", "B", "C", "D", "E", "F", "G", "Ğ", "H", "I", "J", "K", "L", "M", "N", "O", "P", "R", "S", "T", "U", "V", "Y", "Z", "Q", "W", "X") Sayi = Array("1", "2", "3", "4", "5", "6", "7", "8", "9", "0") If SayiUret = "1" AND HarfUret = "1" Then Denetim = "3" Elseif SAyiUret = "1" Then Salla = "2" Elseif HarfUret = "1" Then Salla = "1" End if Randomize Timer For I = 0 To INT(HarfSayi) If Denetim = "3" Then Salla = Int((Rnd * 2) + 1) End if If Salla = 2 Then Gidecek = Gidecek & "" & Sayi(Int((Rnd * 10) + 0)) Elseif Salla = 1 Then Gidecek = Gidecek & "" & Harf(Int((Rnd * 26) + 0)) End if Next SifreUret = Gidecek End Function ekart=Request.Form("ekart") mesaj=Request.Form("mesaj") gon_mail=Request.Form("gon_mail") alacak=Request.Form("alacak") al_mail=Request.Form("al_mail") gonderen=Request.Form("gonderen") muzik=Request.Form("muzik") font=Request.Form("font") table=Request.Form("table") baslik="Arkadasinizdan E-Kart var" kimden="info@aksiseda.com" SET objFSO = Server.CreateObject("Scripting.FileSystemObject") strDosya = SifreUret(15, 1, 1) & ".htm" SET objYaz = objFSO.CreateTextFile(Server.MapPath("kart/") & "/" & strDosya, True) objYaz.WriteLine "<html><head><title>" & baslik & "</title></head> " objYaz.WriteLine "<body bgcolor=""FFD5AA"">" objYaz.WriteLine "<table align=center cellpadding=0 cellspacing=0 border=1 bordercolor=#000000 width=500 background=""" & strSite & "/back/" & table &""">" objYaz.WriteLine "<tr align=center><td><div align=center><img src='resimgaleri/resimler/"&ekart&"' border=0><br></table></div></tr></td>" objYaz.WriteLine "<tr align='center'><td><font face=verdana size=2 color="&font&"> Mesaj :<b> "&mesaj&" </b><br><br></font></tr></td>" objYaz.WriteLine "<tr align='center'><td><font face=verdana size=2 color="&font&"><b>Gonderen:</b> "&gonderen&"<br><b>E-Mail Adresi:</b> "&gon_mail&"</font><br></td></tr>" objYaz.WriteLine "</table><bgsound src="&muzik&" loop=-1> </body>" 'SET Mail = Server.CreateOBject( "JMail.Message" ) metin="Size ait bir e-kart var. Bu kartı " & strSite & "/kart/" & strDosya & " adresinden görebilirsiniz." Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.Logging = true Mail.silent = true Mail.From = kimden Mail.FromName = gonderen Mail.AddRecipient al_mail Mail.Subject = baslik Mail.Body = metin If not Mail.Send("localhost" ) then Response.write "<pre>" & Mail.log & "</pre>" else response.redirect "tesekkur.asp" end if Set Mail=Nothing %>
__________________ Dünyayı sevgi kurtaracak, bir insanı sevmekle başlayacak her şey... |
|
| |
|
10/01/2003, 17:47
| #8 (permalink) |
| Üye Üyelik Tarihi: 01/2003 Yer: Erzurum
Mesaj: 8
|
Sorun açıkça ortada.Jmail. Serverınızda bu yüklü değil.Tabi bu bir tahmin.Serverınızı bilemem.Server adminlerine bunu sorun.Eğer sorun gerçekten buysa CDONST kullanmanı tavsiye ederim.her serverda yüklüdür.Bu kodları Cdonst'a uyarlamak senin için çok kolay...
|
|
| |
|
11/01/2003, 14:46
| #10 (permalink) |
| Deadman was DEAD  Üyelik Tarihi: 10/2002 Yer: Karacaahmet
Mesaj: 99
|
'SET Mail = Server.CreateOBject( "JMail.Message" ) metin="Size ait bir e-kart var. Bu kartı " & strSite & "/kart/" & strDosya & " adresinden görebilirsiniz." Set Mail = Server.CreateObject("CDONTS.NewMail") Mail.Logging = true Mail.silent = true Mail.From = kimden Mail.FromName = gonderen Mail.AddRecipient al_mail Mail.Subject = baslik Mail.Body = metin If not Mail.Send("localhost" ) then Response.write "<pre>" & Mail.log & "</pre>" else response.redirect "tesekkur.asp" end if Set Mail=Nothing Yalnız sanki burda CDONTs nesnesi oluşturulmuş ama Jmail in özellik ve metodları kullanılmış gibi durruyor, bu duramda serverin 500 hatası vermiş olması gerekiyor CDONTs kullanımı için bir örnek istiyorsan function SendMail(ad,mail,kime,konu,mesaj) Set mektup = Server.Createobject("CDONTS.NewMail") mektup.From = ad & " <" & mail & ">" mektup.To = kime mektup.Subject = konu mektup.BodyFormat = 0 mektup.MailFormat = 0 mektup.Body = mesaj on error resume Next mektup.Send If err <> 0 Then SendMail=0 Else SendMail=1 End If Set mektup = Nothing end function
__________________ When We Understand , That We Cannot Understand , We Begin To Understand - Wes Nisker |
|
| |
 |
| Bookmarks |
| Seçenekler | |
| |
Benzer Konular | ||||
| Konu | Konuyu açana göre | Forum | Cevap | En Son Mesaj |
| yardım lütfen | kaptan105 | Ağ / Güvenlik | 6 | 09/12/2006 21:17 |
| Bi yardım lütfen | SnigRO | ASP | 17 | 24/07/2006 19:16 |
| Yardım Lütfen | CYReX | Web Tasarım | 2 | 18/11/2004 02:57 |
| Yardım Lütfen | champgs | ASP.NET / Silverlight / Moonlight | 3 | 05/11/2004 16:59 |
| Reklamlar & Desteklenenler | |
| Hassas Valf | Hassas Kaplama | Antalyamız | Gazete | Ticari Bilişim | Hakan Müştak | Rüya Tabirleri | Kadın | Hastalıklar | Cepte msn ve e-posta | Webmaster | Antalya Aupair | Turkish Property Antalya | Forum | Chat | Perde | Adsl | Araba | bolindir.com | guncelle.com | livescore | Web Tasarım | evden eve nakliyat | forum | evden eve | sohbet | Resimcim| Kalifiye İnsan Kaynakları | Web Tasarım | Oyun | Yusuf KOÇ | Akın Yorulmaz | şiir | UFO | Web Tasarım | Oyunlar | Canlı Tv | |
