AdMentor homepage

/asp/freeapps/topsitementor/admin_deac.asp

<!--#include file="inctopsite.asp"--> <!--#include file="include_menu.inc"--> <% ''''''''''' (C) Stefan Holmberg 1999 ''''''''''' Free to use if these sourcecode lines is not deleted ''''''''''' Contact me at webmaster@sqlexperts.com ''''''''''' http://www.sqlexperts.com ''''''''''' AdMentor homepage at http://www.create-a-webshop.com If Session("ts_admin") <> "1" Then Response.Redirect "includeloginuser.asp" Response.Flush Response.End End If '''Globals Dim sUID, sURL, sSiteName, sSiteDescr, sCatId, sEmailAddress sUID = Request("id") Dim oConn, oMyRS, sError If Request.QueryString("save")= "yes" Then Set oConn = IncTopsite_GetDatabaseConn() Set oMyRS = oConn.Execute( "delete from " & IncTopsite_GetTablePrefix() & "site where id = " & sUID ) oConn.Close Set oConn = Nothing Response.Redirect "admin_users.asp" Response.Flush Response.End End If %> <html> <head> <meta http-equiv="Content-Type" content="text/html; charset=windows-1252"> <meta name="GENERATOR" content="Microsoft FrontPage 4.0"> <meta name="ProgId" content="FrontPage.Editor.Document"> <title>Account management</title> <style type="text/css"> <!-- body { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000} td { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000} th { font-family: Arial, Geneva, Helvetica, Verdana; font-size: smaller; color: #000000} A:link {text-decoration: none;} A:visited {text-decoration: none;} A:hover {text-decoration: underline;} --> </style> </head> <body> <table align="center" bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%"> <tbody> <tr> <td vAlign="top" width="50%" height="60"> <h1>TopSiteMentor</h1> </td> <td vAlign="top" width="468" height="60"> <b><font face="verdana,arial,helvetica" size="+2">Administration </font></b> </td> </tr> <tr> <td height="100%" vAlign="top" width="100%" colspan="2"> <table align="center" bgColor="#ffffff" border="0" cellPadding="0" cellSpacing="0" height="100%" width="100%"> <tbody> <tr> <td height="100%" vAlign="top" width="85%"> <table bgColor="#ffffff" border="0" cellPadding="10" cellSpacing="0" height="100%" width="100%"> <tbody> <tr> <td align="left" height="100%" vAlign="top" width="65%"> <table border="0" width="100%"> <tr> <td width="50%"> <font color="#aa3333" face="verdana,arial,helvetica" size="+2"><b>Account management&nbsp;</b></font> </td> <td width="50%"><%=FAQ_GetAd(1)%> </td> </tr> </table> <hr color="#000066" noShade SIZE="1"> <table border="0"> <tr> <td width="160" valign="top"><%AdAdminWriteMenu%></td> <td width="398"> <form method="POST" action="admin_deac.asp?Save=yes&id=<%=sUID%>"> Are you sure you want to delete this? Press back in browser if you have changed your mind. <p><input type="submit" value="Submit" name="B1"></p> </form> </td> </tr> </table> <table border="0" width="100%"> <tr> <td width="50%"> <p><br> <FONT face="Arial,sans serif" size=2></FONT> <font size="1" face="Arial,sans serif">2000 <a href="http://www.aspcode.net">ASPCode.net</a></font> </p> </td> </tr> </table> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> </td> </tr> </tbody> </table> </body> </html>
Privacy policy