<%
option explicit

Dim vchart_title, vchart_subtitle, vchart_comment, vchart_background, vchart_backgroundswf
Dim vchart_titlecolor, vchart_subtitlecolor, vchart_commentcolor, vchart_backgroundcolor
Dim vchart_frame, vchart_frameborder, vchart_framecolor, vchart_framebordercolor
Dim vchart_tooltip, vchart_tooltipcolor, vchart_tooltiptextcolor, vchart_tooltipbordercolor
Dim vchart_horizontaltitle, vchart_horizontaltitlecolor, vchart_verticaltitle, vchart_verticaltitlecolor
Dim vchart_verticalgrid, vchart_verticalgridcolor, vchart_verticalgridlabelcolor
Dim vchart_horizontalgrid, vchart_horizontalgridcolor, vchart_horizontalgridlabelcolor
Dim vchart_horizontalgridlabelorientation, vchart_verticalgridlabelorientation
Dim vchart_legendcolor,vchart_legendbordercolor
Dim vchart_middleline, vchart_middlelinecolor
Dim vseries, vserieslength, vseriesname(30), vseriestype(30), vseriescolor(30), vseriesstyle(30), vseriesspacing(30)
Dim vseriesdatano(30), vseriesdata(30,100)
Dim vlabelno, vlabel(100), vlabelcolor(100)
Dim vchart_max, vchart_min
Dim vreload, vdatafile

'Property
Const vcAll=1
Const vcNone=0

'Chart Types
Const vcBar1="bar1"
Const vcBar2="bar2"
Const vcLine1="line1"
Const vcLine2="line2"		
Const vcLine3="line3"
Const vcPoint1="point1"
Const vcPoint2="point2"
Const vcPie1="pie1"
Const vcStock1="stock1"

'some Color constants
Const vcWhite="FFFFFF00"
Const vcPink="FFC0CB00"
Const vcKhaki="F0E68C00"
Const vcLightYellow="FFFFE000"
Const vcLightGreen="90EE9000"
Const vcLightPurple="80008000"
Const vcSkyBlue="87CEEB00"

Const vcSilver="C0C0C000"
Const vcCoral="FF7F5000"
Const vcGold="FFD70000"
Const vcBeige="F5F5DC00"
Const vcLimeGreen="32CD3200"
Const vcBlueViolet="8A2BE200"
Const vcLightBlue="ADD8E600"

Const vcGray="80808000"
Const vcRed="FF000000"
Const vcOrange="FFA5000000"
Const vcYellow="FFFF0000"
Const vcGreen="00800000"
Const vcIndigo="4B008200"
Const vcBlue="0000FF00"

Const vcDarkGray="A9A9A900"
Const vcFireBrick="B2222200"
Const vcChocolate="D2691E00"
Const vcDarkKhaki="BDB76B00"
Const vcDarkGreen="00640000"
Const vcNavyBlue="00008000"
Const vcRoyalBlue="4169E100"

Function URLEncode(ByVal s)
    URLEncode = Server.URLEncode(s)
End Function

Sub vchart_initialize()
    vchart_title = ""
    vchart_titlecolor = ""		
    vchart_subtitle = ""
    vchart_subtitlecolor = ""		
    vchart_comment = ""
    vchart_commentcolor = ""	
    vchart_background = ""
    vchart_backgroundcolor = ""
    vchart_backgroundswf = ""
	vchart_horizontaltitle=""
	vchart_horizontaltitlecolor=""
	vchart_verticaltitle=""
	vchart_verticaltitlecolor=""
    vchart_verticalgrid=0		
    vchart_verticalgridcolor=""	
    vchart_verticalgridlabelorientation=""
    vchart_verticalgridlabelcolor=""
    vchart_horizontalgrid=0		
    vchart_horizontalgridcolor=""	
    vchart_horizontalgridlabelcolor=""
    vchart_horizontalgridlabelorientation=""
    vchart_frame=""			
    vchart_frameColor=""		
    vchart_frameBorderColor=""	
    vchart_max=""
    vchart_min=""
    vchart_tooltip=""
    vchart_tooltipcolor=""
    vchart_tooltiptextcolor=""
    vchart_tooltipbordercolor=""
    vchart_middleline=""
    vchart_middlelinecolor=""    
    vchart_legendcolor=""
    vchart_legendbordercolor=""
    vdatafile=""
    vreload=0
    vseries = 0
    vserieslength = 0
