Error (0x800A0046) en msgbox

[DkarnDuuk]

hola a tod@s!

me ha surgido este error:

Tipo de error:
Error de Microsoft VBScript en tiempo de ejecución (0x800A0046)
Permiso denegado: 'msgbox'
.../.../pagina.asp linea, 16

cuando intento ejecutar este codigo:

ident=request.querystring("num")

if (msgbox("¿Quieres borrar este registro?",vbinformation+vbYesNo,"Eliminar registro"))=vbyes then

Set Conn=Server.CreateObject("ADODB.Connection")
Conn.open "webtema"

sql="delete * from '"& request.querystring("web") &"' where id="& ident
set rs=Conn.execute (sql)

response.redirect "sacar.asp"

end if

como veis lo q hago es borrar el registro si pinchan el boton "si" en el msgbox pero no se pq me da ese error.

muchas gracias

[DkarnDuuk]

por cierto, la linea donde me da el error es donde pregunto si ha pulsado el boton "si"

[u_goldman]

Si, porque estás tratando de hacer un msgbox del lado del servidor, recuerda que tendría que ser en el cliente, te recomiendo utilizar javascript para este propósito, aunque tendrías que cambiar un poco tu código ya que para ejecutar en el servidor el borrado de tus registros, tienes que recargar la página o llamar a otro asp:

ident=request.querystring("num")
%>
<script language=javascript>
if(confirm("¿Quieres borrar este registro?""))
{
location.href= "borra.asp?id=ident"
}
</script>

Y bueno, luego en el borra.asp haces todo el show de borrar, aunque esta solución está un poco mal estructurada pues te puedes ahorrar un llamado, a este asp, haciendo lo mismo desde que envías el querystring en tu página anterior. Sin embargo, la idea es la misma.

Salu2,