Foros del Web - No coinciden los tipos

Hola gente querida, espero que se copen me estoy ropiendo la cabeza con esta pagina que no hize yo y la verdad no se porque me sale este error.
La pagina tiene tres combos anidados que trae los datos de una Bd access, resulta ser que todo lo muestra bien menos una de las opciones aca les dejo el cógido
de fuente de las principales la verdad es que me sacan de un verdadero apuro si me puede ayudar desde ya muchas gracias gente querida espero que puedan ayudarme chau
un abrazo para todos.
Este es error que me tira:

Error de Microsoft VBScript en tiempo de ejecución (0x800A000D)
No coinciden los tipos: '1t'
/IvecoPostVenta/vistaResultados.asp, línea 188

Aca va la primera pagina esta seria la que tiene los combos anidados SE LLAMA superiorResultados.asp

<%@LANGUAGE="VBSCRIPT" CODEPAGE="65001"%>
<!DOCTYPE html PUBLIC "-//W3C//DTD XHTML 1.0 Transitional//EN" "http://www.w3.org/TR/xhtml1/DTD/xhtml1-transitional.dtd">
<html xmlns="http://www.w3.org/1999/xhtml">



<%

call coneccion(oConn,"./base/ivecoPostVenta.mdb")
call nuevoRegistro(rs)
%>

<%
dim vector2007(4)
dim vector2008(4)
dim vectorDescripciones(6)

vector2007(0) = 2007
vector2008(0) = 2008
vectorDescripciones(1) = "1er Trimestre del"
vectorDescripciones(2) = "2do Trimestre del"
vectorDescripciones(3) = "3er Trimestre del"
vectorDescripciones(4) = "4to Trimestre del"
vectorDescripciones(5) = "1er Semestre del"
vectorDescripciones(6) = "2do Semestre del"

for i = 1 to 4
vector2007(i) = 0
vector2008(i) = 0
next

sql = "SELECT DISTINCT iMes AS mes, iAnio AS anio "
sql = sql & "FROM Mediciones order by iAnio DESC, iMes DESC;"
call nuevoRegistro(rs)
call abrirRegistro(oConn, rs, sql)

do while not rs.eof

if rs("anio") = 2007 then

valor = (rs("mes") \ 3)
resto = (rs("mes") mod 3)

if resto > 0 then
valor = valor + 1
end if

vector2007(valor) = vector2007(valor) + 1
' response.write rs("mes") &": " &(valor) & " "
elseif rs("anio") = 2008 then

valor = (rs("mes") \ 3)
resto = (rs("mes") mod 3)

if resto > 0 then
valor = valor + 1
end if

vector2008(valor) = vector2008(valor) + 1

end if

rs.movenext

loop

%>

<head>

<title>barra.gif</title>
<meta http-equiv="Content-Type" content="text/html; charset=utf-8" />

<link href="./estilos/estiloIveco.css" rel="stylesheet" type="text/css">

</head>
<body bgcolor="#ffffff">
<form name="f1" method="post" action="./vistaResultados.asp" target="inferior">

<table width="752" height="83" border="0" align="center" cellpadding="0" cellspacing="0" background="./imagenes/barraSup.gif" class="campTablaDat">
<tr>
<td width="26" align="center" valign="bottom" background="./imagenes/barraSupizq.gif" class="subTituloBlanco Estilo2"> </td>
<td width="700" align="center" valign="bottom" background="./imagenes/barraSuperior.gif" class="subTituloBlanco Estilo2"><table width="700" height="83" border="0" cellpadding="0" cellspacing="0">
<tr>
<td height="33" align="right" valign="bottom" class="dia"><%=replace(replace(diass( WeekDay(now())) ,"-","é"),"$","á")& " " & day(now()) & " de " & messe(month(now())) & " de " & year(now()) %></td>
</tr>
<tr>
<td height="10"> </td>
</tr>
<tr>
<td valign="top"><table width="100%" border="0" cellpadding="0" cellspacing="0">
<tr>
<td width="4" rowspan="2"></td>
<td width="164"><select name="meses" class="comboMeses" id="meses" onchange="document.forms.f1.submit()">
<%
sql = "SELECT DISTINCT iMes AS mes, iAnio AS anio "
sql = sql & "FROM Mediciones order by iAnio DESC, iMes DESC;"
call nuevoRegistro(rs)
call abrirRegistro(oConn, rs, sql)
%>
<option value="0" selected="selected">Mes</option>
<option value="0" >Todos los Meses</option>
<%do while not rs.eof%>
<option value="<%=rs("mes") & "@" & rs("anio")%>"><%=messe(rs("mes")) & " " & rs("anio")%></option>
<%
rs.movenext
loop
call cerrarRegistro(rs)%>
<%for i = 2 to 1 step -1%>
<%if vector2008(i*2) + vector2008((i*2)-1) = 6 then%>
<option value="<%=i&"s"&vector2008(0)%>"><%=vectorDescripc iones(4+i) & " " & vector2008(0)%></option>
<%end if%>
<%next%>
<%for i = 2 to 1 step -1%>
<%if vector2007(i*2) + vector2007((i*2)-1) = 6 then%>
<option value="<%=i&"s"&vector2007(0)%>"><%=vectorDescripc iones(4+i) & " " & vector2007(0)%></option>
<%end if%>
<%next%>
<%for i = 4 to 1 step -1%>
<%if vector2008(i) = 3 then%>
<option value="<%=i&"t"&vector2008(0)%>"><%=vectorDescripc iones(i) & " " & vector2008(0)%></option>
<%end if%>
<%next%>
<%for i = 4 to 1 Step-1%>
<%if vector2007(i) = 3 then%>
<option value="<%=i&"t"&vector2007(0)%>"><%=vectorDescripc iones(i) & " " & vector2007(0)%></option>
<%end if%>
<%next%>
</select></td>
<td width="10"></td>
<td width="129"><label></label>
<select name="ce" class="comboCE" id="ce" onchange="document.forms.f1.submit();">
<% if session("tipoUsuarioIveco") <> "Concesionaria" then %>
<option value="0" selected="selected" >Concesionario</option>
<option value="0" >Todos los CE 's</option>
<%end if%>

