Error documento no esta definido
Buenas
Soy nuevo en esto y te agradecería tu ayuda
tengo una pagina asp que me permite entre otras cosas escribir en una base datos mdb,subir ficheros del pc al servidor y borrar el apunte del mdb, pero al darle a borrar no hace nada, muestra el error, si lo abres en navegador nuevo
Detalles de error de página web
Agente de usuario: Mozilla/4.0 (compatible; MSIE 8.0; Windows NT 5.1; Trident/4.0; BTRS99997; chromeframe/27.0.1453.116; GTB7.5; InfoPath.1; .NET4.0C; .NET CLR 2.0.50727; .NET CLR 3.0.4506.2152; .NET CLR 3.5.30729; AskTbORJ/5.15.23.36191)
Fecha: Fri, 5 Jul 2013 07:21:23 UTC
Mensaje: 'documento' no está definido
Línea: 41
Carácter: 2
Código: 0
URI: http://localhost/biblioteca/normativa/todo/circulares/circulares11.asp?nombre=Se&tema=141
te adjunto código
un saludo y muchas gracias
<!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.0 Transitional//SP">
<!--#include virtual="/rutinas/BaseDatos.asp"-->
<%
nombre = trim(request("nombre"))
tema = request("tema")
DSN="DRIVER={Microsoft Access Driver (*.mdb)};DBQ=" & sLugarBDNormativa
'if application("temas") = "" then
Set con = server.createobject("adodb.connection")
Set rs = server.createobject("adodb.recordset")
cn.open DSN
sSQL = "SELECT * FROM temas ORDER BY descripciontema;"
rs.open sSQL, con,3, 3
cTexto = ""
do until rs.eof
cTexto = cTexto & "<option value=" & rs("codigotema") & ">" & rs("descripciontema") & "</option>"
rs.movenext
loop
cTexto = cTexto & "</select>"
rs.close
cn.close
set rs = nothing
set con = nothing
application("temas") = cTexto
'end if
set con = server.createobject("ADODB.connection")
set rs = server.createobject("ADODB.recordset")
cn.open DSN
sql = "SELECT ubicación,nombre,codigotema,fecha,codigonormativa,estado FROM normativa WHERE ((codigodocumentacion = '4') and (nombre ='" & nombre & "'));"
rs.open sql, con,3, 3
nrec = rs.recordcount
if nrec <> 0 then
aDatos = rs.GetRows
Fichero = aDatos(0,0)
Nombre = aDatos(1,0)
Tema = aDatos(2,0)
Fecha = aDatos(3,0)
id = aDatos(4,0)
Estado=aDatos(5,0)
titulo = "Modificación/Baja de Circular"
else
Fichero = ""
Nombre = nombre
Tema = tema
Fecha = ""
id = 0
titulo = "Alta de Circular"
end if
rs.close
cn.close
set rs = nothing
set con = nothing
%>
<html>
<head>
<title>Mantenimiento de Instrucciones/Circulares</title>
<LINK REL="stylesheet" HREF="/rutinas/biblioteca.css" TYPE="text/css">
<style type=text/css>
body{font: normal 8pt Arial; color: Navy}
.titulo{font: bold 12pt Arial; color: Navy}
td{font: normal 8pt Arial; color: Navy}
.campo1{font: normal 8pt Arial; color: Navy;width: 80px; text-align: right;}
.campo2{font: normal 8pt Arial; color: Navy;width: 100%;}
.botón{font: normal 8pt Arial; color: Navy;width: 80px;height: 20px;}
</style>
<script language="JavaScript" src="/rutinas/subir.js"></script>
<script language="JavaScript">
function Carga()
{
if( <%=tema%> != 0 )
{
for (var i = 0; i < f1.tema.length; i++)
{
if (f1.tema.options.value == <%=tema%> )
{
eval("f1.tema.options.selected=true");
eval("f1.tema.options.defaultSelected =true");
}
else
{
eval("f1.tema.options.selected=false");
eval("f1.tema.options.defaultSelected =false");
}
}
}
}
function BorraDoc()
{
documento.location.href = "circulares3.asp&op=1";
}
function VerFile()
{
if(document.f0.File1.value != "")
{
var cFichero = document.f0.File1.value;
var nDesde = cFichero.lastIndexOf("\\") + 1;
var nHasta = cFichero.length;
var NuevoFichero = cFichero.substring(nDesde,nHasta);
document.f0.boton1.disabled = false;
document.f1.fichero.value = NuevoFichero;
}
else
{
document.f0.boton1.disabled = true;
}
}
function VerForm()
{
if(document.f1.tema.value == "")
{
alert("Debe indicar un TEMA...");
document.f1.tema.focus();
return false;
}
if(document.f1.nombre.value == "")
{
alert("Debe indicar un NOMBRE...");
document.f1.tema.focus();
return false;
}
if(document.f1.fecha.value == "")
{
alert("Debe indicar una FECHA...");
document.f1.fecha.focus();
return false;
}
if(document.f1.fichero.value == "")
{
alert("Debe indicar un FICHERO...");
document.f0.File1.focus();
return false;
}
}
function Antes de()
{
//document.body.style.cursor = "wait";
return true;
}
</script>
</head>
<body leftmargin="5" topmargin="0" style="overflow: auto;" bgcolor="yellow" onLoad="Carga();">
<FORM ENCTYPE="multipart/form-data" METHOD="POST" NAME="f0" action="subirfichero.asp" target="oculto" onSubmit="return Antes de();">
<span class="titulo"><%=titulo%>
<hr>
<table width="100%">
<tr>
<td class="campo1" >Fichero: </td>
<td><input name="File1" size="25" type="file" class="campo2" style="width: 300px;" onChange="VerFile();"><input name="destino" type="hidden" value="/biblioteca/normativa/normatel">
<input type="submit" name="boton1" value="Enviar" class="botón" title="Pulse este botón para enviar el fichero al Servidor." disabled ></td>
</tr>
</table>
</form>
<form name="f1" action="circulares3.asp" method="post" onSubmit="return VerForm();">
<input type="hidden" name="id" value="<%=id%>">
<table width="100%">
<tr>
<td class="campo1">Fichero actual: </td>
<td><input type="text" name="fichero" size="20" value="<%=Fichero%>" class="campo2" readonly></td>
</tr>
<tr>
<td class="campo1">Nombre: </td>
<td><input type="text" name="nombre" size="20" value="<%=Nombre%>"...
