• 08-06-2014, 21:48:55
    #1
    R10 Sigortacısı
    Değerli Arkadaşlar;

    İnternette baya bir araştırdım recordset çalışmaz insert kullanın v.s. deniyor ancak bir türlü de çözümü bulamadım. Ücretli veya ücretsiz yardım edebilecek olursa sevinirim.

    Microsoft OLE DB Provider for ODBC Drivers error '80040e21'

    ODBC driver does not support the requested properties.

    hatası alıyorum.

    ilgili satır :
    -------------------------------------------------------------------

    set rs = server.createobject("ADODB.Recordset")
    rs.open "SELECT * FROM mailgonder",my_conn,1,3
    rs("icerik")=request("icerik")
    rs("mesaj")=request("mesaj")
    rs("gon")=request("gon")
    rs.update
    rs.close : set rs = nothing
  • 09-06-2014, 00:13:31
    #2
    Üstad mail göndermede kullanacaksın sanırım bu işi.

    Bu kodu kullanmanı tavsiye ederim. Form nesneni bunu eklediğin sayfaya yönendir. Biliyorsan olayı da sıkıntı yok.

    Alıntı
    <%
    On Error Resume Next
    For Each Doldur In Request.Form
    Message = Message & Doldur & ": " & Request.Form(Doldur) & CHR(10)
    Next

    Set Mail = Server.CreateObject("Persits.MailSender")
    Mail.Charset = "Windows-1254"
    Mail.Host = "mail.domainadi.com"
    Mail.Username = "bilgi@domainadi.com"
    Mail.Password = "şifre"
    Mail.From = "bilgi@domainadi.com"
    Mail.FromName = "Iletisim Formu"
    Mail.AddAddress "bilgi@siteadi.com"
    Mail.AddReplyTo "Iletisim Formu"
    Mail.Subject = "Iletisim Formu"
    Mail.Body = Message
    Mail.Send

    If ERR Then
    Response.Write err.Description & "<br>error"
    Else
    Response.Write "<script>alert('Mesajniz basarili bir sekilde gönderilmistir , TESEKKÜR EDERIZ...');</script>"
    Response.Write("<script language=""javascript"">window.location.href='ilet isim.html';</script>")

    End If
    %>
    Maille alakalı birşey değilse de. RecorSet'ini şu şekilde dene.

    Alıntı
    icerik=Request.Querystring("icerik")
    mesaj=Request.Querystring("mesaj")

    set rs=my_conn.execute("select * from mailgonder")
    Açıkcası yukardaki fonksiyonu bağdaştıramadım bir şeyle.

    Takılırsan elimden geldiğince yardımcı olmaya çalışırım...
  • 09-06-2014, 02:03:06
    #3
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    <%
    my_conn.Execute("Update mailgonder set icerik = '"&Request("icerik")&"', mesaj = '"&Request("mesaj")&"', gon = '"&request("gon")&"'")
    %>

    şeklinde kullanman gerekir. MySQL, ADODB.Recordset desteklemez.
  • 09-06-2014, 07:54:43
    #4
    R10 Sigortacısı
    tolgasen adlı üyeden alıntı: mesajı görüntüle
    <%
    my_conn.Execute("Update mailgonder set icerik = '"&Request("icerik")&"', mesaj = '"&Request("mesaj")&"', gon = '"&request("gon")&"'")
    %>

    şeklinde kullanman gerekir. MySQL, ADODB.Recordset desteklemez.
    Hay Allah bin kere razı olsun senden. Ben tek başıma hayatta yapamazmışım. Tek bir sorum daha var ama öteki kodda rs.close : set rs = nothing diye kapama vardı. Senin verdiğin kodda bir kapatma yok sorun yaratır mı?
  • 09-06-2014, 07:56:15
    #5
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    white35 adlı üyeden alıntı: mesajı görüntüle
    Hay Allah bin kere razı olsun senden. Ben tek başıma hayatta yapamazmışım. Tek bir sorum daha var ama öteki kodda rs.close : set rs = nothing diye kapama vardı. Senin verdiğin kodda bir kapatma yok sorun yaratır mı?
    Amin hocam cümlemizden.

    Sayfaların en altında;

    my_conn.close
    set my_conn = nothing

    kod bloğunuz varsa yeterlidir.
  • 09-06-2014, 08:24:13
    #6
    R10 Sigortacısı
    Üstad konuda yazdığım gibi benden ücret veya başka bir talebin olursa seve seve gönderebilir veya seve seve yardımcı olmaya çalışırım. Pm atman yeterlidir. Onun dışında tekrar çok ama çok teşekkür ediyorum.
  • 09-06-2014, 13:38:50
    #7
    🌐 𝘀𝗼𝗰𝗶𝗳𝗹𝘆.𝗰𝗼𝗺
    white35 adlı üyeden alıntı: mesajı görüntüle
    Üstad konuda yazdığım gibi benden ücret veya başka bir talebin olursa seve seve gönderebilir veya seve seve yardımcı olmaya çalışırım. Pm atman yeterlidir. Onun dışında tekrar çok ama çok teşekkür ediyorum.
    Böyle problemlerin için ulaşabilirsin hocam.
    Zevkle cevap veririm, herhangi bir ücrete veya bir karşılığa gerek yok.