on error resume next problem

jeg har noget kode jeg gerne vil have error handling på men jeg får en fejl hver gang

nemlig den her:
err.description: Type mismatch
err.source: Microsoft VBScript runtime error

koden kommer her
<%
a = 0
do while a < antal

On Error Resume Next
addRealUsr = "INSERT INTO users (username,navn,adresse1,adresse2,postnummer,stad,telefon,firma,email,kreditkort,faktura,aktiv,expdate,cvrnummer) VALUES('" & tmpsnask & "','" & navn & "','" & adresse1 & "','" & adresse2 & "','" & postnummer & "','" & stad & "','" & telefon & "','" & firma & "','" & email & "','" & kreditkort & "','" & faktura & "','" & aktiv & "','" & expdate & "','" & cvr & "')"
Conn.Execute(addRealUsr)

getTries = "SELECT * FROM attempts"
set rs = Conn.Execute(getTries)

attempts = CLng(rs("attempts"))
attempts = attempts+1


updTries = "UPDATE attempts SET attempts='" & attempts & "'"
Conn.Execute(updTries)

getId = "SELECT brugerid,navn FROM users WHERE username = '" & tmpsnask & "' AND email = '" & email & "'"
set rsid = Conn.Execute(getId)


nytid = rsid("brugerid")


set gpw = Server.Createobject("pw6.genpw")

gpw.generate "K", nytid, expdate

username = gpw.username
password = gpw.password

set gpw = nothing

userinfo = userinfo & "Brugernavn: " & username & VbCrLf & "Kodeord: " & password & VbCrLf & VbCrLf

updUsr = "UPDATE users SET username='" & username & "',password='" & password & "' WHERE brugerid = '" & nytid & "'"
Conn.Execute(updUsr)
a=a+1
movenext
loop
If Err.Number <> 0 Then
error = Err.Description
fejltype = "realuser db error 6 - ordrefejl "
addErr = "INSERT INTO errors (errortype, error, navn, firma, telefon, email) VALUES ('" & fejltype & "','" & error & "','" & navn & "','" & firma & "','" & telefon & "','" & email & "')"
Conn.Execute(addErr)
DelUsr = "DELETE FROM users WHERE brugerid ="&nytid
Conn.Execute(DelUsr)
%>
Der blev fundet en fejl i emailadressen<br>
Prøv venligst at indtaste emailadressen igen<br>
klik <a href="java script:history.go(-1);">her</a> for at komme tilbage<br><br>
Hvis fejlen bliver ved med at forekomme bedes du kontakte support på <a href="mailto:support@neozone.com">support@neozone.com</a>
eller ringe til os på 39126161<br>
Med venlig hilsen<br>
NeoZone supportafdeling
<%
Else
'noget andet
end if
%>