Want to win a PS4? Go Premium and enter to win our High-Tech Treats giveaway. Enter to Win

x
?
Solved

CDec in ASP

Posted on 2001-07-05
14
Medium Priority
?
2,945 Views
Last Modified: 2007-11-27
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!
0
Comment
Question by:gshriki
[X]
Welcome to Experts Exchange

Add your voice to the tech community where 5M+ people just like you are talking about what matters.

  • Help others & share knowledge
  • Earn cash & points
  • Learn & ask questions
  • 4
  • 4
  • 3
  • +1
14 Comments
 
LVL 4

Expert Comment

by:epeele
ID: 6255353
msgbox and CDec are not available in ASP.
0
 

Expert Comment

by:Gizmo
ID: 6255393
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
 

Expert Comment

by:Gizmo
ID: 6255410
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
What does it mean to be "Always On"?

Is your cloud always on? With an Always On cloud you won't have to worry about downtime for maintenance or software application code updates, ensuring that your bottom line isn't affected.

 
LVL 4

Expert Comment

by:epeele
ID: 6255450
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
 

Author Comment

by:gshriki
ID: 6255477
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
 

Author Comment

by:gshriki
ID: 6255522
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
 
LVL 4

Expert Comment

by:epeele
ID: 6255528
<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
 

Expert Comment

by:Gizmo
ID: 6255538
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
 
LVL 4

Expert Comment

by:epeele
ID: 6255573
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
 
LVL 3

Expert Comment

by:nigelrowe
ID: 6255725
Or try this, it's a bit simpler....

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


0
 
LVL 3

Expert Comment

by:nigelrowe
ID: 6255823
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
 
LVL 3

Accepted Solution

by:
nigelrowe earned 400 total points
ID: 6255829
Whoops, that should be...

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

Author Comment

by:gshriki
ID: 6255934
Thanks !!! it works !!!
0
 
LVL 3

Expert Comment

by:nigelrowe
ID: 6256065
Yes, amazing isn't it?

Cheers, have a good day
0

Featured Post

Free Tool: Port Scanner

Check which ports are open to the outside world. Helps make sure that your firewall rules are working as intended.

One of a set of tools we are providing to everyone as a way of saying thank you for being a part of the community.

Question has a verified solution.

If you are experiencing a similar issue, please ask a related question

I have helped a lot of people on EE with their coding sources and have enjoyed near about every minute of it. Sometimes it can get a little tedious but it is always a challenge and the one thing that I always say is:   The Exchange of informatio…
This demonstration started out as a follow up to some recently posted questions on the subject of logging in: http://www.experts-exchange.com/Programming/Languages/Scripting/JavaScript/Q_28634665.html and http://www.experts-exchange.com/Programming/…
This tutorial will teach you the special effect of super speed similar to the fictional character Wally West aka "The Flash" After Shake : http://www.videocopilot.net/presets/after_shake/ All lightning effects with instructions : http://www.mediaf…
Please read the paragraph below before following the instructions in the video — there are important caveats in the paragraph that I did not mention in the video. If your PaperPort 12 or PaperPort 14 is failing to start, or crashing, or hanging, …

636 members asked questions and received personalized solutions in the past 7 days.

Join the community of 500,000 technology professionals and ask your questions.

Join & Ask a Question