1 2 3 4 5 6 7 8 9 10 11 12 13 14 15 16 17 18
| <%@LANGUAGE="VBSCRIPT"%>
<%
vlogin=Request.Form("login")
vpassword=Request.Form("password")
filePath=Server.MapPath("BDUsers.mdb")
Set Connection = Server.CreateObject("ADODB.Connection")
Connection.Open="Provider=Microsoft.Jet.OLEDB.4.0;Data Source="&filePath
sql="INSERT INTO Users(nom,password) VALUES ('"&vlogin&"','"&vpassword&"')"
Set obj_RecordSet=Server.CreateObject("ADODB.Recordset")
Set obj_RecordSet=Connection.Execute(sql)
Connection.close
Set Connection=nothing
%> |