<%@ language=vbscript%> <% sAction = Request.form("action") If sAction = "send" Then email = request.form("email") set oRS = server.CreateObject ("ADODB.Recordset") sql = "select mem_username, mem_Hint from Member where mem_email = '" & email & "'" oRS.Open sql, oConn If NOT(oRS.BOF = True and oRS.EOF = True) then theHint = oRS("mem_Hint") theUser = oRS("mem_username") End If Set myCDONTS = Nothing thisbody = "Hypertension Password Hint Information:

" thisBody = thisBody & "

" thisBody = thisBody & "Thank you for making use of the Forgotten Password Retrieval system.
" thisBody = thisBody & "Your Username is: " thisbody = thisbody & theUser & "
" thisBody = thisBody & "Your Password Hint is: " thisbody = thisbody & theHint & "
" thisBody = thisBody & "Regards
" thisBody = thisBody & "The Hypertension Technical Team
" Set myCDONTS = Server.CreateObject("CDONTS.NewMail") 'myCDONTS.MailFormat = 0 myCDONTS.BodyFormat = 0 myCDONTS.From = "" myCDONTS.To = email myCDONTS.Subject = "Southern African Hypertension Society (Password Hint)" myCDONTS.Body = thisBody myCDONTS.Send Set myCDONTS = Nothing response.redirect "Login.asp" End If %> Southern African Hypertension Society
<% If Action = "send" then %> Your Query Application has been submitted
Go back to the site


<% Else %>
Fill in your E-mail Address to have your password hint sent to you.
E-mail Address:   <%=sUErr%>
<%end if%>