<%call restrictuser("login.asp?logintype=company","CompanyUname")%> <% If Request.ServerVariables("Content_Length") <> 0 then pword = MkPassword(10) 'once the approved button is clicked, (1) password will be generated; (2) save it in the password field, together w/ date_approved; & (3) will send on the email of the company 'the approved field will be set to 'Y' once the company activate their acct. datatoupdate = Array("co_name|"&Request.Form("Company_Name"), "co_address|"&Request.Form("Address"), "co_url|"&Request.Form("Website"), "co_TIN|"&Request.Form("TIN"), "co_SECnDTI_regno|"&Request.Form("SEC_DTI"), "co_telnos|"&Request.Form("Telephone"), "co_FAX|"&Request.Form("FAX"), "nature_of_business|"&Request.Form("Nature_of_Business")) filters = Array("_co_id|"&Session("loggedCompanyID")&"&", "approved|Y&", "co_email|"&Session("CompanyUname")) filters2 = Array("_co_id|"&Session("loggedCompanyID")) datatoupdate2 = Array("name|"&Request.Form("Contact_Person"), "designation|"&Request.Form("Designation"), "mobile|"&Request.Form("Mobile"), "telnos|"&Request.Form("Representative_Telephone"), "fax|"&Request.Form("Representative_FAX"), "email|"&Request.Form("Representative_Email")) call DBaseTransact(MM_PGBOnline_STRING, "update", "eproc_companies", datatoupdate, filters) call DBaseTransact(MM_PGBOnline_STRING, "update", "eproc_contact_person", datatoupdate2, filters2) Response.Redirect("editprofile_confirmation.asp") End if %> <% dim rs_companies Set rs_companies=Server.CreateObject("ADODB.Recordset") rs_companies.ActiveConnection=MM_PGBOnline_STRING rs_companies.Source = "SELECT eproc_companies.*, name, designation, mobile, telnos, fax, email FROM eproc_companies, eproc_contact_person WHERE eproc_companies.co_id=eproc_contact_person.co_id AND eproc_companies.co_id = "& Session("loggedCompanyID") &" AND approved='Y' AND co_email = '"&Session("CompanyUname")&"'" rs_companies.Open() If not rs_companies.eof then product_cat = Split(rs_companies("product_line"),", ",-1,1) %>

PGB Online Procurement


PRE-REGISTERED COMPANIES

     
Company Name
:
" size="40">
     
 IMPORTANT INFORMATION
Company TIN
:
">
SEC/DTI Reg. #
:
">
     
 CONTACT INFORMATION
Address
:
" size="50">
Telephone Nos.
:
">
FAX
:
">
Email Address
:
<%=rs_companies("co_email")%> (username)
Website
:
">
     
 COMPANY REPRESENTATIVE
Name
:
" size="35">
Designation
:
">
Email
:
">
Mobile
:
">
Telephone Nos.:
:
">
FAX
:
">
     
 OTHER INFORMATION
Nature of Business
:
 
Product Category
:
<%for each cat in product_cat dim rs_cat Set rs_cat=Server.CreateObject("ADODB.Recordset") rs_cat.ActiveConnection=MM_PGBOnline_STRING rs_cat.Source = "SELECT description FROM eproc_category WHERE code='"&cat&"'" rs_cat.Open() Response.write("
  • "&rs_cat("description")&"
  • ") rs_cat.Close() set rs_cat = nothing Next%>
         
       

    Post Your Bid here! | Change Your Password here! | Edit Company Profile
     
    BACK | LOGOUT | HOME
    <%rs_companies.close set rs_companies = nothing%>