Código:
' *** ELIMINAR REGISTRO *** ' If (Request.QueryString("eliminar") <> "") Then IdEspectaculo = Request.QueryString("eliminar") ' Elimino el curso. Sql = "UPDATE "&PREFIJO_TABLAS&"Espectaculos SET Vigente = 0 WHERE IdEspectaculo = "&IdEspectaculo Conn.Execute(Sql) Conn.Close Set Conn = Nothing ' Redirecciono. Response.Redirect("espectaculos.asp") Response.End End If ' *** FIN ELIMINAR REGISTRO *** ' ' *** RECUPERAR REGISTRO *** ' If (Request.QueryString("recuperar") <> "") Then IdEspectaculo = Request.QueryString("recuperar") ' Elimino el curso. Sql = "UPDATE "&PREFIJO_TABLAS&"Espectaculos SET Vigente = 1 WHERE IdEspectaculo = "&IdEspectaculo Conn.Execute(Sql) Conn.Close Set Conn = Nothing ' Redirecciono. Response.Redirect("espectaculos.asp") Response.End End If ' *** FIN ELIMINAR RECUPERAR *** '
Muchisimas gracias de antemano
Un saludo
Orchating