Lo que pretendo es, a traves de una condicional, no forzar al usuario a
rellenar todos los campos del formulario, solamente por ejemplo objFich1
sería necesario rellenar. Pero el problema está en que ocurren estos errores:
- Si intento enviar un archivo:
Error de Microsoft VBScript en tiempo de ejecución error '800a01a8'
Se requiere un objeto: '[undefined]'
/webpub/Archivos/recibir.asp, line 25
- Si envio 2 o los 3 archivos me dice:
Error de Microsoft VBScript en tiempo de ejecución error '800a01b6'
El objeto no acepta esta propiedad o método
/webpub/Archivos/recibir.asp, line 28
¿Alguien puede ayudarme?. Gracias.
<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich1,objFich2,objFich3, strNombreFichero
Dim strNombre, strEdad
'Creamos el objeto
set objUpload = new xelUpload
'Recibimos el formulario
objUpload.Upload()
'Mostramos total de ficheros recibidos
Response.Write ("<b><font color=""red"">" & objUpload.Ficheros.Count & " ficheros recibidos.</font><br>")
'Mostramos los campos del formulario de texto:
Response.Write ("<font color=""green"">Tu nombre es</font> " & objUpload.Form("nombreusuario") & "<br>")
Response.Write ("<font color=""green"">Tu edad es </font>" & objUpload.Form("edad") & "<br><br><br>")
************************************************** ******************
'Y ahora mostramos los datos del fichero enviado:
'Lo sacamos a una variable por comodidad
set objFich1 = objUpload.Ficheros("fichero1")
set objFich2 = objUpload.Ficheros("fichero2")
set objFich3 = objUpload.Ficheros("fichero3")
if objFich1 = "" then
else
Response.Write("<a href=""file.asp?cover=" & objFich1.Nombre & """>" & objFich1.Nombre & "</a>")
Response.Write(" <font color=""red"">Tamaño:</font> " & objFich1.Tamano & " bytes (" & FormatNumber(objFich1.Tamano / (1024*1024)) & " Mb)")
Response.Write(" <font color=""red"">Tipo de contenido:</font>" & objFich1.TipoContenido & "<br>")
'Guardamos el fichero, con su nombre, en el directorio
'en el que se encuentra esta página
objFich1.Guardar(Server.MapPath("."))
end if
if objFich2 = "" then
else
Response.Write("<a href=""file.asp?cover=" & objFich2.Nombre & """>" & objFich2.Nombre & "</a>")
Response.Write(" <font color=""red"">Tamaño:</font> " & objFich2.Tamano & " bytes (" & FormatNumber(objFich2.Tamano / (1024*1024)) & " Mb)")
Response.Write(" <font color=""red"">Tipo de contenido:</font> " & objFich2.TipoContenido & "<br>")
objFich2.Guardar(Server.MapPath("."))
end if
if objFich3 = "" then
else
Response.Write("<a href=""file.asp?cover=" & objFich3.Nombre & """>" & objFich3.Nombre & "</a>")
Response.Write(" <font color=""red"">Tamaño:</font> " & objFich3.Tamano & " bytes (" & FormatNumber(objFich3.Tamano / (1024*1024)) & " Mb)")
Response.Write(" <font color=""red"">Tipo de contenido:</font> " & objFich3.TipoContenido & "<br><br>")
objFich3.Guardar(Server.MapPath("."))
end if
************************************************** ***************************
'Abrimos una conexión a una base de datos
Dim oConn, rs, SQL
set oConn = Server.CreateObject("ADODB.Connection")
set rs = Server.CreateObject("ADODB.Recordset")
'Nos conectamos con un DSN
oConn.Open "DSN=Pruebas"
'Y abrimos la tabla Datos
SQL = "SELECT * FROM Datos"
'Abrimos el Recordset con cerrojo 2 (adLockPessimiestic)
'que permite modificaciones
rs.Open SQL, oConn, 0, 2
'Añadimos un nuevo registro
rs.AddNew
rs.Fields("nombreusuario") = objUpload.Form("nombreusuario")
rs.Fields("edad") = objUpload.Form("edad")
'Guardamos el contenido del fichero en la base de datos:
'el nombre del fichero, su tipo
rs.Fields("nombrefichero1") = objFich1.Nombre
rs.Fields("size1") = FormatNumber(objFich1.Tamano / (1024*1024))
rs.Fields("nombrefichero2") = objFich2.Nombre
rs.Fields("size2") = FormatNumber(objFich2.Tamano / (1024*1024))
rs.Fields("nombrefichero3") = objFich3.Nombre
rs.Fields("size3") = FormatNumber(objFich3.Tamano / (1024*1024))
rs.Update
rs.Close
set rs = nothing
Response.Write "<font color=""green"">La carga ha tenido exito."
Response.Write "</font>"
'Limpiamos objetos
set oFich1 = nothing
set oFich2 = nothing
set oFich3 = nothing
set objUpload = nothing
oConn.Close
set oConn = nothing
%>
