Ver Mensaje Individual
  #32 (permalink)  
Antiguo 17/06/2004, 14:00
eusol
 
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??
__________________
Colaborador de
www.alicun.com