<%@ Language=VBScript %> <%Response.Buffer=true%> Company Registration
Company Registration Screen
<% if request.form.item("name")="" then else dim cn,rs,us set con=server.CreateObject("adodb.connection") set rs=Server.CreateObject("Adodb.recordset") set rs1=Server.CreateObject("Adodb.recordset") set rs2=Server.CreateObject("Adodb.recordset") con.Open "Provider=microsoft.jet.oledb.4.0;Persist Security Info=false; Data Source ="&SERVER.MapPath("selling.mdb") rs.open "select * from company",con,2,3 rs.addnew rs(0)=Request.Form("name") rs(1)=Request.Form("companyname") rs(2)=Request.Form("address") rs(3)=Request.Form("address1") rs(4)=Request.Form("city") rs(5)=Request.Form("state") rs(6)=Request.Form("country") rs(7)=Request.Form("pincode") rs(8)=Request.Form("email") rs(9)=Request.Form("rphone") rs(10)=Request.Form("ophone") rs(11)=Request.Form("fax") rs(12)=date rs(13)=Request.Form("companyname") rs(14)="Not" rs.update rs.close response.redirect "mainframe.asp" %> <% response.write "Record is updated You Can Add Another Record" end if %>
Back
                                          

Owner Name   

 Company Name

Address           

Address1          

City                   

 State                

Country            

 Area code         

Telephone Res    

 Office Phone No

Email               

 Fax                         

Date