Doh never ask a dyslexic to count!

sorry!!!
964 If Err.Number <> 0 AND strMode = "new" Then
965 Call errorMsg("An error has occured while writing to the
database.", "register_USR", "register.asp")
966 ElseIf Err.Number <> 0 Then
967 Call errorMsg("An error has occured while writing to the database.",
"update_USR", "register.asp")
968 End If
969
970 'Disable error trapping
971 On Error goto 0
972
973 'Re-run the query to read in the updated recordset from the
database
974 .Requery
975
976 'Read back in the user ID for the activation email
977 lngUserProfileID = CLng(.Fields("Author_ID"))
978
979 'Close rs
980 .Close
981 End With
Once again sorry i can count (sort of)
Kev