Éste es el código del index.htm
<form action="recibir.asp" method="post" enctype="multipart/form-data">
Nombre: <input type="text" name="nombreusuario" size="20"><br />
Edad: <input type="text" name="edad" size="5"><br />
Fichero: <br />
<input type="file" name="fichero"><br />
<input type="submit" value="Enviar">
</form>
Éste es el código de la página recibir.asp
<!--#include file="xelupload.asp"-->
<%
Dim objUpload, objFich, strNombreFichero
Dim strNombre, strEdad
'Creamos el objeto
set objUpload = new xelUpload
'Recibimos el formulario
objUpload.Upload()
'Mostramos total de ficheros recibidos
Response.Write ( objUpload.Ficheros.Count & " ficheros recibidos.")
'Mostramos los campos del formulario de texto:
Response.Write ("<p>Tu nombre es " & objUpload.Form("nombreusuario") & "<br>")
Response.Write ("<p>Tu edad es " & objUpload.Form("edad") & "<br>")
'Y ahora mostramos los datos del fichero enviado:
'Lo sacamos a una variable por comodidad
set objFich = objUpload.Ficheros("fichero")
Response.Write ("<p>" & objFich.Nombre & "<br>")
Response.Write("Tamaño: " & objFich.Tamano & "<br>")
Response.Write("Tipo de contenido: " & objFich.TipoContenido & "</p>")
'Guardamos el fichero, con su nombre, en el directorio
'en el que se encuentra esta página
objFich.Guardar(Server.MapPath("."))
'Y guardamos una copia, con nombre "subido.bin"
objFich.GuardarComo("subido.bin", Server.MapPath("."))
'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("nombre") = 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("nombrefichero") = objFich.Nombre
rs.Fields("contenido") = objFich.TipoContenido
'y los datos binarios
objFich.GuardarBD rs.Fields("datos")
rs.Update
rs.Close
Response.Write("Fichero guardado en base de datos.")
'Limpiamos objetos
set oFich = nothing
set objUpload = nothing
rs.Close
set rs = nothing
oConn.Close
set oConn = nothing
%>