WEB_InterFace.html
<HTML>
        <HEAD>
                <title>Gestione Dati Sviluppo: Cruscotto</title>
                <script type="text/javascript"
src='https://www.google.com/jsapi?autoload={modules:
[{name:"visualization",version:"1",packages:["corechart"]}]}'>
                </script>
                <script type="text/vbscript" src="WEB_InterFace.vbs"></script>
        </HEAD>
        <BODY bgcolor="#E6E6FA" link="blue" alink="blue" vlink="blue"
text="green" onload="Carica_HomePage()">
                <div align="justify" id="Torte_HomePage" style="border: '1px 
solid
green'; z-index: '50'">
                .... .... .... .... elaborazione in corso .... .... .... .... 
</div>
        </BODY>
</HTML>

WEB_InterFace.vbs
Sub HomePage()
    On Error Resume Next
      StrDIV = ""
        Set objConnection = CreateObject("ADODB.Connection")
        objConnection.Open "Provider=Microsoft.ACE.OLEDB.12.0;Data Source=" &
NomeFileACCDB & ";Persist Security Info=False;"
                CommandSQL = "EXEC " & SelectInfo
                Set objRecordset = objConnection.Execute(CommandSQL)
                                objRecordset.MoveFirst
                                Do
                                        If NR Mod VariabileGlobale = 0 Then
                                                IT = IT + 1
                                                Testa = Testa & "<SPAN ID=" & 
NomeTorta & IT & "' Z-INDEX: '" &
IT & "'>" & VbCrLf & _
                                                "<script 
type='text/javascript'>" & VbCrLf & _
                                                
"<!--google.load('visualization', '1', {packages:[" & TipoTorta
& "]});-->" & VbCrLf & _
                                                "google.setOnLoadCallback(draw" 
& VariabileChart & IT & ");" &
VbCrLf & _
                                                "function draw" & 
VariabileChart & IT & "() {" & VbCrLf & _
                                                "var " & VariabileTorta & IT & 
" = new
google.visualization.DataTable();" & VbCrLf
                                        End If
                                        For I = 0 To IC - 1
lettura access
                                        Next
                                        If NR Mod VariabileGlobale = 
VariabileGlobale - 1 Then
creazione chart nel StrDIV
                                        End If
                                        objRecordset.MoveNext
                                Loop Until objRecordset.EOF
        objConnection.Close()
        Set objConnection = Nothing
        Set objRecordset = Nothing
        Set wshShell = Nothing
  Torte_HomePage.InnerHTML = StrDIV
'Torte_HomePage.InnerText = StrDIV
End Sub

but I see nothing in the html page, what happened?

-- 
You received this message because you are subscribed to the Google Groups 
"Google Visualization API" group.
To post to this group, send email to [email protected].
To unsubscribe from this group, send email to 
[email protected].
For more options, visit this group at 
http://groups.google.com/group/google-visualization-api?hl=en.

Reply via email to