% gdate=now() Set conn = Server.CreateObject("ADODB.Connection") conn.open "DRIVER={Microsoft Access Driver (*.MDB)};DBQ=" & Server.Mappath("host.mdb") sql = "SELECT * FROM [host]" Set rs = Server.CreateObject("ADODB.Recordset") rs.Open sql, conn, 3, 3 On Error Resume Next rs.Addnew rs("name")=Request.Form("name") rs("email")=Request.Form("email") rs("url")=Request.Form("url") rs("country")=Request.Form("country") rs("address")=Request.Form("address") rs("code")=Request.Form("code") rs("package")=Request.Form("package") rs("domain")=Request.Form("domain") rs("numdomain")=Request.Form("numdomain") rs("company")=Request.Form("company") rs("tel")=Request.Form("tel") rs("fax")=Request.Form("fax") rs("note")=Request.Form("note") rs("date")=gdate rs.Update rs.close conn.close %>
|