<% Dim msg, uSubject, uBody %> <% Select Case lcase(Request.ServerVariables("REQUEST_METHOD")) Case "post" If not CBool(Sess_Array(31)) then msg = "

" & strText_InvalidRequestSession & "

" Else Sess_Array(31) = Empty enEmail = sq(Replace(Request.Form("resemail"), ";", "")) Email = CryptText(enEmail, key, True) set rs = objConn.Execute("SELECT nick FROM " & tablUPfx & "User WHERE email = '" & enEmail & "';") If not rs.EOF then userNick = rs(0) rs.close newpass = RandomNumber Set objMD5 = New MD5 objMD5.Text = newpass newenpass = objMD5.HEXMD5 objConn.Execute("UPDATE " & tablUPfx & "User SET pass = '" & newenpass & "' WHERE email = '" & enEmail & "';") Call getTemplate("Send_Password", Email, newpass, userNick, Empty, Empty) Call sendEmail(Email, notify_email, uSubject, uBody) msg = "

" & strText_PasswordSent & "" & Email & "

" & strText_Logon & "

" Else rs.close msg = "

" & strText_AccountNotFound & " " & Email & " " & strText_AccountNotFound1 & "
" & strText_TryAgain & "

" End If End If Case Else Sess_Array(31) = 1 %>

<%= strText_TypeEmailReset %>"<%= web_name%>"
<%= strText_TypeEmailReset1 %>

<% End Select %> <%= msg %>