<SCRIPT type="text/vbscript" language="vbscript" src="script/svghelper.vbs">

<SCRIPT type="text/vbscript" language="vbscript">

Sub Render(Byval strDOT,ByRef objSVGViewer)

	on error resume next

	Rander.disabled = true                  

	

	Dim obj

	Set obj = CreateObject("WinGraphviz.DOT")               

	

	if obj is Nothing then

	        Msgbox "Unable to load WinGraphviz ,You may install it first or set this page as trust site in IE !"

	

	else

	                

	        Dim strSVG

	    strSVG = obj.ToSVG(strDOT)                          

	        

	        if (len(strSVG > 0) ) then

	                call syncXMLtoSVG(strSVG,objSVGViewer.getSVGDocument())

	        end if

	end if

	

	Set obj = Nothing

	

	Rander.disabled = false

        

End Sub         

</SCRIPT>

<embed  ID="SVGEmbed" NAME="SVGEmbed"

            src="default.svgz" 

            width="800" 

            height="800" 

            type="image/svg+xml"

            PLUGINSPAGE="http://www.adobe.com/svg/viewer/install/"          

            >

	

<INPUT name="Rander" type="button" value="Render DOT language to SVG Viewer" onclick=

        "vbscript:call Render(txtDOT.value,SVGEmbed)">