No consigo subir FILES con un nombre que yo doy. - insert.html

A ver...
Esto es un form en un HTML (instert.html) que llama a el famoso

de con loader.asp y su show.asp. Espero que sepais cual digo... El caso
esque no me sube los files peirmero porke no le da la gana y lo segundo
porque tampoco puedo mandarle el nombre del fichero.

Os los expongo aqui a ver si algun alma caritativa puede ayudarme.

INSERT.HTM

//he quitao to lo que sobra pa ir al grano...


<table border="0" align="center">
<tr>
<form method="POST" enctype="multipart/form-data" action="Insert.asp">
<td>Nombre :</td><td>
<input type="text" name="name" size="40"></td></tr>
<td>Fecha Inicial del Evento</td><td>
<input type="text" name="date" size="6"></td></tr>
<td>File :</td><td>
<input type="file" name="file" size="40"></td></tr>
<td>&nbsp;</td><td>
<input type="submit" value="Submit"></td></tr>
</form>
</tr>
</table>



<!--#include file="Loader.asp"-->
<%

Response.Buffer = True

Dim load
Set load = new Loader
load.initialize


'no me pilla el valor fecha del form anterior asique uso un valor fijo pa
las pruebas pero como tampoco sube los files

fecha0 = "05/05/05"

'Dim fecha0
'fecha0 = cstr(load.getValue("date"))

Dim fileData
fileData = load.getFileData("file")

Dim fileName
filename = fecha2 & n & ".jpg"

Dim filePath
filePath = load.getFilePath("file")

Dim filePathComplete
filePathComplete = load.getFilePathComplete("file")

Dim fileSize
fileSize = load.getFileSize("file")

Dim fileSizeTranslated
fileSizeTranslated = load.getFileSizeTranslated("file")

Dim contentType
contentType = load.getContentType("file")

Dim countElements
countElements = load.Count

Dim pathToFile
pathToFile = Server.mapPath("../pics/") & filename

Dim fileUploaded
fileUploaded = load.saveToFile ("file", pathToFile)

Dim nameInput
nameInput = load.getValue("name")

Set load = Nothing


( .. )

If fileUploaded = True Then
Response.Write fileName & " data uploaded..."
Else
Response.Write fileName & " could not be uploaded..."
End If