
17/06/2004, 14:00
|
| | Fecha de Ingreso: junio-2004
Mensajes: 35
Antigüedad: 20 años, 9 meses Puntos: 0 | |
Parece que nos vamos acercando, pero da error 500
asi quedo el código de comprueba.asp el html está igual
<%@LANGUAGE="VBSCRIPT"%>
<%
nombre_archivo = Request.QueryString("nombre")
'Aquí tendremos que ejecutar la consulta a la BBDD
Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")
Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/mdb-database/portadas.mdb")
Dim Temp
Temp="Select * From audio Where UCase(pal)=nombre_archivo
Tabla.Open Temp,Conexion,2,3,1
accion = ""
mensaje = ""
if NOT Rs.EOF Then
mensaje = "<center><font size='2' face='Verdana, Arial, Helvetica, sans-serif'>"
mensaje = mensaje & "El Archivo <b>" & nombre_archivo & "</b> ya existe en la BBDD<br><br>"
mensaje = mensaje & "<input type='button' name='Submit' value='Cerrar' onclick='javascript:window.close()'></font></center>"
else
accion = "correcto()"
End if
%>
<html>
<head>
<title>Verificando...</title>
<script language="JavaScript">
function correcto(){
opener.document.formulario.Submit.disabled = false;
window.opener.focus();
window.close();
}
</script>
</head>
<body OnLoad="<%= accion %>">
<%= mensaje %>
</body>
</html>
que pudo ocurrir?? |