<% 'on error resume next If Request.Form("action") = "registerme" then If ValidateMyForm(Array("Company_Name", "TIN","SEC_DTI_Registration", "Address", "|Email|", "Telephone", "FAX", "Representative_Name", "Representative_Designation", "|Representative_Email", "Nature_of_Business", "Product_Category")) <> "" then erormsg = ValidateMyForm(Array("Company_Name", "TIN","SEC_DTI_Registration", "Address", "|Email|", "Telephone", "FAX", "Representative_Name", "Representative_Designation", "|Representative_Email", "Nature_of_Business", "Product_Category")) Else if IsExist(MM_PGBOnline_STRING, "eproc_companies", Array("co_email|"&Request.Form("Email")&"|", "co_name|"&Request.Form("Company_Name"))) then erormsg = "Sorry! the Company you are trying to register was ALREADY REGISTERED!" Else%> <%If not blnCAPTCHAcodeCorrect Then response.redirect("wrongcode.asp") Else dim cn,cmd set cn=Server.CreateObject("ADODB.Connection") cn.Open=MM_PGBOnline_STRING company_data = 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_Registration"), "co_telnos|"&Request.Form("Telephone"), "co_FAX|"&Request.Form("FAX"), "co_email|"&Request.Form("Email"), "nature_of_business|"&Request.Form("Nature_of_Business"), "date_of_registration|"&ToMYSQLDate(now()), "product_line|"&Request.Form("Product_Category")) sql1 = ConstructSQL("insert", "eproc_companies", company_data, Array()) cn.Execute(sql1) 'response.write(sql) set myrs = cn.Execute("SELECT @@IDENTITY") coid = myrs(0) representative_data = Array("name|"&Request.Form("Representative_Name"), "designation|"&Request.Form("Representative_Designation"), "mobile|"&Request.Form("Representative_Mobile"), "telnos|"&Request.Form("Representative_Telephone"), "fax|"&Request.Form("Representative_FAX"), "email|"&Request.Form("Representative_Email"), "_co_id|"&coid) sql2 = ConstructSQL("insert", "eproc_contact_person", representative_data, Array()) cn.Execute(sql2) cn.close Session("newCompany") = "OK" Session("coid") = coid Response.Redirect("sendthisthruemail.asp") End If End If End if End If Function addminuszero(monthorday) if monthorday < 10 then addminuszero = "0" & monthorday else addminuszero = monthorday End if End Function Function MyDate(param_date) if isNull(param_date) then MyDate = (Year(now) & "/" & addminuszero(Month(now)) & "/" & addminuszero(Day(now))) else MyDate = (Year(param_date) & "/" & addminuszero(Month(param_date)) & "/" & addminuszero(Day(param_date))) End If End Function Sub showCategory dim rs_cat Set rs_cat=Server.CreateObject("ADODB.Recordset") rs_cat.ActiveConnection=MM_PGBOnline_STRING rs_cat.Source = "SELECT code, description FROM eproc_category ORDER BY description ASC" rs_cat.Open() Response.Write("") While not rs_cat.EOF Response.Write(" ") Response.Write(" ") Response.Write(" ") rs_cat.movenext() Wend Response.Write("
") If Request.Form("Product_Category")<>"" then 'response.Write(Request.Form("Product_Category")) prod_list = Split(Request.Form("Product_Category"), ", ", -1, 0) For each product in prod_list If product = rs_cat("code") then myvar = " " exit for Else myvar = " " End If Response.Write(myvar) Response.Write(""&rs_cat("description")&"
") rs_cat.Close() End Sub %>

PGB Online Procurement


SUPPLIERS & CONTRACTORS REGISTRATION

<%If erormsg <> "" then%>

<%=erormsg%>

<%End if%>
     
Company Name*
:
" size="55">
     
 IMPORTANT INFORMATION
Company TIN*
:
" size="30">
SEC/DTI Reg. #*
:
" size="30">
     
 CONTACT INFORMATION
Address*
:
" size="30">
Telephone Nos.*
:
" size="30">
FAX*
:
" size="30">
Email Address*
:
" size="30"> will served as your username
Website
:
" size="30">
     
 COMPANY REPRESENTATIVE
Name*
:
" size="30">
Designation*
:
" size="30">
Email
:
" size="30">
Mobile
:
" size="30">
Telephone Nos.:
:
" size="30">
FAX
:
" size="30">
     
 OTHER INFORMATION
Nature of Business*
:
" size="30">
 
Category*
:
<%call showCategory%>
   
Please type in the code exactly as you have seen on the image
 
 
* are required fields