End Sub

Function DefaultOrientation(vorientation)
    if (vorientation<>"") then
       DefaultOrientation=vorientation
    else 
       DefaultOrientation="labelright"
    end if

End Function

Function DefaultColor(vcolor)
    if (vcolor<>"") then
       DefaultColor=vcolor
    else 
       DefaultColor="00000000"
    end if
End Function

Function DefaultStyle(vstyle)
    if (vstyle<>"") then
       DefaultStyle=vstyle
    else 
       DefaultStyle="solid"
    end if
End Function

Sub vchart_set_title(vtitle,vcolor)
    vchart_title = vtitle
    vcolor=DefaultColor(vcolor)
    vchart_titlecolor = vcolor
End Sub

Sub vchart_set_subtitle(vsubtitle,vcolor)
    vchart_subtitle = vsubtitle
    vcolor=DefaultColor(vcolor)
    vchart_subtitlecolor = vcolor
End Sub

Sub vchart_set_comment(vcomment,vcolor)
    vchart_comment = vcomment
    vcolor=DefaultColor(vcolor)
    vchart_commentcolor = vcolor
End Sub

Sub vchart_set_bgcolor(vbgcolor,vstyle)
    vstyle=DefaultStyle(vstyle)
    vchart_background = vstyle
    vbgcolor=DefaultColor(vbgcolor)
    vchart_backgroundcolor = vbgcolor
End Sub

Sub vchart_set_bgswf(vbgswf)
    vchart_backgroundswf = vbgswf
End Sub

Sub vchart_set_verticalgrid(vinterval,vcolor)
    vchart_verticalgrid=vinterval
    vcolor=DefaultColor(vcolor)
    vchart_verticalgridcolor=vcolor
End Sub

Sub vchart_set_verticalgridlabel(vcolor)
    vcolor=DefaultColor(vcolor)
    vchart_verticalgridlabelcolor=vcolor
End Sub

Sub vchart_set_horizontalgrid(vinterval,vcolor)
    vchart_horizontalgrid=vinterval    
    vchart_horizontalgridcolor=vcolor
End Sub

Sub vchart_set_horizontalgridlabel(vcolor)
    vcolor=DefaultColor(vcolor)
    vchart_horizontalgridlabelcolor=vcolor
End Sub

Sub vchart_set_horizontalgridlabelorientation(vorientation)
	vchart_horizontalgridlabelorientation=DefaultOrientation(vorientation)
End Sub

Sub vchart_set_verticalgridlabelorientation(vorientation)
	vchart_verticalgridlabelorientation=DefaultOrientation(vorientation)
End Sub

Sub vchart_set_frame(vcolor,vstyle)
    vstyle=DefaultStyle(vstyle)
    vchart_frame=vstyle
    vcolor=DefaultColor(vcolor)
    vchart_framecolor=vcolor
End Sub

Sub vchart_set_frameBorder(vcolor, vsize)
   vchart_frameborder=vsize
   vcolor=DefaultColor(vcolor)
   vchart_framebordercolor=vcolor
End Sub

Sub vchart_set_legend(vcolor, vbordercolor)   
   vcolor=DefaultColor(vcolor)
   vchart_legendcolor=vcolor   
   vchart_legendbordercolor=vbordercolor
End Sub

Sub vchart_set_tooltip(vcolor, vstyle, vtextcolor, vbordercolor)
    vcolor=DefaultColor(vcolor)
    vtextcolor=DefaultColor(vtextcolor)
    vstyle=DefaultStyle(vstyle)

    vchart_tooltip=vstyle
    vchart_tooltipcolor=vcolor
    vchart_tooltiptextcolor=vtextcolor
    vchart_tooltipbordercolor=vbordercolor
End Sub

Sub vchart_set_horizontaltitle(vcolor, vhorizontaltitle)
	vchart_horizontaltitle=vhorizontaltitle
	vchart_horizontaltitlecolor=vcolor	
End Sub

