Dunque prima del suicidio ....

Ho provato questa soluzione che ovviamente mi da un errore Javascript che manca oggetto.

.write " <select id=""nPagina"" onChange=""Assegna();refreshUtenti();"">"
For X = 1 To iNbPages
.Write " <option value=""" & X & """"
If X = CInt(myPage) Then .Write " selected"
.Write ">" & X & "</option>" & vbCRLF
Next
.write " </select>" & vbCrLf


.Write "<script type=""text/javascript"" language=""javascript"">" & vbCrLf
.Write "function Assegna()" & vbCrLf
.Write "{" & vbCrLf
.Write "document.getElementById('nPagina').selectedIndex; " & vbCrLf
.Write "}" & vbCrLf
.Write "</script> " & vbCrLf
con assegna() dovrebbe in teoria ricavare il valore attuale dalla OPTION, qualche suggerimento riguardo l'errore che restituisce il browser (Previsto Oggetto) ?