<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%>
<%
dim error_msg
dim login
dim password
dim info_sent
dim email
email = request("email")
if request("submit") <> "" then
Set rslogin = Server.CreateObject("ADODB.Recordset")
rslogin.ActiveConnection = MM_connection_STRING
rslogin.Source = "SELECT * FROM tbl_member WHERE email = '" & parse(email) & "'"
rslogin.CursorType = 0
rslogin.CursorLocation = 2
rslogin.LockType = 1
rslogin.Open()
if rslogin.eof then
pusherror "Email does not exist."
else
login = rslogin("login")
password = rslogin("password")
emailbody = "Here is your login information
"
Send_Email "admin@ericthetrainer.com", "ERICTHETRAINER.COM", email, "", "", "Your Account info at EricTheTrainer.com", emailbody
info_sent = "Your login information has been sent to: " & email
email = ""
end if
end if
sub pusherror(str)
if error_msg = "" then
error_msg = "• " & str
else
error_msg = error_msg & " " & "• " & str
end if
end sub
%>
Retrieve account info
SIGN-UP
NEWS & QUICKTIPS
HOLIDAY TIPS
5 tips for surviving the
holidays...that will
ensure "good health
and good looks"
