<%@LANGUAGE="VBSCRIPT" CODEPAGE="1252"%> <% DIM FSO DIM myFile DIM formDate DIM formHour, formMinute, formSecond, formTime, formTimeTwo IF len(day(date)) < 2 THEN formDate = "0" & day(date) & "-" & monthName(month(date),true) & "-" & year(date) ELSE formDate = day(date) & "-" & monthName(month(date),true) & "-" & year(date) END IF IF len(hour(now)) < 2 THEN formHour = "0" & hour(now) ELSE formHour = hour(now) END IF IF len(minute(now)) < 2 THEN formMinute = "0" & minute(now) ELSE formMinute = minute(now) END IF IF len(second(now)) < 2 THEN formsecond = "0" & second(now) ELSE formsecond = second(now) END IF formTime = formHour & "-" & formMinute & "-" & formSecond formTimeTwo = formHour & ":" & formMinute & ":" & formSecond set FSO = Server.CreateObject("scripting.FileSystemObject") set myFile = fso.CreateTextFile (Server.MapPath("../users/form_" & formDate & "_" & formTime& ".htm"), true) myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("Credit Application Form - " & formDate & "") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("
CREDIT APPLICATION FORMReceived " & weekdayname(weekday(formDate)) & ", " & formDate & " at " & formTimeTwo & ".
") myFile.WriteLine("
") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("
Trading name of business " & AAA & " Registered name of business " & AAB & "
Previous trading/registered names " & AAC & " Incorporated form of business " & AAD & "
Reg. number of incorporation " & AAE & " VAT registration number " & AAF & "
Date of establishment of business (dd-mmm-yyyy) " & ABA & " Registered name of holding company " & ABB & "
Names of subsidiary and associate companies " & ABC & " Business activities " & ABD & "
Physical address " & ABE & " Postal address " & ABF & "
 " & ACA & "  " & ACB & "
 " & ACC & "  " & ACD & "
 " & ACE & "  " & ACF & "
 " & ADA & " Code " & ADB & "
Are invoices sent to your postal address? If not, then where? " & ADC & " Email address " & ADD & "
Registered address " & ADE & " Telephone area code and number " & ADF & "
 " & AEA & " Facsimile area code and number " & AEB & "
 " & AEC & " Premises owned or leased " & AED & "
 " & AEE & " Name of landlord " & AEF & "
Code " & AFA & " Postal address of landlord " & AFB & "
 " & " " & "  " & AFC & "
 " & " " & "  " & AFD & "
 " & " " & "  " & AFE & "
 " & " " & "  " & AFF & "
 
Details of Proprietors, Directors, Members, Partners
Full name " & BAA & " I.D. Number " & BAB & "
Residential address " & BAC & " % Shareholding / Interest " & BAD & "
 
Full name " & BAE & " I.D. Number " & BAF & "
Residential address " & BBA & " % Shareholding / Interest " & BBB & "
 
Full name " & BBC & " I.D. Number " & BBD & "
Residential address " & BBE & " % Shareholding / Interest " & BBF & "
 
How long has the Proprietor(s) owned the business " & BCA & "  " & " " & "
Auditors/Financial officer's name " & BCB & " Telephone area code and number " & BCC & "
 
Banking Details
Institution " & BCD & " Branch " & BCE & "
Date opened (dd-mmm-yyyy) " & BCF & " Account name " & BFA & "
Account number " & BFB & "  " & " " & "
 
Trade References
Name " & BFC & " Telephone area code and number " & BFD & "
Address " & BFE & " Credit limit " & BFF & "
Notes: " & CAA & "  " & " " & "
 
Name " & CAB & " Telephone area code and number " & CAC & "
Address " & CAD & " Credit limit " & CAE & "
Notes: " & CAF & "  " & " " & "
 
Name " & CBA & " Telephone area code and number " & CBB & "
Address " & CBC & " Credit limit " & CBD & "
Notes: " & CBE & "  " & " " & "
 
Name " & CBF & " Telephone area code and number " & CCA & "
Address " & CCB & " Credit limit " & CCC & "
Notes: " & CCD & "  " & " " & "
 
List all sureties, cessation of debtors, notarial bonds, judgements " & CCE & "  " & " " & "
List liquidations, sequestration's against the business or its principals " & CCF & "  " & " " & "
Have moratoriums or offers of compromise ever been made to any creditors? " & CDA & "  " & " " & "
 
Can the latest audited Financial Statements be made available? " & CDB & "  " & " " & "
If yes, what year? " & CDC & " Surety offered to substantiate credit limit " & CDD & "
Account contact person " & CDE & " Order numbers used? " & CDF & "
Credit requested " & CEA & "  " & " " & "
") myFile.WriteLine("
") myFile.WriteLine("") myFile.WriteLine("") myFile.WriteLine("
form_" & formDate & "_" & formTime& ".htm") myFile.WriteLine("") myFile.WriteLine("") myFile.Close Session("formName") = "form_" & formDate & "_" & formTime& ".htm" Session("formDate") = formDate Session("formTime") = formTime Session("formTimeTwo") = formTimeTwo Response.Redirect("formEmailer.asp") %>