Error asp

[Sayra]

Hola a todos esta aplicación me esta presentando el sigueinte error
Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/admin/usuarios/editar.asp, line 141

else
^

en esa linea lo que esta es esto

Microsoft VBScript compilation error '800a03f6'

Expected 'End'

/admin/usuarios/editar.asp, line 141

else
^

Ya rebice si cierro todos lo if que abro y mi criterio esta bien, sin embargo me continua dando el mismo error
y no entiendo por que

Grcias por la ayuda

abajo pongo el codigo completo

' si edita
if (iUserId <> "") then

If not oRec.eof then
' Parámetros
oConn.ClearParameters
oConn.CreateParameter "@user_nomb" , advarchar, adParamInput,50, Request.Form("first_name")
oConn.CreateParameter "@user_apel" , advarchar, adParamInput,50, Request.Form("last_name")
oConn.CreateParameter "@coun_id" , adtinyint, adParamInput,1, Request.Form("country")
oConn.CreateParameter "@user_mail" , advarchar, adParamInput,50, Request.Form("pers_email")
oConn.CreateParameter "@site_id" , adsmallint,adParamInput, 2, Request.Form("site")
oConn.CreateParameter "@buss_id" , adsmallint,adParamInput, 2, Request.Form("bussines_unit")
oConn.CreateParameter "@user_telf" , advarchar, adParamInput,12, Request.Form("pers_phone")
oConn.CreateParameter "@func_id" , adsmallint,adParamInput, 2, Request.Form("funcion")
oConn.CreateParameter "@user_sdate" , addate, adParamInput, 8, Request.Form("start_year") & "-" & Request.Form("start_month") & "-" & Request.Form("start_day")
oConn.CreateParameter "@user_pgmail", advarchar, adParamInput,50, Request.Form("pg_email")
oConn.CreateParameter "@leve_id" , adtinyint, adParamInput,1, Request.Form("level")
oConn.CreateParameter "@user_univ" , advarchar, adParamInput,50, Request.Form("university")
oConn.CreateParameter "@user_pgtel" , advarchar, adParamInput,12, Request.Form("pg_phone")
oConn.CreateParameter "@user_nive" , adtinyint, adParamInput,1, Request.Form("access_level")

if len(Request.Form("password")) = 0 then
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, "123"
else
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, Request.Form("password")
end if

oConn.CreateParameter "@user_stat" , adtinyint, adParamInput,1, Request.Form("activo")
oConn.CreateParameter "@manager", adInteger, adParamInput, 4, iManager

' Iniciar la transacción
oConn.BeginTrans

oConn.CreateParameter "@user_id", adInteger, adParamInput, 4, iUserId
oConn.ExecuteNonQuery("UpdateUser")
sMess = "The User has been updated"

end if

else
'Nuevo usuario

If oRec.eof then
' Parámetros
oConn.ClearParameters
oConn.CreateParameter "@user_nomb" , advarchar, adParamInput,50, Request.Form("first_name")
oConn.CreateParameter "@user_apel" , advarchar, adParamInput,50, Request.Form("last_name")
oConn.CreateParameter "@coun_id" , adtinyint, adParamInput,1, Request.Form("country")
oConn.CreateParameter "@user_mail" , advarchar, adParamInput,50, Request.Form("pers_email")
oConn.CreateParameter "@site_id" , adsmallint,adParamInput, 2, Request.Form("site")
oConn.CreateParameter "@buss_id" , adsmallint,adParamInput, 2, Request.Form("bussines_unit")
oConn.CreateParameter "@user_telf" , advarchar, adParamInput,12, Request.Form("pers_phone")
oConn.CreateParameter "@func_id" , adsmallint,adParamInput, 2, Request.Form("funcion")
oConn.CreateParameter "@user_sdate" , addate, adParamInput, 8, Request.Form("start_year") & "-" & Request.Form("start_month") & "-" & Request.Form("start_day")
oConn.CreateParameter "@user_pgmail", advarchar, adParamInput,50, Request.Form("pg_email")
oConn.CreateParameter "@leve_id" , adtinyint, adParamInput,1, Request.Form("level")
oConn.CreateParameter "@user_univ" , advarchar, adParamInput,50, Request.Form("university")
oConn.CreateParameter "@user_pgtel" , advarchar, adParamInput,12, Request.Form("pg_phone")
oConn.CreateParameter "@user_nive" , adtinyint, adParamInput,1, Request.Form("access_level")

if len(Request.Form("password")) = 0 then
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, "123"
else
oConn.CreateParameter "@user_pass" , advarchar, adParamInput,10, Request.Form("password")
end if

oConn.CreateParameter "@user_stat" , adtinyint, adParamInput,1, Request.Form("activo")
oConn.CreateParameter "@manager", adInteger, adParamInput, 4, iManager

' Iniciar la transacción
oConn.BeginTrans

oConn.CreateParameter "@user_id", adInteger, adParamOutput, 4, null
' Tomar nuevo id
iUserId = oConn.GetParameterValue("@user_id")
sMess = "The User has been created"
end if
' Guardar las asignaciones de encuestas
' Borrar encustas anteriores (las que no haya contestado el usuario)
oConn.ClearParameters
oConn.CreateParameter "@user_id", adInteger, adParamInput, 4, iUserId
oConn.ExecuteNonQuery("DeleteUserEncuesta")
dim aEncSel
aEncSel = split(Request.Form("encuestas_asig"), ",")
if (isarray(aEncSel)) then
for i=0 to ubound(aEncSel)
oConn.ClearParameters
oConn.CreateParameter "@user_id", adInteger, adParamInput, 4, iUserId
oConn.CreateParameter "@encu_id", adTinyint, adParamInput, 1, aEncSel(i)
oConn.ExecuteNonQuery("InsertUserEncuesta")
next
end if
' Confirmar la transacción
oConn.CommitTrans
else
%>
<script>
alert('User already exist.');
</script>
<%
end if

[Myakire]

Es facilmente observable que te sobra un else.

Para que verifiques, le he quitado todas las lineas que no estan involucradas.

Código:

if (iUserId <> "") then
  If not oRec.eof then
    if len(Request.Form("password")) = 0 then
    else
    end if
  end if
else
  If oRec.eof then
     if len(Request.Form("password")) = 0 then
     else
     end if
  end if
  if (isarray(aEncSel)) then
  end if
else
end if

[Sayra]

Tienes razón muchas gracias