ASP graf virker ikke i FireFox?
Hjælp!Min kode virker ikke med FireFox... hvad skal jeg gøre??
<html>
<head>
<title>Untitled Document</title>
</head>
<body bgcolor="#CCCCCC">
<%
Function GraphColorArray(nTot)
dim nCur
dim nSafeTot
dim sColorArray
nSafeTot = nTot + 30
Redim sColorArray(nSafeTot)
For nCur = 0 to nTot Step 15
sColorArray(nCur + 1) = "yellow"
sColorArray(nCur + 2) = "teal"
sColorArray(nCur + 3) = "purple"
sColorArray(nCur + 4) = "maroon"
sColorArray(nCur + 5) = "red"
sColorArray(nCur + 6) = "green"
sColorArray(nCur + 7) = "navy"
sColorArray(nCur + 8) = "silver"
sColorArray(nCur + 9) = "lime"
sColorArray(nCur + 10) = "blue"
sColorArray(nCur + 11) = "gray"
sColorArray(nCur + 12) = "olive"
sColorArray(nCur + 13) = "aqua"
sColorArray(nCur + 14) = "fuschsia"
sColorArray(nCur + 15) = "red"
Next
GraphColorArray = sColorArray
End Function
Function ConvertDecimalPlace(sVal,nPlaces)
Dim nEndPos
sVal = Trim(sVal)
nEndPos = InStr(1, sVal,".", vbTextCompare)
if nEndPos >= 1 then sVal = Mid(sVal,1,nEndPos + 2)
ConvertDecimalPlace = sVal
End Function
Sub WriteBarGraph(sColorArray,sBarDesc,nBarNum,nBarScore,nBarTotalScore)
dim nPerc
dim nColors
dim nDivCnt
dim sH
on error resume next
nPerc = 0
nDivCnt = nBarNumber
if nBarTotalScore > 0 then nPerc = clng(nBarScore) / clng(nBarTotalScore) * 100
nPerc = ConvertDecimalPlace(nPerc,2)
With Response
.write "<tr>" & vbcrlf
.write "<td valign=top align=left nowrap>" & sBarDesc & "</td>"
.write "<td valign=top align=left nowrap><div id=rpt" & nDivCnt & " style=""width=" & nPerc & "px; "
.write " background-color: " & sColorArray(nBarNum) & "; "
.write " layer-background-color: " & sColorArray(nBarNum) & """ ></div></td>"
.write "<td valign=top align=right>" & nPerc & "%</td>"
.write "</tr>"
End With
End Sub
Sub WriteTest()
Dim nCur
Dim nMax
Dim nScore
Dim sColorArray
nMax = 5
lTotal = 100
sColorArray = GraphColorArray(clng(nMax))
With Response
.write "<table align=center border=0 width='20%'>"
Call WriteBarGraph(sColorArray,"Bar 1",1,100,lTotal)
Call WriteBarGraph(sColorArray,"Bar 2",2,27,lTotal)
Call WriteBarGraph(sColorArray,"Bar 3",3,21,lTotal)
Call WriteBarGraph(sColorArray,"Bar 4",4,13,lTotal)
Call WriteBarGraph(sColorArray,"Bar 5",5,73,lTotal)
Call WriteBarGraph(sColorArray,"Bar 6",6,37,lTotal)
Call WriteBarGraph(sColorArray,"Bar 7",7,13,lTotal)
Call WriteBarGraph(sColorArray,"Bar 8",8,15,lTotal)
Call WriteBarGraph(sColorArray,"Bar 9",9,38,lTotal)
.write "</table>"
End With
End Sub
WriteTest
%>
</body>
</html>
