<% 'on error resume next if NOT isempty(Request.Form("OK")) then password =Request("password") username =Request("username") set Objconn = server.createobject ("adodb.connection") ObjConn.Open "A6302_business" set RSFinduser = Objconn.Execute(" select * from members where username = '" & username & "' and password = '"& password &"' ") if RSFinduser.EOF then TheMessage = "Invalid User Name or pin." else Session("password") = RSFinduser("password") Session("fname") = RSFinduser("fname") Session("lname") = RSFinduser("lname") Session("tel") = RSFinduser("tel") Session("email") = RSFinduser("email") Session("address") = RSFinduser("address") Session("country") = RSFinduser("country") Session("memberid") = RSFinduser("memberid") Response.Redirect "./index.asp" end if else TheMessage = "Log in Form" end if %> <% If IsNumeric(Request.QueryString("lowerbound")) Then intLowerBound = CLng(Request.QueryString("lowerbound")) Else intLowerBound = 0 End If If IsNumeric(Request.QueryString("upperbound")) Then intUpperBound = CLng(Request.QueryString("upperbound")) If intLowerBound = 0 And intUpperBound = 0 Then intUpperBound = 3 Else intUpperBound = 3 End If If intLowerBound > intUpperBound Then Dim iTemp iTemp = intLowerBound intLowerBound = intUpperBound intUpperBound = iTemp End If Randomize() intRangeSize = intUpperBound - intLowerBound + 1 sngRandomValue = intRangeSize * Rnd() sngRandomValue = sngRandomValue + intLowerBound intRandomInteger = Int(sngRandomValue) %> Business Unlimited
.gif width="567" height="110" border="0" usemap="#Map" href="community.asp">
 
 
Business is an art
Make it grow Unlimited

   Careers
   Clients Testimonials
 

Certification

Certified Auditor – Auditing Principles & EMS Auditor – The IQA International Register of Certificated Auditors – 22 April 1999

Certified Lead Auditor – EMS Environmental Management Systems - The IQA International Register of Certificated Auditors – 15 June 2000

Certificate of commitment – Gold Standard - Total Quality Management – CSCS

Investor in People – Learning and Skills Counsel

Preferred H.R. Consultant – Gold Status – Taylor Woodraw

A+ Certified Professional – CompTIA – 30th October 2003

Certificate of Achievement - The American Institute of Achievement – 1999 Knowledge Guru of the year -

Certificate of Educational Studies in Teaching English to Speakers of Other Languages – Euro Training Link International – 1 August 2004

Attestation de Participation – La Franchise Droit et Pratique – Institut de Formation par Alterance- Franco-Libanais- 29 May 2003

Certificate of Completion – Franchising Basics: The Official IFA Course – Institute of Certified Franchise Executives – 26th March 2005

Award Certificate – Management Empowerment Programs – Michigan Business Society – March 19 – 1990

Certificate of Completion – Twelve Essentials Elements of Business an Aspiring Entrepreneur must Know – My Own Business, Inc.- March 21 2003

Diploma of Merit – Physical Culture – Arab Physical Culture Federation -20 March 2004


Certificate of Contribution – The Successful Financial Organization & Construction management Coordination – Euro Capital Organization –Power Plant Privatization Project – 19 -2 -1996

Award Certificate – Quality Control & Quality Assurance – German Quality Control Board – 27 May 1997


Back to top // Back to previous page

 
:. Members
<%if Session("password") = "" then%> Log in User Name

Password


Register
- Forget your password
<%else%> Welcome <%Response.Write Session("fname") & " " & Session("lname")%>  
Sign out
<%end if%>
:. Sign our Newsletter
E-mail

Name



Home | Business Tools | Free services | Store | Services | Guaranteed Results | Community

Copyright © 2005 BusinessUnlimited. All rights reserved.
Designed by: ITEC(Innovative Technology)