<%
  if request.querystring("lastname")="" then
   response.write " יש למלא כל השדות"
   response.write "<A href=insert.html>חזור </a>"
   response.end
End if

if request.querystring("xname")="" then
   response.write " יש למלא כל השדות"
   response.write "<A href=insert.html>חזור </a>"
   response.end
End if

dim dsn,conn,rs
dsn="DBQ=" & Server.Mappath("xxx.mdb") & ";Driver={Microsoft Access Driver (*.mdb)};"
set conn=server.createobject("adodb.connection")
set rs=server.createobject("adodb.recordset")
conn.open dsn
rs.activeconnection=conn
rs.open "select * from xxx" 
  d =0
do until rs.eof
     if rs.fields("n") = request.querystring("lastname") then
     d= 1
      End if
     rs.movenext
loop
if d = 0  then
      conn.execute "insert into xxx values('" &_
      request.querystring("lastname") & "','" &_
      request.querystring("xname") & "')"
      response.write "<center><font color=red size =5>הרישום הצליח </font></center>"
      conn.close
      set conn=nothing
  else
      response.write "<center><font color=red size =5>שם משתמש כבר קיים </font></center><br>"
end if

%>