<%@ LANGUAGE="VBScript" %> <% Option Explicit 'Buffer the response, so Response.Expires can be used Response.Buffer = TRUE %> <% Dim cnnDB, sid Set cnnDB = CreateCon sid = GetSid Response.Write "" & lang(cnnDB, "HelpDesk") & " - " & lang(cnnDB, "EmailPassword") & _ "" & vbnewline & "" & _ "" Dim success, invalidUID success = FALSE invalidUID = FALSE If Request.Form("email") = 1 Then Dim uid, userRes uid = Lcase(Trim(Request.Form("uid"))) Set userRes = SQLQuery(cnnDB, "SELECT email1, password FROM tblUsers WHERE uid='" & uid & "'") If userRes.EOF Then invalidUID = TRUE Else Dim strSubject, strBody ' Send password to the user strSubject = lang(cnnDB, "HELPDESK") & " : " & lang(cnnDB, "password") strBody = _ "Vocę solititou sua senha para se logar no Help Desk da Comp-Lan" & _ vbNewLine & _ "Usuário: " & uid & vbNewLine & _ "Senha: " & userRes("password") & vbNewLine & _ vbNewLine & _ "Para se logar no help desk da Comp-Lan : " & Cfg(cnnDB, "BaseURL") Call SendMail(userRes("email1"), strSubject, strBody, cnnDB) success = TRUE End IF End If %>
<%=lang(cnnDB, "EmailPassword")%>
<% If success Then response.write "
" & vbnewline & _ "

" & lang(cnnDB, "PasswordSent") & "

" & _ "

" & lang(cnnDB, "PasswordSentText") & ".

" & _ "

" & lang(cnnDB, "HelpDesk") & _ " " & lang(cnnDB, "Logon") & "

" & vbnewline & _ "
" Else %>

<%=lang(cnnDB, "EnterUsername")%>

 <% If invalidUID Then %> <%=lang(cnnDB, "Invalidusername")%>.

<% End If %>

">
<% End If %>
<% Call DisplayFooter(cnnDB, sid) cnnDB.Close %>