[Recover] Using sqldmo to back up and restore a database (VB & ASP)

VB:
Reference Microsoft sqldmo Object Library first

 Private Objsqlserver As   New  Sqldmo. sqlserver  Private   Sub  Cmdbackup_click ()  Dim Objbackup As   New  Sqldmo. Backup objbackup. Database = "  Pubs  " Objbackup. medianame = "  C: \ MSSQL7 \ backup \ pubs. Bak  "   '  If you backup to tape, you can use  '  Objbackup. medianame = "\. \ tape0" Objbackup. mediadegion = "  Back of pubs  "  Objbackup. sqlbackup (objsqlserver)  End sub   Private  Sub  Cmdrestore_click ()  Dim Objrestore As   New  Sqldmo. Restore objrestore. Database = "  Pubs  "  Objrestore. medianame = "  C: \ MSSQL7 \ backup \ pubs. Bak  "  Objrestore. replacedatabase = True Objrestore. sqlrestore (objsqlserver)  End sub   Private   Sub  Form_load () objsqlserver. Connect  "  Localhost  " , "  SA  " , ""   End sub  

ASP:

 Dim  Objsqlserver Set Objsqlserver = server. Createobject ( "  Sqldmo. sqlserver  "  ) Objsqlserver. Connect  "  Localhost  " , "  SA  " , ""   Private   Sub  Backup ()  Dim Objbackup  Set Objbackup = server. Createobject ( "  Sqldmo. Backup  "  ) Objbackup. Database = "  Pubs  "  Objbackup. medianame = "  C: \ MSSQL7 \ backup \ pubs. Bak  "  Objbackup. mediadegion = " Back of pubs  "  Objbackup. sqlbackup (objsqlserver)  End sub   Private   Sub  Cmdrestore_click ()  Dim  Objrestore  Set Objrestore = server. Createobject ( "  Sqldmo. Restore  "  ) Objrestore. Database = " Pubs  "  Objrestore. medianame = "  C: \ MSSQL7 \ backup \ pubs. Bak  "  Objrestore. replacedatabase = True  Objrestore. sqlrestore (objsqlserver)  End sub