Consulta de insercion

[eurojames]

Tengo un formulario que cuando accedes siempre me inserta un registro en blanco, el código es el siguiente:

On error Resume Next

usuario = replace(request.form("usuario"),"'& quot;,"")
password = replace(request.form("password"),"' ","")
nombre = replace(request.form("nombre"),"'&q uot;,"")
apellidos = replace(request.form("apellidos")," '","")
poblacion = replace(request.form("poblacion")," '","")
provincia = replace(request.form("provincia")," '","")
email = replace(request.form("email"),"'&qu ot;,"")
comentario = replace(request.form("comentario"),&quot ;'","")
'Conexion SQl server
set conexion = Server.CreateObject("ADODB.Connection")
set recordset = Server.CreateObject("ADODB.Connection")
Set adocmd = Server.CreateObject("ADODB.Command")
conexion.Open "Provider=SQLOLEDB;Data Source=S5K9S5;Initial Catalog=CONTROL;User Id=sa;Password=eurojames;OLE DB Services=-2"
set adocmd.ActiveConnection = conexion
adocmd.CommandType = adCmdStoredProc
adocmd.CommandText = "sp_VC_USUARIOS_I"
adocmd.Parameters.Append adocmd.CreateParameter("@usuario", adVarChar, adParamInput, 25,usuario)
adocmd.Parameters.Append adocmd.CreateParameter("@password", adVarChar, adParamInput, 25,password)
adocmd.Parameters.Append adocmd.CreateParameter("@nombre", adVarChar, adParamInput, 30,nombre)
adocmd.Parameters.Append adocmd.CreateParameter("@apellidos", adVarChar, adParamInput, 50,apellidos)
adocmd.Parameters.Append adocmd.CreateParameter("@poblacion", adVarChar, adParamInput, 25,poblacion)
adocmd.Parameters.Append adocmd.CreateParameter("@provincia", adVarChar, adParamInput, 25,provincia)
adocmd.Parameters.Append adocmd.CreateParameter("@email", adVarChar, adParamInput, 50,email)
adocmd.Parameters.Append adocmd.CreateParameter("@comentario", adVarChar, adParamInput, 200,comentario)
set recordset = adocmd.Execute
If Err.Description <> "" then
Response.Write "<B>Error en la entrada de datos: " & Err.Description & "</B>"
Else
Response.Write "<B>ok</B>"

se cierra, rs, conn, cmd