Errores al eliminar registro en mdb con asp
Buenas
Soy nuevo en esto y te agradecería tu ayuda
tengo una pagina asp que me permite entre otras cosas subir y eliminar ficheros del pc al servidor, pero al darle a enviar o borrar no hace nada, ni muestra ningún error, si lo abres en navegador nuevo
t e 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%>" class="campo2"></td>
</tr>
<tr>
<td class="campo1">Tema: </td>
<td><select name="tema" class="campo2">
<option value="">Seleccione, por favor...
<%=application("temas")%>
</select>
</td>
</tr>
<tr>
<td class="campo1">Fecha: </td>
<td><input type="text" name="fecha" size="20"...
