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

BUSINESS UNLIMITED WHY UNIQUE?

Two decades of working in the marketing and management consultancy field have shaped BUSINESS UNLIMITED's business philosophy and core values.

We have evolved tried and tested working practices, which we apply to all our consultancies.

Our aim is to provide our clients with an entirely objective overview to allow them to regain their momentum and appreciate the climate of the markets in which they operate.


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)