/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 </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>