Our Innovation


Our Products


<% dim name,password,fname,lname,quali,email,address,contact username=ucase(trim(request.form("name"))) password=ucase(trim(request.form("password"))) fname=ucase(trim(request.form("fname"))) lname=ucase(trim(request.form("lname"))) quali=ucase(trim(request.form("quali"))) email=ucase(trim(request.form("email"))) address=ucase(trim(request.form("address"))) contact=ucase(trim(request.form("contact"))) set rs=nothing set rs=server.CreateObject("adodb.recordset") ' rs.open "insert into login values('" & username & "','" & password & "','"& fname &"','"& lname &"','"& quali &"','"& email &"','"& address &"','"& contact &"')",con,2,3 rs.open"select * from login where uname='"& username &"'",con,2,3 'if not rs.EOF then rs.Addnew rs.fields(0)=username rs.fields(1)=password rs.fields(2)=fname rs.fields(3)=lname rs.fields(4)=quali rs.fields(5)=email rs.fields(6)=address rs.fields(7)=contact rs.update Response.Write("Your Account Created Successfully") rs.close 'else 'Response.write("Username already exists") 'end if %> replace with your keywords replace with your keywords replace with your keywords replace with your keywords replace with your keywords replace with your keywords replace with your keywords replace with your keywords