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

Guarantee

Unlike MOST consulting companies, Business Unlimited stand behind what they do.

While no lawyer can guarantee you'll win your case, and no Doctor can guarantee how you'll heal, we DO guarantee your results using our strategies and implementation hands-on tactics.

Satisfied customers are our greatest asset, and we demonstrate our commitment with our money-back guarantee.

Click here to view our "Money back Guarantee" sample agreement


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