ASP - Como subir un archivo automaticamente

Necesito que al llamar un asp automaticamente me suba al servidor un archivo previamente espesificado sin necesitad de tener un tag de tipo <INPUT TYPE="FILE" ...>, ya intente con el ASPUpload y con el ASPSmartUpload pero estos dos componentes necesitan levantar el nombre del archivo de una etiqueta como la que espesifique previamente, con lo cual, no puedo espesificar el nombre del archivo desde el fuente.

Si alguien me puede ayudar le quedo muy agradecido.

Suerte y hasta la prox.

aqui te alcanzo un codigo para subir un archivo SIN usar ningún objeto adicional. En este ejemplo F1 es el name de tu input type='file'. Escríbeme si necesitas más ayuda. Fíjate que sPath y FolderName referencian la ruta FISICAS del servidor a la cual quieres subir el archivo

spath="d:\" 'Drive
FolderName="uploads\" 'Directorio
Response.Buffer = true
Function BuildUpload(RequestBin)
'Get the boundary
PosBeg = 1
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(13)))
boundary = MidB(RequestBin,PosBeg,PosEnd-PosBeg)
boundaryPos = InstrB(1,RequestBin,boundary)
'Get all data inside the boundaries
Do until (boundaryPos=InstrB(RequestBin,boundary & getByteString("--")))
'Members variable of objects are put in a dictionary object
Dim UploadControl
Set UploadControl = CreateObject("Scripting.Dictionary")
'Get an object name
Pos = InstrB(BoundaryPos,RequestBin,getByteString("Content-Disposition"))
Pos = InstrB(Pos,RequestBin,getByteString("name="))
PosBeg = Pos+6
PosEnd = InstrB(PosBeg,RequestBin,getByteString(chr(34)))
Name = getString(MidB(RequestBin,PosBeg,PosEnd-PosBeg))
PosFile = InstrB(BoundaryPos,RequestBin,getByteString("filename="))
PosBound = InstrB(PosEnd,RequestBin,boundary)
'Test if object is of file type
If PosFile<>0 AND (PosFile<PosBound) Then%

Por favor me podrian enviar el ejemplo a mi tambien

Muchas Gracias !!!!!

MLujan