Erro com Strings

Alguem sabe me dizer o que raios é isso???

Já tentei converter pra inteiro, vontar pra string, mas não deu.

Desde já eu agradeço, MUITO OBRIGADO :)

Microsoft VBScript runtime error '800a000d'

Type mismatch: '[string: ""]'

/intranet/dimep/teste/userEnviado.asp, line 93

obs.: Ah, a linha 93 é essa aqui.

if (ka<10) and (ka<>"") then

<form action="" method="get" name="mesRef">Escolha o mês de Referencia:<select name="mes">	<option value="<% =hoje_mes_texto(k) %>">Mes</option><%for k=1 to 12response.write "<option value="&k&">"&hoje_mes_texto(k)&"</option>"next%></select><select name="ano">	<option value="<% =l %>">Ano</option><% for l=2005 to hoje_anoresponse.write "<option value="&l&">"&l&"</option>"next%></select><input type="submit" name="enviarMesRef" value="Verificar"></form><br /><%Dim kaka = Request.QueryString("mes")if (ka<10) and (ka<>"") then	ka = "0"&kaelse	if (ka = "") and (month(date)<10) then ka = "0"&month(date)	else ka = month(date)	end ifend ifl = Request.QueryString("ano")	if l="" then l = year(date)	end ifmesRef = ka&lif (ka<>"") or (l<>"") then mesReferencia = "SELECT usuario, mesreferencia, data FROM entregue WHERE mesreferencia = '"& mesRef &"' ORDER BY usuario"	Set RecSet = Conexao.Execute(mesReferencia) function transfDataBR() data = RecSet("data") '// Testa se o mês tem apenas um caracter. teste = mid(data,2,1) ' // Se a mês tiver apenas um caracter, o próximo será o '/'. if teste = "/" then '// Pega apenas o caracter do mês. mes = mid(data,1,1) '// Testa se o dia tem apenas um caracter. teste = mid(data,4,1) '// Se o dia tiver apenas um caracter, o próximo será a '/'. if teste = "/" then dia = mid(data,3,1) '// Conseguentemente o ano estara após a barra. ano = mid(data,5,4) else dia = mid(data,3,2) '// Conseguentemente o ano estara após a barra. ano = mid(data,6,4) end if data = (dia &"/"& mes &"/"& ano) else mes = mid(data,1,2) '// Testa se o dia tem apenas um caracter. teste = mid(data,5,1) '// Se o dia tiver apenas um caracter, o próximo será a '/'. if teste = "/" then dia = mid(data,4,1) '// Conseguentemente o ano estara após a barra. ano = mid(data,6,4) else dia = mid(data,4,2) '// Conseguentemente o ano estara após a barra. ano = mid(data,4,4) end if '// Concatena as variaveis no formato BR. data = (dia &"/"& mes &"/"& ano) end if '// Imprime a data completa response.write(data) response.write(hora)	end function%>