<% Dim strPageTitle strPageTitle = "My Account" %> <% Sub SubMain(ByRef objQuery) Call SubContent(objQuery) End Sub Sub SubContent(ByRef objQuery) %>

<%'//LEFT AREA %>		<%'// Contents Start ------------------------------------------------------------------------------------------------------%> <% Dim rsList Set rsList = funcGetAgentInfoDetail(objQuery, SESSION("AGENT"), SESSION("USERID")) IF rsList.EOF AND rsList.BOF Then Response.write "There is no data." Else %> "> "> Email* "> Password*  Retype*    Name*  ">    "> First Last   Address *  ">   "> City*  "> State*  selected<%End IF%>>AL selected<%End IF%> >AK selected<%End IF%> >AZ selected<%End IF%> >AR selected<%End IF%> >CA selected<%End IF%> >CO selected<%End IF%> >CT selected<%End IF%> >DE selected<%End IF%> >DC selected<%End IF%> >FL selected<%End IF%> >GA selected<%End IF%> >HI selected<%End IF%> >ID selected<%End IF%> >IL selected<%End IF%> >IN selected<%End IF%> >IA selected<%End IF%> >KS selected<%End IF%> >KY selected<%End IF%> >LA selected<%End IF%> >ME selected<%End IF%> >MD selected<%End IF%> >MA selected<%End IF%> >MI selected<%End IF%> >MN selected<%End IF%> >MS selected<%End IF%> >MO selected<%End IF%> >MT selected<%End IF%> >NE selected<%End IF%> >NV selected<%End IF%> >NH selected<%End IF%> >NJ selected<%End IF%> >NM selected<%End IF%> >NY selected<%End IF%> >NC selected<%End IF%> >ND selected<%End IF%> >OH selected<%End IF%> >OK selected<%End IF%> >OR selected<%End IF%> >PA selected<%End IF%> >RI selected<%End IF%> >SC selected<%End IF%> >SD selected<%End IF%> >TN selected<%End IF%> >TX selected<%End IF%> >UT selected<%End IF%> >VT selected<%End IF%> >VA selected<%End IF%> >WA selected<%End IF%> >WV selected<%End IF%> >WI selected<%End IF%> >WY Select Zip*  ">   Tel  "> <% End If rsList.close Set rsList = Nothing %> <%'// Contents End ------------------------------------------------------------------------------------------------------%>

<% End Sub %>