<%=Session("SiteName")%> - MS SQL Maintenance

<%@ LANGUAGE = "VBScript" ENABLESESSIONSTATE = True %> <%Option Explicit%> <%Response.Buffer = True%> <%Server.ScriptTimeout = 100000000%> <% '*********************************************************** '** Copyright Notice ** '** Tassietek - MailerPro ** '** Copyright 2001-2004 Tassietek All Rights Reserved. ** '*********************************************************** '** PREVENT PAGE FROM BEING CACHED Response.Expires = -1 Response.ExpiresAbsolute = Now() - 2 Response.AddHeader "pragma","no-cache" Response.AddHeader "cache-control","private" Response.CacheControl = "No-Store" '** CHECKING TO SEE IF LOGGED IN IF NOT TAKE YOU TO THE LOGIN PAGE If Request.Cookies("login") = "" Then Response.Cookies("action") = "error" Response.Write("") Response.End Elseif Request.Cookies("login") = "2" Then Response.Redirect"default.asp" Elseif Request.Cookies("login") = "3" Then Response.Redirect"sendemail.asp" End If If Session("Start") = "" Then Response.Cookies("a") = "ended" Response.Redirect"login.asp?logoff=1" End If %> <% Dim rs Dim sql If Request("action") = "reinstall" Then Server.Execute"reinstall_sql.asp" If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("login") = "" Response.Redirect"default.asp" End If If Request("action") = "deletion" Then Server.Execute"delete_sql.asp" If err <> 0 Then Response.Write"" err.clear Response.End End If Response.Cookies("login") = "" Response.Redirect"deletion.html" End If %> <%=Session("SiteName")%> - MS SQL Maintenance

MailerPro Administration

Home

List Options

','mssql.asp');" CLASS="NavOff" ; nowrap> Online Help

MSSQL Maintenance

Database Statistics

<%GetDBProps%> <%=sHTML %> <%=gettablenames()%>

Database Overview
Database Name	<%=sDBName%>	Date Created	<%=sDBcreated%>
Database Size	<%=sDBSize%>	DB Status	" style="cursor:hand">Mouse Over
Database Owner	<%=sDBOwner%>
Files

Reinstall SQL Tables, Procedures and Index's

Please take note this procedure will destroy all existing tables and all data concerning MailerPro. After reinstall you will have enter registration details into setup again.

After reinstall is completed you will be taken to the registration page.

Permanent Deletion of all Tables, Procedures and Index's

Please take note this procedure will permanently delete all from your sql database to do with MailerPro. Running "default.asp" or "login.asp" will reinstall everything.

You will be taken to a deletion verification page once deletion completed.

<% dim sDBName, sDBSize, sDBOwner, sDBcreated, sDBStatus, sHTML Function GetDBProps() Set rs = Server.CreateObject("ADODB.Recordset") sql = "EXEC sp_helpdb '" & sqlDatabaseName & "'" rs.Open sql, conn, adOpenForwardOnly If err <> 0 Then Response.Write"" err.clear Response.End End If sDBName = rs("name") sDBSize = rs("db_size") sDBOwner = rs("owner") sDBcreated = rs("created") sDBStatus = rs("status") set rs = rs.NextRecordset sHTML = "" do until rs.EOF sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "

Name	" & rs("name") & "
File Name	" & rs("filename") & "
File Size	" & rs("size") & "	Max Size	" & rs("maxsize") & "
File Growth	" & rs("growth") & "	Useage	" & rs("usage") & "

" sHTML = sHTML & "

" rs.MoveNext loop GetDBProps = sHTML rs.Close End Function Function gettablenames() dim strqualifier, strowner, strname, strtype, sHTML, dLen dLen = len(tbl_prefix) Set rs = Server.CreateObject("ADODB.Recordset") sql = "EXEC sp_tables" rs.Open sql, conn, adOpenForwardOnly If err <> 0 Then Response.Write"" err.clear Response.End End If sHTML = "

Tables
DateBase Name	Owner Name	Table Name	Table Type

" do until rs.EOF strqualifier = rs("TABLE_QUALIFIER") strowner = rs("TABLE_OWNER") strname = rs("TABLE_NAME") strtype = rs("TABLE_TYPE") If Left(strname,dLen) = tbl_prefix Then sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "" sHTML = sHTML & "

" & strqualifier & "

" & strowner & "

" & strname & "

" & Lcase(strtype) & "

" sHTML = sHTML & "

" End If rs.MoveNext loop gettablenames = sHTML rs.Close End Function %>