vbscript and SQL Server

[Tim]

This may not be the right place for this question but here goes. Trying to
execute a sub routine in vbscript that will display the last backup taken of
a SQL Server database. Here is the code I have...

Sub LoadMaintenanceInf

strDBServerName = "."
Set objSQLServer = CreateObject("SQLDMO.SQLServer")
Set objDatabase = CreateObject("SQLDMO.Database")
objSQLServer.LoginSecure = True
objSQLServer.Connect strDBServerName
Set colDatabases = objSQLServer.Databases
For Each objDatabase In colDatabases

set SQL = objSQLServer.executeimmediateandresults "SELECT
MAX(Backup_Finish_Date) FROM MSDB.dbo.BackupSet where Database_Name = ' & '
objDatabase.Name '"

strHTML = strHTML & objDatabase.Name & "<br>"
Next

DataArea.InnerHTML = SQL
end sub

Creating an HTA application that will display the last backup date when a
button is clicked. Any help would be appreciated.