<% set rs1=server.CreateObject ("ADODB.recordset") rs1.Open "select * from user where user='" & Request("username") &"' ",conn,3,3 if rs1.recordcount<>0 then response.Write "" else set rs=server.CreateObject ("ADODB.recordset") rs.Open "select * from user",conn,3,3 rs.AddNew rs("name1")=Request("firstname") rs("name2")=Request("lastname") rs("cou")=Request("country") rs("addree")=Request("address") rs("cname")=Request("companyname") rs("mail")=Request("email") rs("tel")=Request("tel3") rs("fal")=Request("fax") rs("user")=Request("username") rs("pws")=Request("username2") rs("info")=Request("comments") rs.update response.Write "" end if %>