?>
<!--<%
if len(Request.Form("cmdObsoleto")) then
Dim objDoc
Set objDoc = server.CreateObject("Calidad.clsCNDoc")
objDoc.iniciar(session("base"))
objDoc.ModificarEstadoExterno session("usuario"), request.Form("num")
set objDoc = nothing
response.Clear()
Response.Redirect("exito.asp?Id=Se ha realizado correctamente el cambio de estado del documento")
response.end
end if-->
<?php
$id = $_GET['id'];
$arcDoc = '';
$blnOK = $clsCNDoc->Consulta($id, $arcDoc);
if (!$blnOK) {
}
?>
<!-- dim objCADDoc, arDoc, id, blnOK
set objCADDoc = server.CreateObject("Calidad.clsCADDoc")
objCADDoc.iniciar(session("base"))
id = request.QueryString("Id")
blnOK = objCADDoc.Consulta(id, arDoc)
set objCADDoc = nothing
if not blnOK then
Response.Write (arDoc)
Response.Flush
Response.End
end if