[Resolvido] cadastro nao da erro

Boas, fiz este cadastro e funciona tudo com excepção a parte mais importante que é a parte em que grava na bd.

Ele nao da nenhum erro, simplesmente nao grava, alguma ideia?

<%
set conn = CreateObject("ADODB.Connection")
conn.Provider = "Microsoft.Jet.Oledb.4.0"
conn.Open Server.MapPath("db/12345678.mdb")
set rs=server.createobject("adodb.recordset")

if request.form("insform.x")>0 then
addusers
end if

sub addusers()

if request.form("Password")<>request.form("Password2") then
Response.Redirect("reguser.asp?erro=Your password fields dont match")
else

if request.form("E-mail")="" or request.form("Name")="" or request.form("LastName")="" or request.form("Username")="" or request.form("Institution")=""or request.form("Password")="" or request.form("Study")="" or request.form("Study")="Choose" or request.form("Date_Birth_day")="" or request.form("Date_Birth_day")="Day" or request.form("Date_Birth_month")="" or request.form("Date_Birth_month")="Month" or request.form("Date_Birth_year")="" or request.form("Date_Birth_year")="Year" then
Response.Redirect("reguser.asp?erro=Please fill all fields mark with (*). ")
else

 instotal = "select * from users WHERE username = '" & Request.Form("Username") & "' or email = '" & Request.Form("E-mail") & "'"
 rs.open instotal,conn,2,2

 If not rs.EOF Then
 Response.Redirect("reguser.asp?erro=That username or e-mail is already in use")
 Else

rs.addnew
rs.fields("email")=request.form("E-mail")
rs.fields("nome")=request.form("Name")
rs.fields("data_reg")=date()
rs.fields("last_name")=request.form("LastName")
rs.fields("username")=request.form("Username")
rs.fields("password")=request.form("Password")
rs.fields("center")=request.form("Institution")
rs.fields("study")=request.form("Study")
rs.fields("website")=request.form("Website")
rs.fields("data_nasc")=request.form("Date_Birth_day")&"-"&request.form("Date_Birth_month")&"-"&request.form("Date_Birth_year")
rs.fields("morada")=request.form("Address")
rs.fields("cidade")=request.form("City")
rs.fields("pais")=request.form("Country")
rs.fields("position")=request.form("Team_Position")
rs.fields("telefone")=request.form("Telephone")
rs.fields("add_by")=Session("user")

'Response.Redirect("reguser.asp?erro=User inserted successfully.")

end if
end if
end if
conn.close
end sub

%>