Sub vchart_set_verticaltitle(vcolor, vverticaltitle)
	vchart_verticaltitle=vverticaltitle
	vchart_verticaltitlecolor=vcolor	
End Sub


Sub vchart_set_maxvalue(vvalue)
    vchart_max=vvalue
End Sub

Sub vchart_set_minvalue(vvalue)
    vchart_min=vvalue
End Sub

Sub vchart_add_series(vname, vtype, vcolor,vstyle,vspacing)
    vcolor=DefaultColor(vcolor)
    vstyle=DefaultStyle(vstyle)
    vseries = vseries + 1
    vseriesname(vseries) = vname
    vseriestype(vseries) = vtype
    vseriescolor(vseries) = vcolor
    vseriesspacing(vseries) = vspacing
    vseriesstyle(vseries) = vstyle
End Sub

Sub vchart_add_series_data(vseriesno, vvalue)
    vseriesdatano(vseriesno) = vseriesdatano(vseriesno) + 1
    vseriesdata(vseriesno, vseriesdatano(vseriesno)) = vvalue
End Sub

Sub vchart_add_label(vlabelname,vcolor)
    vlabelno=vlabelno+1
    vlabel(vlabelno)=vlabelname
    if vcolor="" or vcolor=null then 
		vcolor="000000"
    end if
    vlabelcolor(vlabelno)=vcolor
End sub

Sub vchart_set_middleline(vsize,vcolor)
	vchart_middleline=vsize
	vcolor=DefaultColor(vcolor)
	vchart_middlelinecolor=vcolor
End Sub

Sub vchart_set_reload(vtime,vfilename)
	vreload=vtime
	vdatafile=vfilename
End Sub

