Welcome to HEALTH TOOLS ONLINE

<%@ Language=VBScript %> <% dim strUserName,strPassQuestion,strEmail,strAddvalue,isNew isNew=1 strAddvalue=request("hidAdd") strUserName=trim(request("txtNickname")) strPassQuestion=trim(request("txtPasswordQuestion")) strEmail=trim(request("txtEmail")) %>

Forgot Password

<% If (strAddvalue="Add") Then isNew=0 Dim oCon,oRs,strSql,struname Set oCon=Server.CreateObject("ADODB.CONNECTION") Set oRs=server.CreateObject ("ADODB.recordset") oCon.Open C_CONNECTION_STRING strSql="select Member_Password from MemberTable where ( Member_Email='"&strEmail &"' and Member_PasswordQuestion like '" & strPassQuestion & "%')" set oRs=oCon.Execute(strSql) if not(oRs.eof or oRs.bof) then struname=oRs.fields("Member_Password").value end if oCon.close End If %> <% if(isNew=0) then%> <%if (struname="") then%> <%else%> <%end if%> <%end if%>

User Name
Password Question
Email





The information provided by you is not relevant to furnish password, please try again!!
your password is:	<%=struname%>

:: Home

:: Physicians Spotlight

:: Market Your Practice

:: Websites for your
Practice,

:: Support us

:: Medical store

:: Tell your friend

:: Newsletter

DESIGNED / DEVELOPED BY