I am getting this error.

Microsoft VBScript runtime error '800a0046' 

Permission denied: 'MsgBox' 

/fh-lester/obits_data.asp, line 234 


This is my code:

'Prompt the user to ensure they want to delete the Obit
	Dim lngrc
	lngRC = MsgBox("Deleting an Obituitary is irreversible. Are you 
sure you want to delete this obit?",vbOKCANCEL)
		
   'If the user chose OK then proceed
	If lngRC = vbOK Then
	  'Execute the command
	   objCmd.Execute
      'Display the delete string
	   Response.Write "The following delete string was executed and " 
& _
		"the obit deleted from the deceased information table.<P>"
	   Response.Write strSQL 
	End If

You are trying to execute a MsgBox function AT THE SERVER,
through your asp script.  This is not possible.

Larry Woods MCSD, MCT

> -----Original Message-----
> From: Anthony J. Rosati Sr. [mailto:ajrosati@e...]
> Sent: Thursday, October 31, 2002 6:28 PM
> To: Access ASP
> Subject: [access_asp] MSGBOX Help
>
>
> I am getting this error.
>
> Microsoft VBScript runtime error '800a0046'
>
> Permission denied: 'MsgBox'
>
> /fh-lester/obits_data.asp, line 234
>
>
> This is my code:
>
> 'Prompt the user to ensure they want to delete the Obit
> 	Dim lngrc
> 	lngRC = MsgBox("Deleting an Obituitary is
> irreversible. Are you
> sure you want to delete this obit?",vbOKCANCEL)
>
>    'If the user chose OK then proceed
> 	If lngRC = vbOK Then
> 	  'Execute the command
> 	   objCmd.Execute
>       'Display the delete string
> 	   Response.Write "The following delete string
> was executed and "
> & _
> 		"the obit deleted from the deceased
> information table.<P>"
> 	   Response.Write strSQL
> 	End If
>