insert

428 0 0

by langtuphidao

by langtuphidao

                                        
                                                  <%
                              dim conn
                              set conn=server.CreateObject("ADODB.Connection")

                              dim strconn
                              strconn = "Provider = Microsoft.jet.oledb.4.0; data Source = "&server.MapPath("bt.mdb")&";"
                              conn.open strconn
                              conn.execute "insert into khachhang values('"&request.Form("ma")&"','"&request.Form("ten")&"','"&request.Form("dc")&"','"&request.Form("g1")&"','"&request.Form("nuoc")&"')"
                              conn.close
                              %>