<%sDBExtraPath = "../"%>
<%
strCheckSec = "NO"
strDisplayMenu = "NO"
%>
<%
Dim msg
msg=""
Dim rs
Dim strUserName
Dim strPwd
sSQL = "SELECT UserName, UserPassword FROM BackEndUsers "
Set rs = conDB.Execute(sSQL)
If Not IsRSEmpty(rs) Then
strUsername = StringEncrypt(Trim(rs("UserName")), 0)
strPwd = StringEncrypt(Trim( rs("UserPassword")), 0)
msg = langMgr.GetContent("PWD_RECOVERY_MSG_SUCCESS", "BackEndMessages", iInterfaceLang)
HTML = "" & vbCrLf
HTML = HTML & ""
HTML = HTML & ""
HTML = HTML & "" & langMgr.GetContent("PWD_RECOVERY_EMAIL_TITLE", "BackEndMessages", iInterfaceLang) & ""
HTML = HTML & ""
emailmsg ="" & _
"" & langMgr.GetContent("PWD_RECOVERY_EMAIL_BODY", "BackEndMessages", iInterfaceLang) & "
" & _
"" & langMgr.GetContent("AUTH_LOGIN_LABEL", "BackEndMessages", iInterfaceLang) & " " & strUsername & "
" & _
"" & langMgr.GetContent("AUTH_PWD_LABEL", "BackEndMessages", iInterfaceLang) & " " & strPwd & "
"
'Response.Write HTML & emailmsg
Set oMail = Server.CreateObject("CDONTS.NewMail")
With oMail
.BodyFormat = 0
.MailFormat = 0
.Subject = langMgr.GetContent("PWD_RECOVERY_EMAIL_TITLE", "BackEndMessages", iInterfaceLang)
.From = langMgr.GetContent("SETT_VALUE_OWNER_EMAIL", "Settings", iDefLangID)
.To = langMgr.GetContent("SETT_VALUE_OWNER_EMAIL", "Settings", iDefLangID)
.Body = HTML & emailmsg
.Send
End With
Set oMail = Nothing
Else
'Response.Write sSQL
msg = langMgr.GetContent("PWD_RECOVERY_MSG_ERRROR", "BackEndMessages", iInterfaceLang)
End If
%>
<%If Len(msg) > 0 Then%>
><%=msg%>
<%End If%>