invece di fare lo script in JS l'ho fatto in VBScript!!
funziona!!!
esegue la msgbox.
ma se voglio fare una msgbox che abbia l'opzione vbyesno,(cioè fa comparire il messaggio con i tasti "si" e "no"), come posso recuperare il valore del tasto selezionato???
il codice:
Private Sub Button2_Click......
Response.Write(Popup("Questa è la MIA messagebox in VBS"))
End Sub
Function Popup(ByVal Val) As String
Dim testo As String = Val
testo = Chr(34) & Replace(testo, "'", "'") & Chr(34)
Popup = ("<script language=" & Chr(34) & "VBscript" & Chr(34) & ">" & vbCrLf & "msgbox " & testo & ",vbyesno," & Chr(34) & "Attenzione" & Chr(34) & "" & vbCrLf & "</" + "script>")
End Function
Rispondi quotando
