Prospects

Vendors

<% dim form_submit, form_valid, err_default, err_message, form_ctrl, retval dim mail_data, email_add, form_value On Error Resume Next form_submit = 0 form_valid = 0 err_message = "" err_default = "

Error: Invalid/insufficient information on the following fields:

" end_script = false set form_ctrl = Request.Form if form_ctrl <> "" then form_submit = 1 end if if form_submit = 1 then if len(trim(form_ctrl("compName"))) <= 0 then err_message = err_message + "
  • Name Of Copmany" end if email_add = trim(form_ctrl("emailId")) if err_message = "" then form_valid = 1 end if end if if form_valid = 1 then mail_data = "" mail_data = mail_data & vbcrlf mail_data = mail_data & "Please find below the Supplier Registration through of APL Website." & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Name Of Company : " & Request.Form("compName") & vbcrlf mail_data = mail_data & "E-mail ID : " & Request.Form("emailId") & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Registred Office : " & vbcrlf mail_data = mail_data & " Address : " & Request.Form("offAddress") & vbcrlf mail_data = mail_data & " Telephone No. : " & Request.Form("offPhone") & vbcrlf mail_data = mail_data & " Telex No. : " & Request.Form("offTelex") & vbcrlf mail_data = mail_data & " Fax No. : " & Request.Form("offFax") & vbcrlf mail_data = mail_data & "Work : " & vbcrlf mail_data = mail_data & " Address : " & Request.Form("workAddress") & vbcrlf mail_data = mail_data & " Telephone No. : " & Request.Form("offPhone") & vbcrlf mail_data = mail_data & " Telex No. : " & Request.Form("workTelex") & vbcrlf mail_data = mail_data & " Fax No. : " & Request.Form("workFax") & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Contact Person : " & vbcrlf mail_data = mail_data & " Regred Office : " & Request.Form("offcontact") & vbcrlf mail_data = mail_data & " Work : " & Request.Form("workcontact") & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Item Manufactured : " & Request.Form("Item") & vbcrlf mail_data = mail_data & "Company Status : " & Request.Form("compStatus") & vbcrlf mail_data = mail_data & "Type of Industry : " & Request.Form("industryType") & vbcrlf mail_data = mail_data & "Proprietor Name : " & Request.Form("propName") & vbcrlf mail_data = mail_data & "Installed Capacity: " & Request.Form("insCapacity") & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Infrastructure : " & vbcrlf mail_data = mail_data & " Land : " & Request.Form("Land") & vbcrlf mail_data = mail_data & " Plant : " & Request.Form("Plant") & vbcrlf mail_data = mail_data & " Work Capital : " & Request.Form("Capital") & vbcrlf mail_data = mail_data & vbcrlf mail_data = mail_data & "Sales Tax No. : " & vbcrlf mail_data = mail_data & " CST : " & Request.Form("CST") & vbcrlf mail_data = mail_data & " SST : " & Request.Form("SST") & vbcrlf mail_data = mail_data & "Regards," & vbcrlf mail_data = mail_data & "APL WebMaster" & vbcrlf 'SendMailMessage "baskarans@ho.netaccess-india.com", "baskarans@ho.netaccess-india.com", "APL - Feedback from APL Website", mail_data call sendmail("rameshs@ho.netaccess-india.com", "rameshs@ho.netaccess-india.com","APL - Supplier Registration Application", mail_data, profilefile) call sendmail("baskarans@ho.netaccess-india.com", "baskarans@ho.netaccess-india.com","APL - Supplier Registration Application", mail_data, profilefile) call sendmail("kumar@apl.in", "kumar@apl.in","APL - Supplier Registration Application", mail_data, profilefile) Response.Redirect("thanksRegn.html") Response.End Response.write("





    Thank you for your feedback with us.

    ") Response.write("

    Home

    ") Response.write("") set form_ctrl = nothing Response.End elseif form_submit = 1 then Response.write(err_default + "
      " + err_message + "
    ") Response.write("

    Please correct it and resubmit the form.

    ") end if function sendmail(recipient_address, sender_address, subject, body, attachment) Dim objMail, n, n0 on error resume next set objMail = CreateObject("CDONTS.NewMail") objMail.From = sender_address objMail.To = recipient_address objMail.Subject = subject objMail.Body = body if trim(attachment) > "" then n = InStr(1,attachment,",") if n = 0 then objMail.AttachFile(trim(attachment)) else n0 = 0 Do while n > 0 objMail.AttachFile(trim(Mid(attachment,n0+1,n-n0-1))) n0 = n n = InStr(n0+1,attachment,",") Loop objMail.AttachFile(trim(Mid(attachment,n0+1))) end if end if objMail.MailFormat = 1 'CdoMailFormatMime objMail.BodyFormat = 1 'CdoBodyFormatHTML objMail.Send set objMail = nothing sendmail = err.number on error goto 0 end function %>

    * Fields are Mandatory

    Name Of Company : *
    E-mail ID :
    Address    
       
    		 [ Regd. Office Address] :

    		*
      Telephone No. : *
      Telex No. :  
      Fax No. :  
        :  
      {Works Address :
      Telephone No. :
      Telex No. :
      Fax No. :
    Contact Person[s]
    [Name and Designation]     		   
      Regn. Office : *
      Works :
    Item Manufactured/
    Services Offered     		:
    Status of Company :
    Type of Industry :
    Name of Directors/ Partners/ Proprietors :
    Installed Capacity : *
    Infrastructure    
      Land & Building :
      Plant & Machinery :
      Working Capital :
    Sales Tax Number    
      CST : *
      SST : *
      :