Erro com Strings

[ClauberStipkovic 0]

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%>

[Mário Monteiro 179]

voce esta comparando com texto e com numeroo que tem nesta variavel???

[ClauberStipkovic 0]

Olá Mario, Então ...ela esta trazendo um numero.Obrigado :)

[Mário Monteiro 179]

então nao compara com textosó isso não basta para sua logica??if (ka<10) thenE se não bastar no maximo voce deveri fazer issoif (ka<10) and IsNumeric(ka) thenveja ai