Erro de Type mismatch no checkbox

[tuhajo 0]

Olá, estou tentando trazer os dados já cadastrados na tabela para mostrar na tela mas ocorre o erro

 

Type mismatch

 

/Intranet/Movimentacao_Pessoal_dsv/analise_desligamento_rh.asp, line 118

 

Já tentei de tudo e não consigo tirar esse erro, não sei o que pode ser.

 

Segue o código:

SQL = "SELECT * FROM PESQUISA_DESLIGAMENTO P, FUNCIONARIOS F WHERE P.INTMATRICULA=F.INTMATRICULA AND P.INTMATRICULA='"&mat_desligado&"'"
Set Rs = ConBanco.Execute(SQL)

if not rs.eof  then
   num_pergunta=split(""&rs("NUM_QUESTAO"),",")

   if (ubound(num_pergunta) <> "") then
       for x = lbound(num_pergunta) to ubound(num_pergunta) 

           num_pergunta = rtrim(num_pergunta(x))            

       next
   end if
end if

<tr>
     <td class="texto1" bgcolor="#ffe4e1"><input id="rad_op_tempo_emp" name="rad_op_tempo_emp" type="radio" value="1" <% if (num_pergunta = 1 and ind_resp = "1") then %> checked <% end if %> disabled> <font color="red">< 03 meses</font></td>
     <td class="texto1" bgcolor="#ffe4e1"><input id="rad_op_tempo_emp" name="rad_op_tempo_emp" type="radio" value="2" <% if (num_pergunta = 1 and ind_resp = "2") then %> checked <% end if %> disabled> <font color="red">de 03 a 06 meses</font></td>
     <td class="texto1" bgcolor="#ffe4e1"><input id="rad_op_tempo_emp" name="rad_op_tempo_emp" type="radio" value="3" <% if (num_pergunta = 1 and ind_resp = "3") then %> checked <% end if %> disabled> <font color="red">de 06 meses a 01 ano</font></td>
     <td class="texto1" bgcolor="#ffe4e1" colspan="2"><input id="rad_op_tempo_emp" name="rad_op_tempo_emp" type="radio" value="4" <% if (num_pergunta = 1 and ind_resp = "4") then %> checked <% end if %> disabled> <font color="red">mais de um ano</font></td>
    <input type="hidden" name="num_pergunta" value="1">
</tr>

 

Sendo que a linha 118 é a

<td class="texto1" bgcolor="#ffe4e1"><input id="rad_op_tempo_emp" name="rad_op_tempo_emp" type="radio" value="1" <% if (num_pergunta = 1 and ind_resp = "1") then %> checked <% end if %> disabled> <font color="red">< 03 meses</font></td>

e no banco de dados o campo num_questao é do tipo number(2)

[Vinicius Ianni 189]

Testou assim neste trecho?

 

(num_pergunta = 1 and ind_resp = 1)

[tuhajo 0]

Tentei sim... mas continuou dando erro... e o ind_resp é varchar.

 

Agora eu comentei a linha 118 do erro e está ocorrendo outro erro na linha 35:

 

This array is fixed or temporarily locked: 'num_pergunta'

 

/Intranet/Movimentacao_Pessoal_dsv/analise_desligamento_rh.asp, line 35

 

onde a linha 35 é a:

num_pergunta = trim(num_pergunta(x))

[xanburzum 169]

Este erro geralmente acontece quando você faz uma das seguintes tentativas:

 

tentativa de inserir uma data no Access com 'delimitadores;

tentativa de inserir uma data no SQL Server com # delimitadores;

tentativa de inserir uma data no Access ou SQL Server sem delimitadores, ou,

tentativa de inserir uma data malformado.

[tuhajo 0]

Mas no meu caso, não to tentando inserir nenhum dado, só to fazendo select.

[xanburzum 169]

como esta sua string SQL ?

[tuhajo 0]

SQL = "SELECT * FROM PESQUISA_DESLIGAMENTO P, FUNCIONARIOS F WHERE P.INTMATRICULA=F.INTMATRICULA AND P.INTMATRICULA='"&mat_desligado&"'" 
Set Rs = ConBanco.Execute(SQL)

[Vinicius Ianni 189]

Testou assim ?

 

SQL = "SELECT * FROM PESQUISA_DESLIGAMENTO, FUNCIONARIOS WHERE PESQUISEA_DESLIGAMENTO.INTMATRICULA=FUNCIONARIOS.INTMATRICULA AND PESQUISA_DESLIGAMENTO.INTMATRICULA='"&mat_desligado&"'" 

[tuhajo 0]

Testei dessa maneira agora e não funcionou tbm, continuou com o mesmo erro.

[Vinicius Ianni 189]

Os campos a serem comparados são do mesmo tipo ?

Já colocou um Cint por exemplo, para que fiquem todos no mesmo formato ?

[tuhajo 0]

É sim... o campo num_questão é do tipo number(2) e todos os valores são enviados como inteiros.

Já coloquei o cint, nada aconteceu.