<% if cstr("" & request.form("btnSubmit")) = "" then call display_login_form() else call display_account_balance() end if %> <% sub display_login_form() %>

 

Account Balance Request
User Name:
Password:
forgot your password?
<% end sub %> <% sub display_account_balance() %> <% strMemberID = request.form("MemberID") strPassword = request.form("Password") Set objViewer = Server.CreateObject("FireControl.Viewer") if not objViewer.CheckViewerPassword(strMemberID, strPassword) then strBalance = "** error retriving balance" else strBalance = formatcurrency(objViewer.GetBalance(strMemberID),2) end if Set objViewer = Nothing %>

 

Your Account Balance

<%=strMemberID%>

<%=strBalance%>

<% end sub %>