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?