Sub vchart_show()  
    Dim voutput
    Dim vnewline
    'vnewline="<br>"
    if (vchart_title<>"") then
	    voutput = voutput & "vchart_title=" & UrlEncode(vchart_title) & vnewline
	    voutput = voutput & "&vchart_titlecolor=" & vchart_titlecolor & vnewline
    end if
    if (vchart_subtitle<>"") then
	    voutput = voutput & "&vchart_subtitle=" & UrlEncode(vchart_subtitle) & vnewline
	    voutput = voutput & "&vchart_subtitlecolor=" & vchart_subtitlecolor & vnewline
    end if
    if (vchart_comment<>"") then
	    voutput = voutput & "&vchart_comment=" & UrlEncode(vchart_comment) & vnewline
	    voutput = voutput & "&vchart_commentcolor=" & vchart_commentcolor & vnewline
    end if
    if (vchart_backgroundswf<>"") then
	    voutput = voutput & "&vchart_backgroundswf=" & UrlEncode(vchart_backgroundswf) & vnewline
    end if
    if (vchart_background<>"") then
	    voutput = voutput & "&vchart_background=" & vchart_background & vnewline
	    voutput = voutput & "&vchart_backgroundcolor=" & vchart_backgroundcolor & vnewline
    end if
    if (vchart_frame<>"") then
	    voutput = voutput & "&vchart_frame=" & vchart_frame & vnewline
	    voutput = voutput & "&vchart_framecolor=" & vchart_framecolor & vnewline
    end if
    if (vchart_frameborder<>"") then
	    voutput = voutput & "&vchart_frameborder=" & vchart_frameborder & vnewline
	    voutput = voutput & "&vchart_framebordercolor=" & vchart_framebordercolor & vnewline
    end if
    if (vchart_legendcolor<>"") then	    
	    voutput = voutput & "&vchart_legendcolor=" & vchart_legendcolor & vnewline
    end if
    if (vchart_legendbordercolor<>"") then	    
	    voutput = voutput & "&vchart_legendbordercolor=" & vchart_legendbordercolor & vnewline
    end if    
    if (vchart_horizontaltitle<>"") then
	    voutput = voutput & "&vchart_horizontaltitle=" & UrlEncode(vchart_horizontaltitle) & vnewline
	    voutput = voutput & "&vchart_horizontaltitlecolor=" & vchart_horizontaltitlecolor & vnewline
    end if 
    if (vchart_verticaltitle<>"") then
	    voutput = voutput & "&vchart_verticaltitle=" & UrlEncode(vchart_verticaltitle) & vnewline
	    voutput = voutput & "&vchart_verticaltitlecolor=" & vchart_verticaltitlecolor & vnewline
    end if
    if (vchart_verticalgrid<>"") then
	    voutput = voutput & "&vchart_verticalgrid=" & vchart_verticalgrid & vnewline
	    voutput = voutput & "&vchart_verticalgridcolor=" & vchart_verticalgridcolor & vnewline
    end if
    if (vchart_verticalgridlabelcolor<>"") then
	    voutput = voutput & "&vchart_verticalgridlabelcolor=" & vchart_verticalgridlabelcolor & vnewline
    end if
    if (vchart_verticalgridlabelorientation<>"") then
	    voutput = voutput & "&vchart_verticalgridlabelorientation=" & vchart_verticalgridlabelorientation & vnewline
    end if
    if (vchart_horizontalgridlabelorientation<>"") then
	    voutput = voutput & "&vchart_horizontalgridlabelorientation=" & vchart_horizontalgridlabelorientation & vnewline
    end if
    if (vchart_horizontalgrid<>"") then
	    voutput = voutput & "&vchart_horizontalgrid=" & vchart_horizontalgrid & vnewline
	    voutput = voutput & "&vchart_horizontalgridcolor=" & vchart_horizontalgridcolor & vnewline
    end if
    if (vchart_horizontalgridlabelcolor<>"") then
	    voutput = voutput & "&vchart_horizontalgridlabelcolor=" & vchart_horizontalgridlabelcolor & vnewline
    end if
    if (vchart_tooltip<>"") then
	    voutput = voutput & "&vchart_tooltip=" & vchart_tooltip & vnewline
	    voutput = voutput & "&vchart_tooltipcolor=" & vchart_tooltipcolor & vnewline
    end if
    if (vchart_tooltiptextcolor<>"") then
	    voutput = voutput & "&vchart_tooltiptextcolor=" & vchart_tooltiptextcolor & vnewline
    end if
    if (vchart_tooltipbordercolor<>"") then
	    voutput = voutput & "&vchart_tooltipbordercolor=" & vchart_tooltipbordercolor & vnewline    
    end if
    if (vchart_max<>"") then
	    voutput = voutput & "&vchart_max=" & vchart_max & vnewline
    end if
    if (vchart_min<>"") then
	    voutput = voutput & "&vchart_min=" & vchart_min & vnewline
    end if
    if (vchart_middleline<>"") then
	    voutput = voutput & "&vchart_middleline=" & vchart_middleline & vnewline
	    voutput = voutput & "&vchart_middlelinecolor=" & vchart_middlelinecolor & vnewline
    end if
    if (vreload<>"" and vdatafile<>"") then
	    voutput = voutput & "&vreload=" & vreload & vnewline
	    voutput = voutput & "&vdatafile=" & vdatafile & vnewline
    end if
    Dim a,b
    For a = 1 To vseries
        voutput = voutput & "&vseries" & a & "_name=" & UrlEncode(vseriesname(a)) & vnewline
        voutput = voutput & "&vseries" & a & "_type=" & vseriestype(a) & vnewline
        voutput = voutput & "&vseries" & a & "_style=" & vseriesstyle(a) & vnewline
        voutput = voutput & "&vseries" & a & "_color=" & vseriescolor(a) & vnewline
        voutput = voutput & "&vseries" & a & "_spacing=" & vseriesspacing(a) & vnewline
        if vseriesdatano(a)>vserieslength then
			vserieslength=vseriesdatano(a)
        end if
        For b = 1 To vseriesdatano(a)
            voutput = voutput &"&vs" & a & "_" & b & "=" & vseriesdata(a, b) & vnewline
        Next
    Next
    For a = 1 To vlabelno
            voutput = voutput &"&vl_" & a & "=" & UrlEncode(vlabel(a)) & vnewline
            if (vlabelcolor(a)<>"") then
	            voutput = voutput &"&vc_" & a & "=" & vlabelcolor(a) & vnewline
            end if
    Next    
    voutput = voutput & "&vseries=" & vseries & vnewline
    voutput = voutput & "&vseries_length=" & vserieslength & vnewline
    Response.Write voutput &  vnewline
End Sub

%>