<%
call nuevoRegistro(rs)

sql = "SELECT DISTINCT c.iCodCE, c.sCe FROM Mediciones b INNER JOIN ce c ON b.iCe = c.iCodCE ORDER BY c.iCodCE;"

if session("tipoUsuarioIveco") = "Concesionaria" then
sql = "SELECT DISTINCT c.iCodCE, c.sCe FROM mediciones b INNER JOIN CE c ON b.iCe = c.iCodCE "
sql = sql & " WHERE c.iCodCE = "&session("tipoUsuarioCE")
sql = sql & " ORDER BY c.sCe;"
end if

call abrirRegistro(oConn, rs, sql)
do while not rs.eof
%>
<option value="<%=rs(0)%>"><%=UCASE(rs(1))%></option>

<%
rs.movenext
loop
call cerrarRegistro(rs)%>

'end if
%>

</select></td>
<td width="10"></td>
<td colspan="3">
<select name="eje" class="comboMeses" id="select" onchange="document.forms.f1.submit()">
<option value="0" selected="selected">Ejes temáticos</option>
<option value="0">Todos los ejes temáticos</option>
<option value="1" >Satisfacción Global/Razonada</option>
<option value="2">Acceso al servicio</option>
<option value="3">Los trabajos realizados</option>
<option value="4">Recepción del taller</option>
<option value="5">Estado del taller</option>
<option value="6">Atención del personal</option>
<option value="7">Idoneidad del personal</option>
<option value="8">Aspectos económicos</option>
<option value="9">Departamento de repuestos</option>
<option value="10">Reclamos y su tratamiento</option>
</select>
</td>
<td width="10"></td>
<td colspan="3" align="left">
<select name="garantia" class="comboMeses" id="select2" onchange="document.forms.f1.submit()">
<option value="" selected="selected">Dentro y fuera de garantía</option>
<option value="TRUE" >Vehículos dentro de la garantía</option>
<option value="FALSE" >Vehículos fuera de la garantía</option>
</select></td>
<td align="right" valign="bottom"><a href="./logout.asp" target="_parent"><img src="./Imagenes/salirBase.jpg"
alt="Salir"
name="salir"
width="43" height="15" border="0"
id = "salir"
onMouseOver="document.salir.src='./Imagenes/salirBase2.jpg';"
onMouseOut="document.salir.src='./Imagenes/salirBase.jpg';" target="_parent"/></a></td>
<td width="1"></td>
</tr>
<tr>
<td height="9"></td>
<td></td>
<td></td>
<td></td>
<td width="106"></td>
<td width="9"></td>
<td width="54"></td>
<td width="3"></td>
<td width="74"></td>
<td width="12"></td>
<td width="92"></td>
<td width="45"></td>
<td width="1"></td>
</tr>
</table></td>
</tr>

</table></td>
<td width="26" align="center" valign="bottom" background="./imagenes/barraSupder.gif" class="subTituloBlanco Estilo2"> </td>
</tr>
</table>

</form>
</body>
</html>

ok estA fue la primer pagina luego esta misma pasa por esta Que se llama trimestre.asp.