AdMentor homepage

/asp/freeapps/topsitementor/admin_users.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") = "" Then
    Response.Redirect "includeloginuser.asp"
    Response.Flush
    Response.End
End If


'''Globals
Set oConn = IncTopsite_GetDatabaseConn()
Set oRS= oConn.Execute("select site.id as id, url, sitename, incount, outcount, txt from  " & IncTopsite_GetTablePrefix() & "site as site,  " & IncTopsite_GetTablePrefix() & "cat as cat where cat.id=site.catid order by incount")


%>
<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">                         
                            <div align="center">
                              <center>
                              <table border="0" width="100%">
                                <tr>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>SiteName</b></font></td>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>Url</b></font></td>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>Category</b></font></td>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>InCount</b></font></td>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>Outcount</b></font></td>
                                  <td bgcolor="#AA3333"><font color="#FFFFFF"><b>Action</b></font></td>
                                </tr>
<%
Dim sColor
sColor = g_strSiteBgColor2
Dim sEdit, sDel
While Not oRS.EOF
    If sColor = g_strSiteBgColor2 Then
        sColor = g_strSiteBgColor1
    Else
        sColor = g_strSiteBgColor2
    End If
    sEdit = "admin_edac.asp?id=" & oRS("id")
    sDel = "admin_deac.asp?id=" & oRS("id")
%>                                
                                <tr>
                                  <td bgcolor="<%=sColor%>"><%=oRS("sitename")%></td>
                                  <td bgcolor="<%=sColor%>"><a href="<%=oRS("url")%>" target=_blank><%=oRS("url")%></a></td>
                                  <td bgcolor="<%=sColor%>"><%=oRS("txt")%></td>
                                  <td bgcolor="<%=sColor%>"><%=oRS("incount")%></td>
                                  <td bgcolor="<%=sColor%>"><%=oRS("outcount")%></td>
                                  <td bgcolor="<%=sColor%>"><a href="<%=sEdit%>">Edit</a><br><br><a href="<%=sDel%>">Delete</a></td>
                                </tr>
<%
    oRS.MoveNext
Wend
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
%>                                
                              </table>
                              </center>
                            </div>
                            <p>&nbsp;</p>
     </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