<%@ LANGUAGE="VBSCRIPT" %> <% strDSN = "DSN=" & Application("DSN") & ";UID=" & Application("UserName") _ & ";PWD=" & Application("Password") & ";" pagesize = 20 aid = 36 %> <% if session("memberID") = "" then response.redirect("../member/login.asp") end if %> <% Set myMember = Server.CreateObject("ADCFRMBCObjects.Member") myMember.GetByID session("memberID"), strDSN username = myMember.userName Set myMember = Nothing Set myContacts = Server.createObject("ADCFRMBCObjects.Contacts") myContacts.LoadByMember session("memberID"), strDSN %> FRMBC Procurement Portal Home Page
<% totalcount = myContacts.count() if totalcount >0 then %> <% For i = 1 to myContacts.Count() Set myContact = myContacts.Item(i) if i mod 2 then bgcolor = "#e4e4e4" else bgcolor = "#ffffff" end if %> <% Set myContact = Nothing Next else %> <% End If Set myContacts = Nothing %>

Contact/Buyer Management
Click here to add contact/buyer
Total number of contacts/buyers added: <%=totalcount%>     
ID Name Salutation Email Status      
<%= myContact.ContactID %> <%= myContact.Firstname & " " & myContact.Lastname %> <%= myContact.Salutation %> <%= myContact.Email %> <%if myContact.Status then %> Active <%else%> Inactive <%end if%> edit <%if Not myContact.PrimaryContact then%> delete <%end if%> Login as this buyer
No contact/buyer has been added to your account
  
Back to Management Menu