Business Unlimited

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

Do I need a consultant?

About Dr. Hajje

Franchising

Careers

Clients Testimonials

Contact us

Home page

Site map

How do BUSINESS UNLIMITED's consultants work within a company?
At all levels:

* board room
* marketing department
* salesperson's trips
* shop floor
* behind the counter
* distribution on the road
* face to face with customers
* everywhere….

BUSINESS UNLIMITED can only help you in developing your marketing strategies when we can assess your company's operations at all levels, including accompanying sales forces and blue collar workers during their day-to-day working cycles.

This gives us an entirely objective and balanced overview covering all areas of your company's work, and sets the context for developing an effective marketing strategy.

:. 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%>