Originariamente inviato da optime
no. se la costante 'adSchemaColumns' è già in adovbs.inc, non puoi ridefinirla! togli la riga
FUNZIONA !!! mille grazie !
Cartolina ( birra ) inviata !


Codice funzionante:

codice:


<%

Function ConvertTypeCode(c)
Select Case c
    
        Case adDBTimeStamp
            ConvertTypeCode = "adDBTimeStamp"
        Case adArray
            ConvertTypeCode = "adArray"
        Case adBigInt
            ConvertTypeCode = "adBigInt"
        Case adBinary
            ConvertTypeCode = "adBinary"
        Case adSingle
            ConvertTypeCode = "adSingle"
        Case adNumeric
            ConvertTypeCode = "adNumeric"
        Case adLongVarWChar
            ConvertTypeCode = "adLongVarWChar"
        Case adLongVarChar
            ConvertTypeCode = "adLongVarChar"
        Case adLongVarBinary
            ConvertTypeCode = "adLongVarBinary"
        Case adIUnknown
            ConvertTypeCode = "adIUnknown"
        Case adInteger
            ConvertTypeCode = "adInteger"
        Case adIDispatch
            ConvertTypeCode = "adIDispatch"
        Case adGUID
            ConvertTypeCode = "adGUID"
        Case adError
            ConvertTypeCode = "adError"
        Case adEmpty
            ConvertTypeCode = "adEmpty"
        Case adDouble
            ConvertTypeCode = "adDouble"
        Case adDecimal
            ConvertTypeCode = "adDecimal"
        Case adDBTimeStamp
            ConvertTypeCode = "adDBTimeStamp"
        Case adDBTime
            ConvertTypeCode = "adDBTime"
        Case adDBDate
            ConvertTypeCode = "adDBDate"
        Case adDate
            ConvertTypeCode = "adDate"
        Case adCurrency
            ConvertTypeCode = "adCurrency"
        Case adChar
            ConvertTypeCode = "adChar"
        Case adBSTR
            ConvertTypeCode = "adBSTR"
        Case adByRef
            ConvertTypeCode = "adByRef"
        Case adBoolean
            ConvertTypeCode = "adBoolean"
        Case adSmallInt
            ConvertTypeCode = "adSmallInt"
        Case adTinyInt
            ConvertTypeCode = "adTinyInt"
        Case adUnsignedBigInt
            ConvertTypeCode = "adUnsignedBigInt"
        Case adUnsignedInt
            ConvertTypeCode = "adUnsignedInt"
        Case adUnsignedSmallInt
            ConvertTypeCode = "adUnsignedSmallInt"
        Case adUnsignedTinyInt
            ConvertTypeCode = "adUnsignedTinyInt"
        Case adBoolean
            ConvertTypeCode = "adBoolean"
        Case adUserDefined
            ConvertTypeCode = "adUserDefined"
        Case adVarBinary
            ConvertTypeCode = "adVarBinary"
        Case adVarChar
            ConvertTypeCode = "adVarChar"
        Case adVariant
            ConvertTypeCode = "adVariant"
        Case adVector
            ConvertTypeCode = "adVector"
        Case adVarWChar
            ConvertTypeCode = "adVarWChar"
        Case adWChar
            ConvertTypeCode = "adWChar"
End Select
End Function

Set rs = cn.OpenSchema(adSchemaColumns)

do while not rs.eof
  if Trim(rs("TABLE_NAME")) = "codici" then
    Response.Write rs("COLUMN_NAME") & " = " & ConvertTypeCode(rs("DATA_TYPE")) & "
"
  end if  
  rs.MoveNext
loop

rs.Close()
set rs = nothing

cn.close()
set cn = nothing

%>