No coinciden los tipos

[Sonda]

<% call coneccion(oConn,"./base/IvecoPostVenta.mdb")
dim vecMes(13)
vecMes(0) = "Todos los meses"
vecMes(1) = "Enero"
vecMes(2) = "Febrero"
vecMes(3) = "Marzo"
vecMes(4) = "Abril"
vecMes(5) = "Mayo"
vecMes(6) = "junio"
vecMes(7) = "Julio"
vecMes(8) = "Agosto"
vecMes(9) = "Septiembre"
vecMes(10) = "Octubre"
vecMes(11) = "Noviembre"
vecMes(12) = "Diciembre"


dim vecCe(10)
vecCe(0) = "Todos"
VecCe(1)="AURELIA"
VecCe(2)="AVELLI"
VecCe(3)="BETA"
VecCe(4)="CAMBA"
VecCe(5)="CHACO"
VecCe(6)="FICAMEN"
VecCe(7)="FIORASI"
VecCe(8)="IVECAM"
VecCe(9)="ORTEGA"

dim vecEje(11)
vecEje(0) = "Todos los ejes temáticos"
vecEje(1) = "Satisfacción Global/Razonada"
vecEje(2) = "Acceso al servicio"
vecEje(3) = "Los trabajos realizados"
vecEje(4) = "Recepción del taller"
vecEje(5) = "Estado del taller"
vecEje(6) = "Atención del personal"
vecEje(7) = "Idoneidad del personal"
vecEje(8) = "Aspectos económicos"
vecEje(9) = "Departamento de repuestos"
vecEje(10) = "Reclamos y su tratamiento"

dim matriz(7,4)

f=1
c=1

for f=0 to 7

for c =0 to 4
matriz(f,c) =0
next
next

'dim vecGarantia(3)
'vecGarantia(0) = "Dentro y Fuera de Garantía"
'vecGarantia(1) = "Vehículos dentro de la garantía"
'vecGarantia(2) = "Vehículos fuera de la garantía"




if left(request.form("meses"),1) <> "1" then
mes = left(request.form("meses"),1)
letraDivisoria = mid(request.form("meses"),2,1)
elseif right(left(request.form("meses"),2),1) = "@" then
mes = left(request.form("meses"),1)
letraDivisoria = mid(request.form("meses"),2,1)
else
mes = left(request.form("meses"),2)
letraDivisoria = mid(request.form("meses"),3,1)
end if




anio = right(request.form("meses"),4)
ce = request.form("ce")
garantia = request.form("garantia")
eje = request.form("eje")


if letraDivisoria = "t" then
response.redirect "./trimestre.asp?trimestre=" & mes & "&anio=" & anio & "&ce=" & ce & "&eje=" & eje & "&garantia=" &garantia
end if

if letraDivisoria = "s" then
response.redirect "./semestre.asp?trimestre=" & mes & "&anio=" & anio & "&ce=" & ce & "&eje=" & eje & "&garantia=" &garantia
end if


if mes = "0" then
filtroMes = ""
else
filtroMes = " AND ((m.iMes)="&mes&") AND ((m.iAnio) = " & anio&")"
end if


if ce = 0 then
filtroCe = ""
else
filtroCe =" AND ((m.iCE)="&ce&") "
end if

if garantia = "" then
filtroGarantia = " "
else
filtroGarantia =" AND ((m.bGarantia)="&garantia&") "
end if

if mes = "0" then
response.redirect("vistaResultadosTodos.asp?garant ia="&garantia&"&mes="&mes & "&anio=" & anio & "&ce=" & ce & "&eje=" & eje)
end if


if session("tipoUsuarioIveco") <> "Concesionaria" then


sqla = "SELECT cmb FROM CE WHERE iCodCe = "& request.form("ce")



call nuevoRegistro(rsa)
call abrirRegistro(oConn, rsa, sqla)
valorCE = rsa("cmb")


link = "./vistaResultadosXlss.asp?meses="&request.form("mese s")&"&codigo="&valorCE&"&garantia="&request.form(" garantia")&"&eje="& request.form("eje")
linkb = "./vistaResultadosXLSsCuadro.asp?meses="&request.form ("meses")&"&codigo="&valorCE&"&garantia="&request. form("garantia")&"&eje="& request.form("eje")

call cerrarRegistro(rsa)





else
link = "./vistaResultadosXls.asp?meses="&request.form("meses ")&"&codigo="&session("codec")&"&garantia="&reques t.form("garantia")&"&eje="& request.form("eje")
linkb = "./vistaResultadosXLSCuadro.asp?meses="&request.form( "meses")&"&codigo="&session("codec")&"&garantia="& request.form("garantia")&"&eje="& request.form("eje")
end if

%>
<script>
function MM_openBrWindow(theURL,winName,features) { //v2.0
window.open(theURL,winName,features);
}
</script>


ESTA ES LA LINEA QUE ME TIRA EL ERROR

<td height="18" align="left" valign="bottom" class="tituloCamiones"><span class="subTituloBlanco">&nbsp;&nbsp;&nbsp;&nbsp;&n bsp;Mes elegido:</span><%=vecMes(Mes)%></td>