tengo una página en la que creo un recordset y lo cargo con los nombres de los ficheros jpg de un directorio.
Lo ordeno por nombre de fichero descendentemente y muestro los thumbnails de esos ficheros.
Funciona alrededor del 90% de las veces, pero no sé por qué motivo algunas veces aparece el siguiente error
Microsoft Cursor Engine error '80004005'
Data provider or other service returned an E_FAIL status.
/valparaiso/galeria.asp, line 121
Cuando aparece esto pulso en "Refresh" y al volver a cargar la página ya no me da el error.
Podeis ver un ejemplo en
http://www.nv.com/valparaiso/galeria.asp
Si le dais a Refresh varias veces os acabará apareciendo el error.
He buscado en los grupos de google y no aparece nada significativo.
Os adjunto el código.
Gracias por vuestras respuestas.
Código:
strPath = "./fotos/"
Set objFSO = Server.CreateObject("Scripting.FileSystemObject")
Set objFolder = objFSO.GetFolder(Server.MapPath(strPath))
Set rs = Server.CreateObject("ADODB.Recordset")
rs.Fields.Append "FileName", 129, 80 'Esta es la linea 121
rs.Sort = "FileName desc"
rs.Open
For Each objItem In objFolder.Files
if right(objItem.Name, 5) = "p.jpg" then
cont = cont + 1
rs.addnew
rs.Fields("FileName").Value = objItem.Name
rs.Update
end if
next
Set objItem = Nothing
Set objFolder = Nothing
Set objFSO = Nothing
'Después recorro el recordset mostrando enlaces a los ficheros que contiene.
