Script: code

Dim script As New ScriptControl

Private Sub cmdCalcJS_Click()
On Error GoTo fout
script.Language = "javascript"
txtScript = txtScript & vbCrLf & script.Eval(txtScript.Text)
Exit Sub
fout:
MsgBox Err.Description
End Sub

Private Sub cmdCalcVBS_Click()
On Error GoTo fout
script.Language = "vbscript"
txtScript = txtScript & vbCrLf & script.Eval(txtScript.Text)
Exit Sub
fout:
MsgBox Err.Description
End Sub

Private Sub cmdCLS_Click()
txtScript.Text = ""
End Sub

Private Sub cmdJS_Click()
On Error GoTo fout
script.Language = "javascript"
script.ExecuteStatement (txtScript.Text)
Exit Sub
fout:
MsgBox Err.Description
End Sub

Private Sub cmdVBS_Click()
On Error GoTo fout
script.Language = "vbscript"
script.ExecuteStatement (txtScript.Text)
Exit Sub
fout:
MsgBox Err.Description
End Sub

[VB Web] - [hlrnet] - [copyright]