Una vez que he alojado mis paginas asp en el servidor, me encuentro con que el codigo que me funciona en mi servidor web local, no me funciona en Internet puesto que me da el siguiente codigo de error (obviamente el aspupload está instalado en el servidor de Internet):
-----------------------------
Persits.Upload.1 error '800a0005'
El sistema no puede hallar la ruta especificada.
/amanciodeportes/gestion_tienda/productos/insertar/insertar_producto_result.asp, línea 19
-----------------------------
Vean el Código. Les señalo la línea 19 indicada en el mensaje de error en rojo. He comprobado la ruta y es correcta.
Código:
Gracias por leer el mensaje. [ <%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% response.Expires=0 Response.AddHeader "PRAGMA", "NO-CACHE" %> <!DOCTYPE HTML PUBLIC "-//W3C//DTD HTML 4.01 Transitional//EN" "http://www.w3.org/TR/html4/loose.dtd"> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=iso-8859-1"> <title>Administrar Productos</title> </head> <!--#INCLUDE file="../../../../adovbs.asp"--> <% 'Aquí se usa la coleccion upload.form debido a que el componente AspUplad no 'se lleva bien con el request.form del ASP Set Upload = Server.CreateObject("Persits.Upload.1") 'Carpeta donde se subirán los ficheros Upload.Save(server.mappath("\images\prueba")) %> <%'Para conexión a dsn arsys con ACCESS set Conn= Server.CreateObject("ADODB.Connection") Conn.ConnectionString = "DSN=clubviajesoferta.com.amancio" Conn.open Set RS=Server.CreateObject("ADODB.Recordset") rs.activeconnection=conn rs.source="productos" rs.Locktype = adLockOptimistic rs.CursorType = adOpenDinamic rs.open 'Termina aquí la conexion a dsn arsys con ACCESS %> <% 'Recupera las variables del formulario referenciaproducto= Trim(upload.Form("referenciaproducto")) categoriaproducto= Trim(upload.form("categoriaproducto")) nombreproducto= Trim(upload.Form("nombreproducto")) marcaproducto= Trim(upload.form("marcaproducto")) precioproducto= Trim(upload.Form("precioproducto")) tallajeproducto= Trim(upload.form("tallajeproducto")) imagenproducto= Trim(upload.form("imagenproducto")) descbrevproducto= Trim(upload.form("descbrevproducto")) descripcionproducto= Trim(upload.form("descripcionproducto")) temporadaproducto= Trim(upload.form("temporadaproducto")) estadoproducto= Trim(upload.form("estadoproducto")) insertar="True" 'Asignamos los valores predeterminados if referenciaproducto= "" then response.write("el campo ""referencia"" está vacio <br>") insertar="False" end if if categoriaproducto= "" then response.write("el campo ""categoría"" está vacio <br>") insertar="False" end if if nombreproducto= "" then response.write("el campo ""nombre"" está vacio <br>") insertar="False" end if if marcaproducto= "" then response.write("el campo ""marca"" está vacio <br>") insertar="False" end if if precioproducto= "" then response.write("el campo ""producto"" está vacio <br>") insertar="False" end if if tallajeproducto= "" then response.write("el campo ""tallaje"" está vacio <br>") insertar="False" end if if imagenproducto= "" then response.write("el campo ""imagen"" está vacio <br>") insertar="False" end if if descbrevproducto= "" then response.write("el campo ""descripción breve"" está vacio <br>") insertar="False" end if if descripcionproducto= "" then response.write("el campo ""descripción completa"" está vacio <br>") insertar="False" end if if temporadaproducto= "" then response.write("el campo ""temporada"" está vacio <br>") insertar="False" end if if estadoproducto= "" then response.write("el campo ""estado"" está vacio <br>") insertar="False" end if 'Añadimos el registro rs.addnew For each Parametro in upload.Form 'Para ver los nombres de los campos del formulario 'response.write(parametro.name & ", <br>") 'Aquí recogemos el valor del campo del formulario porque las variables solo 'se usan para validar el formulario, debido a que no hay forma de recoger 'los valores que hay en las variables para meterlas en la base de datos LCase(Parametro.value) rs(parametro.name)=(parametro.value) Next 'Este For-Next hace que el fichero se suba al servidor ruta="../images/" For Each File in Upload.Files rs(File.name)=ruta & (File.filename) 'Response.Write File.Name & "= " & File.Path & " (" & File.Size &" bytes)<BR>" Next If Insertar then rs.Update response.write("El producto se ha añadido correctamente a la base de datos <br>") else rs.cancelupdate response.write("<br>El producto no se ha añadido al a base de datos puesto que el/los campo/s arriba indicados no contienen datos") End if rs.close conn.close %> <body> </body> </html>