<%@ Language=VBScript %> <%Option Explicit%> <% if session("LastNameOnTop") & "" = "" AND session("UserID") & "" <> "" then%> <%end if dim errmsg, fromnews, fromb2b, fromrecipes errmsg = Request("errmsg") fromnews = Request("fromnews") fromb2b = Request("fromb2b") fromrecipes = Request("fromrecipes") if errmsg & "" <> "" then GoToPage = "account.asp?errmsg=1" if fromnews & "" <> "" then GoToPage = "account.asp?fromnews=1" if fromb2b & "" <> "" then GoToPage = "account.asp?fromb2b=1" if errmsg = "" AND fromnews = "" AND fromb2b = "" then GoToPage = "account.asp" 'menu = "6" %> <%=PageTitle%>
<%=Atit(lg)%>
<%if errmsg="1" then%>
<%=Aerror(lg)%>

<%end if%> <%if fromnews="1" then%>
<%=Anews(lg)%>

<%end if%> <%if fromb2b="1" then%>
<%=Ab2b(lg)%>

<%end if%> <%if fromrecipes="1" then%>
<%=Arecipes(lg)%>

<%end if%>

<%=RBtext(lg)%>



<%else%>          <%end if%>
<%=RBreguser(lg)%>
<%=RBregusertxt(lg)%>
<%=Amail(lg)%>
<%=Apasswd(lg)%>
  <%if lang="EN" then%>          
 <%= RBFPasswd(lg) %>
<%=RBclick(lg)%>

<%if lang="EN" then%><%else%><%end if%>
<%=RBNewuser(lg)%>
<%=RBNewusertxt(lg)%>