ahora mismo no tengo oportunidad de comprabar este codigo que esta hecho un poco a ojo, pero de todas formas te servira pa coger la idea, veras que es sencillo:
Código:
<%
VarPath= "C:\misImagenes\" 'Directorio donde tienes las imagenes (usa Server.MapPath si es en un servidor)
Set conexion = CreateObject("ADODB.Connection")
conexion.ConnectionString = "miDSN"
conexion.open
Set rs = CreateObject("ADODB.Recordset")
Set Obj_FSO = createobject("scripting.filesystemobject")
Set Obj_Directorio = Obj_FSO.GetFolder (VarPath)
For Each VarFichero IN Obj_Directorio.Files
VarContador = VarContador + 1
Set Obj_File = Obj_FSO.GetFile(VarFichero)
VarNombreFichero = VarFichero.Name
sql = "insert into T_MisImagenes (imagen) values ('"&VarNombreFichero&"')"
rs.open sql,conexion
Next
%>
ToKaTa.