1. Este site usa cookies. Ao continuar a usar este site está a concordar com o nosso uso de cookies. Saber Mais.

Inserção na BD - ASP

Discussão em 'Web Development' iniciada por Tiago Mano, 12 de Junho de 2007. (Respostas: 0; Visualizações: 469)

  1. Boas pessoal.

    Eu estou a fazer uns testes em .asp num servidor "free hosting", o problema é que eu já li muitos tutoriais e quando vou a inserir dá sempre erro ou simplesmente não dá nada. Consigo listar, só que editar, apagar e eliminar não consigo.

    Aqui envio o código de duas formas que tentei:

    --- 1ª Forma:

    Tenho uma página com um formulario que chama esta acção:

    <% sub introduzir()

    conn="DRIVER={Microsoft Access Driver (*.mdb)};"
    conn=conn & "DBQ="&Server.MapPath("../dbd/xpx.mdb")&";"
    Set rs=server.CreateObject("ADODB.Recordset")
    sqlst="INSERT INTO Utilizadores (Login,Pass) VALUES('"& request.form("login") &"','" & request.form("pass") &"')"
    rs.open sqlst,conn,2,1

    %>


    2ª Forma:

    inserir.asp

    <form id="form1" name="form1" method="post" action="confirm.asp">
    Login:
    <label>
    <input name="Login" type="text" id="Login" />
    </label>
    <p>Pass:
    <label>
    <input name="Pass" type="text" id="Pass" />
    </label>
    </p>
    <p>
    <label>
    <input type="submit" name="Submit" value="Submit" />
    </label>
    </p>
    </form>

    confirm.asp

    <%

    Dim oconn
    Dim filepath
    Dim Ors
    DIM SQLStr

    filepath=Server.MapPath("../dbd/xpx.mdb")
    Set oconn = Server.CreateObject("ADODB.CONNECTION")
    oconn.open "PROVIDER=Microsoft.Jet.OLEDB.4.0;Data Source=" & filepath
    set ors=Server.CreateObject("ADODB.Recordset")
    SQLStr = "Insert Into Utilizadores (Login, Pass) "
    SQLStr = SQLStr & "VALUES('" & Server.HTMLEncode(request.form("Login")) & "', '"
    SQLStr = SQLStr & Server.HTMLEncode(request.form("Pass")) & "')"
    oconn.execute SQLStr
    response.redirect("utilizadores.asp")

    %>



    Se alguém me poder ajudar agradeço.
     

Partilhar esta Página