AdMentor homepage

/asp/freeapps/topsitementor/includeloginuser.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 Request.Form("username") <> "" Then
    '
    Dim sUserName, sPassword
    sUserName = Request.Form("username") 
    sPassword = Request.Form("password") 

    If sUserName = g_AdminUID And sPassword = g_AdminPassword Then
        Session("ts_admin") = "1"
        Response.Redirect "admin_users.asp"
        Response.Flush
        Response.End
    End If
    
    If IsNumeric(sUserName) = False Then
        sError = "Login error."
    Else
        Dim oConn, oRS
        Set oConn = IncTopsite_GetDatabaseConn()
        Set oRS= oConn.Execute("select id from  " & IncTopsite_GetTablePrefix() & "site where id = " & sUserName &  " AND password='" & sPassword & "'")
        If oRS.EOF Then
            sError = "Login error."
        Else
            Session("ts_userfldauto") = sUserName
            sError = ""
        End If
        oRS.Close
        Set oRS = Nothing
        oConn.Close
        Set oConn = Nothing
        If sError = "" Then
            Response.Redirect "admin_account.asp"
            Response.Flush
            Response.End
        End If
    End if
End If
strMessage = "Log In"
%>

<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>Advertising Admin Login</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 bgcolor="#DDDDDD">

<table bgColor="#ECECD9" border="0" cellPadding="3" cellSpacing="0" height="100%" width="100%">
  <tbody>
    <tr>
      <td vAlign="middle" width="50%" height="60">
      <h1>TopSiteMentor</h1>
      </td>
      <td vAlign="baseline" width="468" height="60" align="right"><%=FAQ_getAd(1)%>
</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="100%" valign="middle" align="left" colspan="2" ><font color="#aa3333" face="Arial, Geneva, Helvetica, Verdana" size="4"><b><%=strMessage%></b></font><br><%=sError%>
                            </td>
                          </tr>
                        </table>
                        <hr color="#000066" noShade SIZE="1">
                        <table border="0" width="100%">
                          <tr>
                            <td width="50%">
                             <form method="POST" action="includeloginuser.asp">
                                <table border="0" width="100%">
                                  <tr>
                                    <td width="22%"><font face="Arial"><b>Userid</b>:</font></td>
                                    <td width="78%"><input type="text" name="username" size="15"></td>
                                  </tr>
                                  <tr>
                                    <td width="22%"><font face="Arial"><b>Password</b>:</font></td>
                                    <td width="78%"><input type="password" name="password" size="15"></td>
                                  </tr>
                                </table>
                                <p><input type="submit" value="Submit" name="B1">
                                </p>
                                <p><a href="mailpass.asp">Forgot your
                                userid/password?</a><br>
                                </p>
                              </form>
                             
                           </td>
                          </tr>
                        </table>
                      </td>
                    </tr>
                  </tbody>
                </table>
              </td>
            </tr>
          </tbody>
        </table>
      </td>
    </tr>
  </tbody>
</table>
</body>

</html>
Privacy policy