<% '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' '' Copyright 2004 by Robert Aung. '' '' All rights reserved. No part of this work may be '' reproduced, stored, or transmitted in any form, '' without prior written permission. '' '' Neither this page, nor any part of it, may be '' modified, copied, distributed, displayed, reproduced, '' published, licensed, sold, placed on a web site, '' or used to create derivitive works without the '' express written consent of the author. Any use '' of this page is subject to the terms of a license '' agreement with the author. '' '' To obtain a license for this software, contact the '' author at robert.aung@verizon.net. '''''''''''''''''''''''''''''''''''''''''''''''''''''''''' Response.CacheControl = "no-cache" Response.AddHeader "Pragma", "no-cache" Response.Expires = -1 if request.form("pwd") = dbpwd or request.cookies("dbadmin") = "yes" then response.cookies("dbadmin") = "yes" if request.querystring("confirmed") = "yes" then dim cn, rs, cmd set cn = server.CreateObject("ADODB.Connection") set rs = server.CreateObject("ADODB.Recordset") set cmd = server.CreateObject("ADODB.Command") cn.ConnectionString = connectstring cn.Open dim message if cn.State = 1 then cmd.activeconnection = cn on error resume next cmd.commandtext = "drop table file_upload_general" cmd.execute on error goto 0 message = "Database dropped successfully. Return to DB Admin page." else message = "There was an error connecting to the database server. Return to DB Admin page." end if else message = "Click here to permanently drop the table and all the data in it." end if response.write "" & message & "" else %>
<% end if %>