<% '====== Company Info ===================================== dim CompanyInfo, CompanyCount,k SQL = "Select * from UserCompanies where Show = 1 AND UID = " & session("UserID") oRs.open SQL, oConn, 3,1,1 if oRs.EOF = false then CompanyInfo = oRs.getRows() CompanyCount = oRs.RecordCount end if oRs.close '====== Company Info ===================================== %>

<% if CompanyCount >0 then for j=0 to CompanyCount-1%> <%next end if%>

<%=SLoginLogout(lg)%>
<%=SLoginTitle(lg)%>

<%= SLoginUser(lg)%>

<%= SLoginAddr(lg)%>

<%=SLoginComp(lg)%>
<%=j+1%><%if lg=0 then response.write("į ") else if j<4 then response.write(TerminationsEN(j+1))else response.write(TerminationsEN(4))end if end if%> <%=SLoginCompAddress(lg)%>

<%=SCompName(lg)%>		<%=SCompActivity(lg)%>
<%=SCompAFM(lg)%>		<%=SCompDOY(lg)%>
<%=SCompAddr(lg)%>		<%=sCompZipCode(lg)%>
<%=SCompTown(lg)%>		<%=SCompTel(lg)%>
<%=SCompCountry(lg)%>		<%=SCompFAX(lg)%>

<%=SLoginNewEntry(lg)%>

<%=SCompName(lg)%>		<%=SCompActivity(lg)%>
<%=SCompAFM(lg)%>		<%=SCompDOY(lg)%>
<%=SCompAddr(lg)%>		<%=sCompZipCode(lg)%>
<%=SCompTown(lg)%>		<%=SCompTel(lg)%>
<%=SCompCountry(lg)%>		<%=SCompFAX(lg)%>

<%=SLoginHistory(lg)%>

<% set oRs = nothing oConn.close set oConn = nothing %>