Espero su pronta respuesta
Código:
if idstatus1= 3 and idstatus = 4 then Response.Write("<script>confirm( '"& "Usted esta a punto de eliminar un usuario nuevo el cual será borrado de su base de datos. ¿Estas seguro de realizar la operación? " &"')</script>") Set LoTckt = CreateObject("Tckt_Consultar.Cls_Consultar") set loResultado=nothing LoTckt.IdCatalogo =44 LoTckt.IdUsuario = ucase(trim (Lineas(i))) LoTckt.Status = idstatus LoTckt.Consultar end if