Partners Application
<%
'Declare Variables
dim sName
dim sComName
dim sCountry
dim sAddress
dim sEmail
dim sTelFixed
dim sTelMobile
dim sTerritoryRequested
dim sSalesExperience
dim sComType
dim sComStatus
dim sComStartDate
dim sComEmployees
dim sComTurnover
dim sComProfit
dim sErrString
dim sCnfString
if len(Request.Form("AssSubmit"))>0 then
'Get Posted Values
sName=Request.Form ("Name")
sComName=Request.Form ("ComName")
sCountry=Request.Form ("Country")
sAddress=Request.Form ("Address")
sEmail=Request.Form ("Email")
sTelFixed=Request.Form ("TelFixed")
sTelMobile=Request.Form ("TelMobile")
sTerritoryRequested=Request.Form ("TerritoryRequested")
sSalesExperience=Request.Form ("SalesExperience")
sComType=Request.Form ("ComType")
sComStatus=Request.Form ("ComStatus")
sComStartDate=Request.Form ("ComStartDate")
sComEmployees=Request.Form ("ComEmployees")
sComTurnover=Request.Form ("ComTurnover")
sComProfit=Request.Form ("ComProfit")
'Validate Posted Values
if len(sName)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Name field."
end if
if len(sCountry)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Country field."
end if
if len(sAddress)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Address field."
end if
if len(sEmail)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Email Address field."
end if
if len(sTelFixed)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Telephone Fixed field."
end if
if len(sTerritoryRequested)=0 then
sErrString = sErrString & _
"
" & _
" - Please enter a value for Territory Requested field."
end if
'Send Email
if len(sErrString)=0 then
dim sBody, sSubject, cdoError
sSubject="TipTopJob Partner Information Request from TipTopJob.biz"
sBody = vbcrlf & _
"The following details have been submitted on the TipTopJob.biz site via the Partners Apply page." & vbcrlf & _
vbcrlf & _
"Name : " & sName & vbcrlf & _
"Company Name : " & sComName & vbcrlf & _
"Country : " & sCountry & vbcrlf & _
"Postal Address : " & sAddress & vbcrlf & _
"Email Address : " & sEmail & vbcrlf & _
"Tel Fixed : " & sTelFixed & vbcrlf & _
"Tel Mobile : " & sTelMobile & vbcrlf & _
"Territory Requested : " & sTerritoryRequested & vbcrlf & _
"Sales Experience : " & sSalesExperience & vbcrlf & _
"Company Type : " & sComType & vbcrlf & _
"Company Status : " & sComStatus & vbcrlf & _
"Cmpany Start Date : " & sComStartDate & vbcrlf & _
"Company Number of Employees : " & sComEmployees & vbcrlf & _
"Company Turnover : " & sComTurnover & vbcrlf & _
"Company Profit : " & sComProfit & vbcrlf & _
vbcrlf & _
"This is an automated message sent " & now() & "."
call sendCDOSYSmail("support@tiptopjob.com", _
"Partner@tiptopjob.com", _
"anjimq@d-inet.com", _
"", _
"", _
sBody, _
sSubject, _
"", _
"", _
0, _
false, _
"", _
cdoError)
if len(cdoError)=0 then
sCnfString="Thank you for your interest in TipTopJob and for submitting your details, we will contact you very soon.."
end if
end if
end if
if len(sErrString)>0 then
%>
Please correct the following:
<%=sErrString%>
<%
end if
if len(sCnfString)=0 then
%>
APPLY NOW
What to do now..
1. Register on TipTopJob.com as a normal
Client.
2. Send in your Application below. Once accepted, your
TipTopJob account will be set as a Partner or Agent.
3. On getting new Clients, their Accounts will be associated
with your Account so you can access them easier and the system knows that any
Invoicing is allocated to your Account.
4. You will be allocated a Sales Territory to work within and
whereby you can earn Commission. Sales outside of your Territory can be
sold but the Commissions will be lower.
5. Payments of Commission are made one month in arrears of
payment to your nominated Bank Account.
6. Once logged onto TipTopJob.com as a Partner or Agent,
you will be able to access material on all the services and the variations.
Any questions before you apply ?
Email -
Partner@TipTopJob.com
FILL IN FORM BELOW
<%
else
%>
<%=sCnfString%>
<%
end if
%>
|