/asp/freeapps/topsitementor/mailpass.asp
<!--#include file="inctopsite.asp"-->
<!--#include file="include_menu.inc"-->
<!--#include file="incgenmail.asp"-->
<%
''''''''''' (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
Dim sErrorText
If Request.Form("email") <> "" Then
Dim oConn, oRS, sEmail, sMailText
Set oConn = IncTopsite_GetDatabaseConn()
sEmail = Request.Form("email")
sMailText = ""
Set oRS = oConn.Execute("select id, url, sitename, password from " & IncTopsite_GetTablePrefix() & "site where email = '" & sEmail & "'")
While Not oRS.EOF
sMailText = sMailText & "Information for your site" & vbCrLf & oRS("sitename") & vbCrLf& " at:" & ors("url") & vbCrLf
sMailText = sMailText & "LOGINID:" & ors("id") & vbCrLf
sMailText = sMailText & "PASSWORD:" & ors("password") & vbCrLf & "********" & vbCrLf & vbCrLf
ors.movenext
Wend
If sMailText = "" Then
sErrorText = "No user with that email address registered"
Else
sMailText = sMailText & "The url to login is:" & vbCrlf & g_strPath & "/admin_account.asp" & vbCrLf & vbCrLf
SendEmail g_MailServer,g_OutgoingMailFrom , semail, "Your login information for " & g_strTitle , sMailText
sErrorText = "Information sent ok"
End If
oRS.Close
Set oRS = Nothing
oConn.Close
Set oConn = Nothing
End If
strMessage = "Lost password"
%>
<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>
</td>
</tr>
</table>
<hr color="#000066" noShade SIZE="1">
<%If sErrorText <> "" Then
Response.Write sErrorText
End If%>
<table border="0" width="100%">
<tr>
<td width="50%">
<form method="POST" action="mailpass.asp">
<table border="0" width="100%">
<tr>
<td width="22%"><font face="Arial"><b>Enter
your email address:</b>:</font></td>
<td width="78%"><input type="text" name="email" size="44"></td>
</tr>
</table>
<p>All your user id:s and passwords will be
mailed to you.
</p>
<p><input type="submit" value="Submit" name="B1">
<br>
</p>
</form>
</td>
</tr>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</td>
</tr>
</tbody>
</table>
</body>
</html>