Untitled

<html>
<body>

<%
    set conn=Server.CreateObject("ADODB.Connection")
    conn.Provider="Microsoft.Jet.OLEDB.4.0"
    conn.Open(Server.Mappath("Project_db.mdb"))

    set rs=Server.CreateObject("ADODB.recordset")
    SQL = "SELECT COUNT(*) AS TotalRecords FROM Registration "
    set rs = conn.Execute(SQL)
if not rs.Eof then
  iTotalRecords = rs.Fields("TotalRecords")
'  response.write("The total no. of records: " & iTotalRecords)
else
  iTotalRecords = 0
end if

dim reg_ID
reg_ID=iTotalRecords+1
'Response.write("<br>" & reg_ID)

dim fname
fname = Request.Form("uname")
dim lname
lname = Request.Form("lname")
dim gend
gend = Request.Form("male")
dim dt
dt = Request.Form("date")
dim mobile
mobile = Request.Form("mob")
dim use
user = Request.Form("user")
dim pass
pass = Request.Form("pass")
dim addr
addr = Request.Form("addr")
dim pin
pin = Request.Form("pin")
dim city
city = Request.Form("city")
dim state
state = Request.Form("state")

sql=" INSERT INTO Registration (Reg_ID,First_Name,Last_Name,Gender,Date_of_birth,Mobile_No,Username,Password,Address,Pincode,City,State) VALUES ('" & reg_ID & "','" & fname & "','" & lname & "','" & gend & "','" & dt & "','" & mobile & "','" & use & "','" & pass & "','" & addr & "','" & pin & "','" & city & "','" & state & "');"
'Response.write(sql)
'conn.Open(Server.Mappath("Project_db.mdb"))
'conn.Execute(sql)

if err<>0 then
    Response.Write("No update permissions!")
 else
    Response.Write("<h3>" & recaffected & "record added</h3>")
  end if

conn.close
'rs.close
'set rs=Nothing
%>


</body>
</html>