Dont know if this helps you at all.

Dim objDevice
Dim objResults
Dim iCount
Dim xCount
'Create the backup device object
Set objDevice = Server.CreateObject("SQLDMO.BackupDevice")
'Loop through the devices until we find a match
For Each objDevice In srv.BackupDevices
If objDevice.Name = Request("fname") Then
'We found a match now read the results
Set objResults = objDevice.ReadBackupHeader
End If
Next

Jon


>thanks, but i´m using sql-dmo and i need the function by this way.