Nada..... da error 500 creo que es error de asp
he probado de mil maneras y tantas veces que es capaz de romperse el disco duro de tanto sobreescribir el archivo.
Voy a postear el codigo completo a ver si alguien da con la tecla.
El tema está en que el codigo funciona bien, sube la portada y guarda la informacion en la base de datos, pero al querer que no duplique, al insertar estas lineas, siempre dice que existe el archivo aunque no exista.
.............
If Tabla.BOF And Tabla.EOF Then
.............
Else
Response.Write "<font color=""red"">El archivo no se pudo subir a la Base de Datos ... porque existe"
End If
Tabla.Close
...................... Sin estas lineas, funciona perfecto, pero duplica.
Código completo __________________________________________________ _
<% ' Upload Alicun.asp %>
<!--#include file="loader.asp"-->
<%
Response.Buffer = True
Dim load
Set load = new Loader
load.initialize
Dim fileData
fileData = load.getFileData("file")
Dim fileName
fileName = LCase(load.getFileName("file"))
fileName = replace(fileName," ","_")
fileName = replace(fileName,"___","_")
fileName = replace(fileName,"__","_")
Dim filePath
filePath = load.getFilePath("file")
Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")
Dim fileSize
fileSize = load.getFileSize("file")
Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")
Dim contentType
contentType = load.getContentType("file")
Dim countElements
countElements = load.Count
Dim nameInput
nameInput = load.getValue("name")
Dim tipoInput
tipoInput = load.getValue("tipo")
Dim urlInput
urlInput = load.getValue("url")
Dim pathToFile
pathToFile = Server.mapPath("uploaded/") & "\" & fileName
Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)
Set load = Nothing
%>
<html>
<head>
<title>Subir portadas</title>
<style>
body, input, td { font-family:verdana,arial; font-size:8pt; }
</style>
</head>
</TD><TD VALIGN="top" ALIGN="center" BGCOLOR="#333333" BACKGROUND="/fondos/mainBg.gif">
<IMG SRC="/fondos/shim.gif" WIDTH="645" HEIGHT="1"><BR>
<TABLE BORDER="0" CELLPADDING="0" CELLSPACING="0" WIDTH="630">
<TR><TD><IMG SRC="/fondos/modulemenu.gif" WIDTH="630" HEIGHT="20" BORDER="0"></TD></TR>
<TR><TD BACKGROUND="/fondos/moduleBg.gif" ALIGN="center">
<TABLE WIDTH="98%"><TR><TD>
<p align="center">
<font color="#FFFFFF">
<b>Upload de archivos</b></font><br>
<a href="show.asp">Para ver las novedades pulsa aqui</a>
</p>
<div align="center">
<table width="600" border="1" bgcolor="#729DF0">
<tr>
<td>Nombre</td><td><%= fileName %></td>
</tr><tr>
<td>Ruta</td><td><%= filePath %></td>
</tr><tr>
<td>Tamaño</td><td><%= fileSizeTranslated %></td>
</tr><tr>
<td>Contenido</td><td><%= contentType %></td>
</tr><tr>
<td>Nick</td><td><%= nameInput %></td>
</tr>
</table>
</div>
<br>
<p align="center"><font color="#ffffff">
<%
If fileUploaded = True Then
Response.Write fileName & " subido correcto..."
Else
Response.Write "<font color=""red"">Error al subir el fichero (Comprueba el nombre y tamaño) ..."
Response.Write "</font>"
Response.Write "<br>Por favor, selecciona un archivo antes de "
Response.Write " pulsar el botón 'Subir'."
End If
%>
</p>
<div align="center">
<table border="0">
<tr>
<form action="subir.asp" method="post" enctype="multipart/form-data">
<td><font color="#729DF0">Archivo :</font></td>
<td style="padding: 0" colspan="2"><input type="file" name="file" size="38"></td></tr>
<td><font color="#729DF0">Nick :</font></td>
<td><input type="text" name="name" size="35" value="<%= nameInput %>"></td>
<td><p align="right"><select name="tipo">
<option value="Audio">Audio</option>
<option value="Vhs">Vhs</option>
<option value="Dvd">Dvd</option>
<option value="Divx">Divx</option>
<option value="Carteles">Carteles</option>
<option value="Ps1">Ps1</option>
<option value="Ps2">Ps2</option>
<option value="Xbox">Xbox</option>
<option value="Dreamcast">Dreamcast</option>
<option value="Gamecube">Gamecube</option>
<option value="Juegos Pc">Juegos Pc</option>
<option value="Software">Software</option>
<option selected value="-Tipo-"> - Tipo -</option>
</select></p></td></tr>
<input type="hidden" name="url" value="/public/novedades/">
<td> </td><td colspan="2">
<p align="center">
<input type="submit" value="Enviar" name="B1">
<input type="reset" value="Restablecer" name="B2">
</form> </p>
</tr>
</table>
</div>
<%
' empieza bd
Connect = "Driver={Microsoft Access Driver (*.mdb)};DBQ=" & Server.MapPath("novedades.mdb")
Set Tabla = Server.CreateObject("adodb.recordset")
Tabla.Open "Tabla1", Connect, 2, 3
If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("pal") = filename
Tabla("size") = fileSizeTranslated
Tabla("tipo") = tipoInput
Tabla("nick") = nameInput
Tabla("url") = urlInput
Tabla.Update
%>
<font face="Tahoma" size="2"><b><i>Ingreso a la Base de Datos completado</i></b></font></p>
<%
Else
Response.Write "<font color=""red"">El archivo no se pudo subir a la Base de Datos ... porque existe"
End If
Tabla.Close
' fin bd
%>
<p align="center"><font face="Tahoma" size="2">Upload 2004 Alicún.com</font></p>
</TD></TR></TABLE>
__________________________________________________ _
No creo que haga falta el loader.asp pero si hace falta lo posteo entero.