Tal vez haya alguna forma más sencilla, pero se me ocurre esta ahora
Código:
<%
nHex = "08CA"
j = Len(nHex) - 1
For i = 0 to j
nActual = Mid(nHex,i+1,1)
'le damos valores decimales a las letras
If LCase(nActual) = "a" then nActual = 10
If LCase(nActual) = "b" then nActual = 11
If LCase(nActual) = "c" then nActual = 12
If LCase(nActual) = "d" then nActual = 13
If LCase(nActual) = "e" then nActual = 14
If LCase(nActual) = "f" then nActual = 15
nDec = nDec + CInt(nActual)*16^j
j = j - 1
Next
Response.Write nDec
%>