RussianHosting.net :: Professional Web Hosting (Windows, Unix)

<%@ Language=VBScript %> <% set conn=CreateObject("ADODB.Connection") conn.Open "Provider=Microsoft.Jet.OLEDB.4.0; Data Source=" & Server.MapPath("db2\hostingdb.mdb") & "; Persist Security Info=False" Set Rs = Server.CreateObject ("ADODB.Recordset") Conn.BeginTrans Rs.Open "client",Conn,3,3 Rs.AddNew Rs("username")=Request.Form("username") Rs("pass")=Request.Form("pass") Rs("name")=Request.Form("name") Rs("surname")=Request.Form("surname") Rs("email")=Request.Form("email") Rs("company")=Request.Form("company") Rs("country")=Request.Form("country") Rs("city")=Request.Form("city") Rs("address")=Request.Form("address") Rs("phone")=Request.Form("phone") Rs("fax")=Request.Form("fax") Rs("domain_reg")=Request.Form("domain_reg") Rs("plan")=Request.Form("plan") Rs("find")=Request.Form("find") Rs("frontpage")=Request.Form("frontpage") Rs("os")=Request.Form("os") Rs("date_reg")=Date() Rs("status")=0 Rs("perenos")=Request.Form("perenos") Rs.Update Conn.CommitTrans Rs.Close Conn.Close %>