Oggetto Math

[fabiosh75]

Ciao a tutti,
per problemi di linguaggio sono costretto (se si può fare...) a "convertire" uno script per i sondaggi on line da JSCRIPT a VBSCRIPT ho convertito quasi tutto meno il "cuore" del sondaggio ossia il calcolo percentuale con la barra grafica del sondaggio!

Ora ho questo codice:

var a_Perc = Math.round((a_Sql("voti") / TOT_Sql("voti")) * 100)
var b_Perc = Math.round((b_Sql("voti") / TOT_Sql("voti")) * 100)
var c_Perc = Math.round((c_Sql("voti") / TOT_Sql("voti")) * 100)
var d_Perc = Math.round((d_Sql("voti") / TOT_Sql("voti")) * 100)

che dovrei convertire in VBSCRIPT solo che non credo che l'oggetto MATH sia supportato... come posso fare? C'è possibilità di integrare JSCRIPT con VBSCRIPT?
Ciao e grazie

Fabio

[kalosjo]

Math.round equivale alla funzione round di VBScript.

Quindi suppongo che per esempio la prima espressione dovrebbe diventare:

a_Perc = round((a_Sql("voti") / TOT_Sql("voti")) * 100)

[fabiosh75]

Mi dà questo errore:

Errore di run-time di Microsoft VBScript (0x800A01A8)
Necessario oggetto: 'round(...)'

la linea interessata è questa:

Set a_Perc = round((a_Sql("voti") / TOT_Sql("voti")) * 100)

[kalosjo]

Non è round, cosa sono a_Sql e TOT_Sql?

Prova a scrivere round(13/15*100) e vedi se dà errore

[fabiosh75]

No niente sempre lo stesso errore anche scrivendo i numeri quelle variabili che vedi sono delle SELECT alla tabella voti del sondaggio.

Forse è sbagliata la sintassi? Ho trovato quest asintassi per Round:

Round(numero,decimali)

però come la metto la virgola...?

[fabiosh75]

Niente da fare mi dice sempre necessario oggetto Round... forse è un problema di parentesi messe male?

[fabiosh75]

Penso che sbaglio qualcosa nella sintassi e non nell'oggetto ROUND ho provato ad inserire Cint e mi dà sempre questo errore:

Errore di run-time di Microsoft VBScript (0x800A01A8) 
Necessario oggetto: 'Cint(...)'

Ha cosa è dovuto?

[fabiosh75]

Risolto!

Allora credo che era tutto causato da una sintassi errata...

così non funziona

Set a_Perc = round((a_Sql("voti") / TOT_Sql("voti")) * 100

così funziona

a_Perc = a_Sql("voti") / TOT_Sql("voti") * 100

e successivamente il Round lo applico sul Response.Write

<%If d_Sql("voti") = "" Then Response.Write("0") Else Response.Write Round(d_Perc)End if%>