duda sobre el xelupload

[El_Metallick]

hola a todos... ami se me ocurrio antemonerle al nombre del archivo el id del registro, por lo que antes de agregar el registro o subir el archivo puse esto:

id = conn.Execute("SELECT MAX(id_producto) As MaxId FROM productos")
id = id("MaxId")+1

ahora mi duda es donde tengo que medificar para que el archivo se suba efectivamente con el id+nombre???... les dejo el codigo de mi pag

Código:

<script>
window.opener.location.reload();
</script>
<!--#include file="xelupload.asp"-->
<%
Dim Conn
Dim rs
Dim id
Dim producto_sql
Dim categoria_sql
Dim objUpload
Dim objFich
Dim maxtam
Dim categoria
Dim imagen
Dim marca
Dim modelo
Dim descripcion
Dim precio

'nuestro tamaño máximo
maxtam = 512 * 1024

set objUpload = new xelUpload
objUpload.Upload()

'recuperamos los campos usuario y edad
categoria = objUpload.Form("categoria")
marca = objUpload.Form("marca")
modelo = objUpload.Form("modelo")
descripcion = objUpload.Form("descripcion")
precio = objUpload.Form("precio")

'si no ha subido ningún fichero, le avisamos
if objUpload.Ficheros.Count = 0 then
	Response.Write("¡No has subido ningún fichero!")
else
    'Establecemos la conección a la base de datos
    Set conn = Server.CreateObject("ADODB.Connection")
    conn.Open("Provider=Microsoft.Jet.OLEDB.4.0;Data Source=" & Server.MapPath("../catalogo.mdb"))
	
	id = conn.Execute("SELECT MAX(id_producto) As MaxId FROM productos")
	id = id("MaxId")+1
	
	'accedemos al fichero por su nombre en el formulario
	set objFich = objUpload.Ficheros("imagen")
	if objFich.Tamano <= maxtam and (objFich.TipoContenido = "image/gif" Or objFich.TipoContenido = "image/pjpeg")then
		'Es el fichero correcto, vamos a guardarlo en todas partes. :-)
		
		'Primero, en nuestro directorio actual con el nombre que tiene
		objFich.Guardar Server.MapPath("../imagenes")

		'Ahora, en el directorio upload, con la fecha de hoy como nombre
		strNombreFichero = Day(Date) & Month(Date) & Year(Date)
		objFich.GuardarComo imagen, Server.MapPath("upload")

		'Creación de la sentencia SQL correspondiente 
        producto_sql="Insert Into productos (categoria,imagen,marca,modelo,descripcion,precio) values (" & categoria & ",'" & objFich.Nombre & "','" & marca & "','" & modelo & "','" & descripcion & "'," & precio & ")"

		'Ejecución de la orden
        Set rs = Conn.Execute(producto_sql)

        'Creación de la sentencia SQL correspondiente 
        categoria_sql="Select * From categorias Where id_categoria = " & categoria & ""

        'Ejecución de la orden
        Set rs = Conn.Execute(categoria_sql)

        'Se resta 1 al numero de productos de la categoría
        total_productos = rs("total_productos")
        total_productos = total_productos + 1

        'Creación de la sentencia SQL correspondiente
        categoria_sql="Update categorias Set total_productos = " & total_productos & " Where id_categoria = " & categoria & ""

        'Ejecución de la orden
        Set rs = Conn.Execute(categoria_sql)
		
		'¡Todo correcto!
		Response.Write "Se ha agregado el producto <b>" & marca & ":" & modelo & "</b>, "  _
		& "con la imagen " & 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("El archivo seleccionado no es aceptado. ")
		Response.Write("Tiene que ser una imagen (GIF o JPG) de menos de 500k.")
	end if

end if
%>

se que es mucho pero porfavor si se pueden hacer de un tiempito para ver dode tengo que modificar para hacer lo que quiero... bueno saludos y gracias