<% '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
 

WHAT SCENARIOS are best for calling in BUSINESS UNLIMITED?

“Taking advantage of BUSINESS UNLIMITED's wide experience and expertise can help give your business a firm foothold on the ladder of success.”
Dr. Hajje


Ask yourself these questions:

1.
Is your company showing any of the BUSINESS UNLIMITED danger signals?
 
2.
Do you want to diversify into new markets, either at home or overseas?
 
3.
Are you starting up a new business?
 
4.
Are you an local company who wants to break into the regional or international market from your base?
 
5.
Do you want to develop a new and effective Internet strategy?

BUSINESS UNLIMITED can help you. We can work with you in any of these situations to maximize the effectiveness of your strategies. We have a huge store of expertise and have worked successfully with many different companies in similar situations.

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)