Problema con xelUpload

[fueradejuego]

Hola a todos.

Hace poco que programo en asp, soy programador php, pero necesito hacer una web en asp y tengo un problema al intentar subir archivos al servidor.

Este codigo lo sace de enlaces de este foro,pero cuando pulso el boton aceptar del formulario,que solo tiene un objeto tipo file, que se llama "file", se me bloquea el servidor por completo,teniendo incluso que reiniciar el ordenador para poder ver cualquier pagina en asp.

Al principio parace que funciona pero tremendamente lento,hasta que cuando la barra de progreso de carga del explorer llega algo menos de la mitad y ahi se queda.

Alguien puede hecharme una mano o decirme otra forma de subir archivos al servidor sin tener que instalar programas en el servidor?

Un saludo y gracias de antemano.

Ahi pongo el codigo:


<!--#include file="xelupload.asp"-->
<%
Dim oConn, rs, SQL
Dim objUpload, objFich, strNombre, strEdad
Dim maxtam, strNombreFichero

maxtam = 15 * 1024

set objUpload = new xelUpload
objUpload.Upload()

'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
Response.Write("¡No has subido ningún fichero!")
else
'accedemos al fichero por su nombre en el formulario
set objFich = objUpload.Ficheros("file")
if objFich.Tamano <= maxtam then
'Es el fichero correcto

'En nuestro directorio imagenes con el nombre que tiene
objFich.Guardar Server.MapPath("imagenes")

Response.Write "Se ha añadido el nuevo usuario <b>" & strNombre & "</b>, " _
& "con el fichero " & objFich.Nombre & " de tamaño " & objFich.Tamano & "."

'Limpiamos nuestro xelUpload y el fichero
set oFich = nothing
set objUpload = nothing

else
'No era un fichero válido
Response.Write("No es un fichero aceptable. ")
end if

end if
%>