<%@ Language=VBScript %>
<%
fname=request("nnname")
lname=request("llname")
job=request("jjob")
cuntr=request("ccn")
city=request("ccity")
age=request("aage")
tel=request("ttel")
mail=request("email")
mypath=server.MapPath("db.mdb")
x="Provider=Microsoft.Jet.OLEDB.4.0;data source=" & mypath
set cn1=server.CreateObject("ADODB.connection")
cn1.open x
s="select * from TB where email='" & mail & "';"
set t=cn1.execute(s)
if (t.eof) then
set rs1=server.CreateObject("adodb.recordset")
rs1.Open "TB",cn1,3,2
rs1.AddNew()
rs1("Nam")=fname
rs1("Famil")=lname
rs1("job")=job
rs1("kesh")=cuntr
rs1("shah")=city
rs1("sen")=age
rs1("tel")=tel
rs1("email")=mail
rs1.Update
rs1.Close
set rs1=nothing
cn1.close
set cn1=nothing
%>ثبت نام شما با موفقيت به پايان رسيد
<%
ELSE
%>
شما قبلا ثبت نام كرده ايد
<%
end if
%>