<%

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

%>