1. 1.
    0
    _____________________bu kayıt ekleme___________________
    <%
    gelenbilgi=request. form ("mesaj")

    Bcumle = "DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & Server. MapPath("veritabani.mdb")
    Set bag = Server. Createobject("ADODB. Connection")

    bag. Open (Bcumle)
    Set kset = Server. Createobject("ADODB. Recordset")
    sql = "SELECT * FROM anket"
    kset. open sql, bag, 1, 3

    kset. AddNew

    kset("oy")=gelenbilgi


    kset. Update
    kset. Close

    Set kset=nothing
    set bag=nothing
    %>
    ···
   tümünü göster