Duyuruyu Kapat
Facebook Gözat
Twitter Gözat

Lütfen yardım!..

Konu, 'ASP' kısmında Mariah tarafından paylaşıldı.

  1. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    http://www.aksiseda.com/e-card

    Bunu çalıştıramadım... :aglama: :aglama: :aglama: :aglama: :aglama:
     
  2. CrazyCat

    CrazyCat Daimi Üye

    Kayıt:
    25 Temmuz 2002
    Mesajlar:
    653
    Beğenilen Mesajlar:
    0
    Meslek:
    lecturer
    Şehir:
    Adana
    http://www.aksiseda.com/e-card/kart_olustur.asp?Kimlik=150

    adresindeki kedili e-kartın ismine köpekler~35 yazdığın için çalışmıyordur :D

    bu olayı kınıyor ve yardım etme konusunda çekimser kalıyorum :D

    ---
    bu arada hekikatten çalışmıyormuş:)

    ekart_gondermece.asp nin kodları nasıl?
     
  3. tt

    tt Yeni Üye

    Kayıt:
    6 Ocak 2003
    Mesajlar:
    8
    Beğenilen Mesajlar:
    0
    Meslek:
    Öğrenci
    Şehir:
    Erzurum
    Sana yardımcı olabilirim ama e-kart_gondermece.asp yi gormek lazım..Bunu görürsem bişiler söyleyebilirim..
     
  4. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    Nasıl göstereyim sana?
     
  5. Sahin

    Sahin Daimi Üye

    Kayıt:
    28 Mayıs 2002
    Mesajlar:
    8,943
    Beğenilen Mesajlar:
    0
    Kodlari buraya pastele istersen.
     
  6. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    <% 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&">&nbsp;&nbsp;&nbsp;&nbsp;&nbsp;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>&nbsp;&nbsp;"&gonderen&"<br><b>E-Mail Adresi:</b>&nbsp;&nbsp;"&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

    %>
     
  7. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    Hata veren kodlar bu sayfada... Bakabilir misiniz lütfen?
     
  8. tt

    tt Yeni Üye

    Kayıt:
    6 Ocak 2003
    Mesajlar:
    8
    Beğenilen Mesajlar:
    0
    Meslek:
    Öğrenci
    Şehir:
    Erzurum
    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...
     
  9. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    Onu da denedim, gene olmadı...
     
  10. BERK

    BERK Üye

    Kayıt:
    5 Ekim 2002
    Mesajlar:
    99
    Beğenilen Mesajlar:
    0
    Meslek:
    ----
    Şehir:
    Karacaahmet
    '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
     
  11. Mariah

    Mariah Üye

    Kayıt:
    20 Ekim 2002
    Mesajlar:
    104
    Beğenilen Mesajlar:
    0
    Sağolun, çalıştı sonunda... :) :) :) :) :) :) :) :) :)
     
  12. hakansor

    hakansor Daimi Üye

    Kayıt:
    14 Ekim 2004
    Mesajlar:
    635
    Beğenilen Mesajlar:
    0
    Şehir:
    Ankara
    Mariah çok iyi bir arkadaştı. :(
    randomize ile alakalı bir sıkıntım vardı onu araştırırken gördüm, hatırladım.
    Mekanı cennet olsuın inş.