CDec in ASP

Hey,
I have the folowing code in ASP file, but it seems like the third line generates an error.
this is a simple conversion from hexa value to decimal. and it works fine in VB.

HexStr = "FFFFFF"
msgbox "&h"+cstr(HexStr)
msgbox CDec("&h" +cstr(HexStr))
msgbox "end"


* The end message doesn't appere!
gshrikiAsked:
Who is Participating?
 
nigelroweConnect With a Mentor Commented:
Whoops, that should be...

a = "&hffffffff"
If IsNumeric(a) Then
    response.write CLng(a)
End If
0
 
epeeleCommented:
msgbox and CDec are not available in ASP.
0
 
GizmoCommented:
Msgbox is avalible if you do it in VBScript:

<SCRIPT language="VBScript">
     Dim intBoxResult

     intBoxResult = MsgBox("Blaha Blaha" & vbCrLf & vbCrLf & "Are you sure?",52,"Sure?")
                   
     select case intBoxResult
             case 6     ' Yes
                location.replace("xx.asp?do=deleteid=<%=intID%>")
             case 7     ' No
                history.go(-1)
     
     end select
     
</SCRIPT>

That will display a msgbox...
As and you can see it's possible to mix in ASP code (<%=intID%>....

~Gizmo
0
Cloud Class® Course: Ruby Fundamentals

This course will introduce you to Ruby, as well as teach you about classes, methods, variables, data structures, loops, enumerable methods, and finishing touches.

 
GizmoCommented:
This might explain things a bit better.. =)

<%

Sub DisplayMsgBoxConfirm(intID)

<SCRIPT language="VBScript">
    Dim intBoxResult

    intBoxResult = MsgBox("Blaha Blaha" & vbCrLf & vbCrLf & "Are you sure?",52,"Sure?")
                   
    select case intBoxResult
            case 6     ' Yes
               location.replace("xx.asp?id=<%=intID%>")
            case 7     ' No
               history.go(-1)
   
    end select
   
</SCRIPT>

end sub


' blaha blaha....

DisplayMsgBoxConfirm(intID)

%>


One thing to think about is that ASP code is run before the VBScript....

~Gizmo
0
 
epeeleCommented:
To clarify even further on what gizmo is saying...

You can use VBScript on the client-side to implement MsgBox, however, this will only be supported in IE browsers.  For Javascript on the client-side, you'd have to use

<script language=javascript>
  alert("This is your message.\n\nSee how it works?");
</script>


But CDec still is not supported.
0
 
gshrikiAuthor Commented:
All the other msgboxes works fine.
but, what can I do with the CDec ? how can i cnvert Hex value to Decimal ???

thank you all for your comments.
0
 
gshrikiAuthor Commented:
All the other msgboxes works fine.
but, what can I do with the CDec ? how can i cnvert Hex value to Decimal ???

thank you all for your comments.
0
 
epeeleCommented:
<script language="VBScript">
    Sub Hex2Dec(Hvalue, Dvalue)
        dim q,a,p
        if Left(Hvalue,2)<>"&h" or Left(Hvalue)<>"&H" then
            alert("Wrong number format!")
        else
            q = mid(Hvalue,3)
            Dvalue=0
           
            while q<>""
                a=left(q,1)
                q=mid(q,2)
                select case a
                    case "1"
                        p=0
                    case "2"
                        p=2
                    case "3"
                        p=3
                    case "4"
                        p=4
                    case "5"
                        p=5
                    case "6"
                        p=6
                    case "7"
                        p=7
                    case "8"
                        p=8
                    case "9"
                        p=9
                    case "A","a"
                        p=10
                    case "B","b"
                        p=11
                    case "C","c"
                        p=12
                    case "D","d"
                        p=13
                    case "E","e"
                        p=14
                    case "F","f"
                        p=15
                    case else
                        p=0
                end select
               
                Dvalue=Dvalue+p*16^len(q)
            wend
        end if
    End Sub
</script>

<!---------* Call the proc *---------->

<body>
<script>
    Hvalue="&hA23"
    Call Hex2Dec(Hvalue,Dvalue)
    alert(Dvalue)
</script>
</body>
0
 
GizmoCommented:
What I can find CDec is only supported in VBA.

The workaround I found is to do the conversation in JavaScript...
using the object.toString function...
But I'm no JavaScript expert (But MSDN makes you one.. hehe)...  

But I'm not sure that's the easiest way to do it..

~Gizmo
0
 
epeeleCommented:
This function converts a hexadecimal value represented by a string into a decimal value.

Function HexToDec(strHex)
  dim lngResult
  dim intIndex
  dim strDigit
  dim intDigit
  dim intValue

  lngResult = 0
  for intIndex = len(strHex) to 1 step -1
    strDigit = mid(strHex, intIndex, 1)
    intDigit = instr("0123456789ABCDEF", ucase(strDigit))-1
    if intDigit >= 0 then
      intValue = intDigit * (16 ^ (len(strHex)-intIndex))
      lngResult = lngResult + intValue
    else
      lngResult = 0
      intIndex = 0 ' stop the loop
    end if
  next

  HexToDec = lngResult
End Function


0
 
nigelroweCommented:
Or try this, it's a bit simpler....

HexStr = "&h" & "FFFFFF"
If IsNumeric(HexStr) Then
    Response.Write "Dec value: " & CLng(HexStr)
End If


0
 
nigelroweCommented:
But you'd better check the length of the hex string first

a = "&hffffffff"
If IsNumeric(a) Then
     response.write Cdbl(a)
End If

"ffffffff" is the largest hex number that will be converted with CLng

0
 
gshrikiAuthor Commented:
Thanks !!! it works !!!
0
 
nigelroweCommented:
Yes, amazing isn't it?

Cheers, have a good day
0
Question has a verified solution.

Are you are experiencing a similar issue? Get a personalized answer when you ask a related question.

Have a better answer? Share it in a comment.

All Courses

From novice to tech pro — start learning today.