pequeña gran duda sobre los if

[Esfinge02]

e echo eso pero me sige marcando lo mismo

<%
dim opcat
opcat = request.QueryString("opcat")

select case opcat
case 1
%>
<!--#include file="catpregunta.asp"-->
<%case 2%>
<!--#include file="catencusta.asp"-->
<%case 3%>
<!--#include file="catperiodos.asp"-->
<%case 4%>
<!--#include file="foro.asp"-->
<%case 5%>
<!--#include file="insmaestro.asp"-->
<%case 6%>
<!--#include file="catcarrera.asp"-->
<%end select%>

Error de compilación de Microsoft VBScript error '800a0400'

Se esperaba una instrucción

/tutorias/admon.asp, línea 991

end select


e aqui el error que me a marcado lo curioso es que si lo dejo hasta el numero 5 si funciona curioso.......