asp Gerar Código de Barras via ASP

[PRWebMaster 0]

Bom dia

Estou com um probleminha e gostaria por favor da ajuda de vocês.

Preciso por intermédio de uma função gerar um código de barras a partir de um número que vem de uma tabela SQLSERVER.
O campo que está nesta tabela é VARCHAR e a função é essa:

'Substitua o valor do parâmetro abaixo pelo número do código de barras.
WBarCode(codBarras(CInt("num_manutencao") ))
'WBarCode( Valor )
Dim f, f1, f2, i
Dim texto
Const fino = 1
Const largo = 3
Const altura = 50
Dim BarCodes(99)
if isempty(BarCodes(0)) then
  BarCodes(0) = "00110"
  BarCodes(1) = "10001"
  BarCodes(2) = "01001"
  BarCodes(3) = "11000"
  BarCodes(4) = "00101"
  BarCodes(5) = "10100"
  BarCodes(6) = "01100"
  BarCodes(7) = "00011"
  BarCodes(8) = "10010"
  BarCodes(9) = "01010"
  for f1 = 9 to 0 step -1
    for f2 = 9 to 0 Step -1
      f = f1 * 10 + f2
      texto = ""
      for i = 1 To 5
        texto = texto & mid(BarCodes(f1), i, 1) + mid(BarCodes(f2), i, 1)
      next
      BarCodes(f) = texto
    next
  next
end if
'Desenho da barra

' Guarda inicial
%>
<img src=p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=p.gif width=<%=fino%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img
<%
texto = valor
if len( texto ) mod 2 <> 0 then
  texto = "0" & texto
end if

' Draw dos dados
do while len(texto) > 0
  i = cint( left( texto, 2) )
  texto = right( texto, len( texto ) - 2)
  f = BarCodes(i)
  for i = 1 to 10 step 2
    if mid(f, i, 1) = "0" then
      f1 = fino
    else
      f1 = largo
    end if
    %>
    src=p.gif width=<%=f1%> height=<%=altura%> border=0><img
    <%
    if mid(f, i + 1, 1) = "0" Then
      f2 = fino
    else
      f2 = largo
    end if
    %>
    src=b.gif width=<%=f2%> height=<%=altura%> border=0><img
    <%
  next
loop
' Draw guarda final
%>
src=p.gif width=<%=largo%> height=<%=altura%> border=0><img
src=b.gif width=<%=fino%> height=<%=altura%> border=0><img
src=p.gif width=<%=1%> height=<%=altura%> border=0>
<%
'end sub
%>

 

Só que está ocorrendo um erro na exibição:

Erro de tempo de execução do Microsoft VBScript erro '800a000d'
Tipos incompatíveis: 'WBarCode'
/sistema_os_atendimento_hcs_v.3.1/hcs/lista_om_transferidos.asp, linha 963

 

A linha 963 é essa:

WBarCode(codBarras("num_manutencao") )

 

POR FAVOR PRECISO MUITO DE AJUDA!

 

Muito Obrigado!

 

 

[hargon 64]

Seu código não está completo.

 

Por exemplo, end sub está comentado. Mas se não tivesse, onde está o inicio do sub?

 

Pelo visto o objetivo da linha que você tenta executar era executar uma função ou procedimento.

 

Descomente o 'WBarCode( Valor) e acrescente Sub WBarCode( Valor)

 

Descomente o 'end sub .

 

Altere  a linha WBarCode(codBarras("num_manutencao") ) para Call WBarCode(codBarras("num_manutencao") ) .

 

Faz o ajuste veja se o erro permanece.