Erro 800a0411 no adovbs.inc

[borisgruchka]

O Arquivo cadastro.asp apresenta o seguinte erro:

Microsoft VBScript compilation error '800a0411'

Name redefined

/adovbs.inc, line 14

Const adOpenForwardOnly = 0

------^

O arquivo adovbs.inc (colei apenas o começo porque o arquivo é grande)

Funciona perfeitamente nas demais páginas no site.

<%

'--------------------------------------------------------------------

' Microsoft ADO

'

' © 1996-1998 Microsoft Corporation. All Rights Reserved.

'

'

'

' ADO constants include file for VBScript

'

'--------------------------------------------------------------------

'---- CursorTypeEnum Values ----

Const adOpenForwardOnly = 0 [linha com o "erro"]

Const adOpenKeyset = 1

Const adOpenDynamic = 2

Const adOpenStatic = 3

'---- CursorOptionEnum Values ----

Const adHoldRecords = &H00000100

Const adMovePrevious = &H00000200

Const adAddNew = &H01000400

Const adDelete = &H01000800

Const adUpdate = &H01008000

...

O que devo fazer para o erro desaparecer?

Tem algum mágico que me ensine isto?

Boa programação para todos!

[bareta]

o erro é auto descritivo...

a definicao da variavel é feita duas vezes...

procure onde a adOpenForwardOnly foi definida de novo...

dim adOpenForwardOnly ou const adOpenForwardOnly