%
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
%>