Estoy en la sala de Urgencias........ esto lo necesito ¡¡¡

[eeeee]

bien,,, antes lo intenté asi , pero como loo que sube es un archivo, pues no fui capaz de sacarle el nombre.

aqui es donde lleva el nombre:

UCase(pal)='" & UCase(Request("userfile"))

Como saco el nobre del archivo si eso es un .jpg ??

<%

Dim Conexion,Tabla
Set Conexion = Server.CreateObject("ADODB.Connection")
Set Tabla = Server.CreateObject("ADODB.Recordset")

Conexion.Open "Driver={Microsoft Access Driver (*.mdb)}; " & "Dbq=" & Server.MapPath("/mdb-database/novedades.mdb")

Dim Temp

Temp="Select * From Tabla1 Where UCase(pal)='" & UCase(Request("userfile"))
& "' And UCase(size)='" & UCase(Request("Dato2")) & "' And UCase(nick)='" & UCase(Request("Dato3")) & "' And UCase(tipo)='" & UCase(Request("Dato4")) & "' And UCase(url)='" & UCase(Request("Dato5")) &"'"
Tabla.Open Temp,Conexion,2,3,1

If Tabla.BOF And Tabla.EOF Then
Tabla.AddNew
Tabla("pal") = Request("userfile")
Tabla("size") = Request("Dato2")
Tabla("nick") = Request("Dato3")
Tabla("tipo") = Request("Dato4")
Tabla("url") = Request("Dato5")
Tabla.Update

%>

<font face="Tahoma" size="2"><b><i>Ingreso de archivos completado</i></b></font></p>
<%

Else
Response.Write "El registro ya existe"
End If

Tabla.Close
Conexion.Close
%>