<%@language="vbscript"%>

<script language="javascript">
set conn = server.createobject("ADODB.Connection")

conn.mode = 3
set r = server.createobject("ADODB.Recordset")
con.open "driver={Microsoft Access Driver (*.mdb)};DBQ=" & server.MapPath("table1.mdb") & "; Uid=admin; Pwd=;"

i=request.querystring("id")
f=request.querystring("fname")
l=request.querystring("lname")
e=request.querystring("email")
p=request.querystring("pass")
flag=1
%>
var error="";
<%

r.open "select * from table1 where id='" & i & "'" , c

if not r.eof then
%>
   error=error+"השם משתמש קיים";
<%
   flag=0
end if

r.open "select * from table1 where fname='" & f & "'" , c

if not r.eof then
%>
   error=error+"השם שלך כבר נמצא במערכת";
<%
   flag=0
end if
if flag then
   sq="insert into table1 (lname,fname,email,id,pass) values ('" & i & "','" & f & "','" & l & "','" & e &"','" & p & "')"
   con.execute sq
%>
   alert("צורפת בהצלחה למערכת");
<%
else
%>
   alert(error);
<%
end if
%>
</script>